- iPhone topik
- Xiaomi 13 - felnőni nehéz
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy S23 Ultra - non plus ultra
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Amazfit Active 2 NFC - jó kör
- Samsung Galaxy A56 - megbízható középszerűség
- Magyarított Android alkalmazások
- Telekom mobilszolgáltatások
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
0P1
aktív tag
válasz
ReSeTer
#34199
üzenetére
Hát ezt két segédoszlop igénybevételével tudom a legegyszerűbben elképzelni :
Ha pl az A oszlopban vannak az adataid, akkor B2-be írd be:
=HA(ÜRES($A2),0,1)
és húzd le a képletetC4-be meg, hogy
=ÉS(SZUM(B2:B4)=3,SZUM(B1:B3)<3)
és húzd le ezt isAztán valahova írd be, hogy
=DARABTELI(C:C,"IGAZ")Persze durva tömbfügvényezéssel a segédoszlopok is kiküszöbölhetőek
-
0P1
aktív tag
válasz
ReSeTer
#34193
üzenetére
Egy kicsit pontosítanád a kérdést?
Tehát azt szeretnéd, hogy ha háromszor vagy annál többször szerepel közvetlenül egymás után akármilyen érték (vagy ugyanaz az érték ? - ezt is pontosítsd) egymás alatt egy adott oszlopban, akkor megszámoljon, de mit? Az olyan cellákat, amik megfelelnek a fenti kritériumnak, vagy az ilyen cellatartományokat (range-eket) ?
-
Fferi50
Topikgazda
-
ReSeTer
senior tag
Helló! Egy olyan megoldásra lenne szükségem, hogy ha egy adott oszlopban egymás után előfordul három vagy annál több beírás egymás alá, akkor egy függvény ezt megszámolja, hogy mennyiszer fordult elő. Másik megoldás, hogy számolja meg azt, hogy egy oszlopban mennyi cella van beszínezve rossz színnel (rózsaszín), és amikor több cella van egymásután beszínezve, azt egynek vegye(ez itt nem fontos, de jó lenne)
-
#34192
0P1
aktív tag
Juditta_56
#34191
0P1
aktív tag
válasz
Juditta_56
#34191
üzenetére
Talán azért, mert ez csak Excel 2016 óta van, és abban is csak a 2016 májusi update óta
Egyébként más hiánypótló, régóta várt függvények is bekerültek azzal az update-tel, úgy mint :TEXTJOIN (magyarul SZÖVEGÖSSZEFŰZÉS) - ezt már nagyon régóta vártuk, így már végre lehet megadni akár range-et inputként
CONCAT (FŰZ) - hasonló az előzőhöz, csak kicsit limitáltabb tudással
IFS (HAELSŐIGAZ) - IF több feltétellel, a magyarítása kicsit érthetetlen számomra
SWITCH (ÁTVÁLT) - végre nem kell többszörös feltétel vizsgálat esetén (különböző kimenettel) egy halom IF függvényt egymásba ágyazni -
Delila_1
veterán
válasz
samfishR
#34177
üzenetére
Modulba tedd a lenti makrót.
Sub Beszuras()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, 3) <> Cells(sor - 1, 3) Then
Rows(sor).EntireRow.Insert
Cells(sor, 1) = Cells(sor - 1, 1)
Cells(sor, 2) = Cells(sor - 1, 2) + TimeValue("0:0:1")
Cells(sor, 3) = Cells(sor - 1, 3)
End If
Next
End SubDr V és Roxy27: szívesen.
-
samfishR
senior tag
Sziasztok,
A csatolt excel táblában műszakok vannak felsorolva dátumokkal. Azt szeretném, hogy minden műszakváltásnál (pl 11-->12-es, 20-->21-es sor, stb...) egy új sort szúrjon be, ami még az előző műszak nevével szerepel, de a következő műszak kezdetét megelőző 1 mp-es idővel. Tehát pl a 12. és 13. sor a következő lenne (ahol a 12-es sor lenne az újonnan beszúrt sor):
2016.07.03 0:24:59 MUSZAK1
2016.07.03 0:25:00 MUSZAK2
....folytatódik a következő műszakváltásig, majd ismét egy új sor beszűrása következik.
A tábla több ezer soros, rengeteg váltással, van, ahol egy műszakhoz csak 1 sor tartozik, de ugyan úgy be kell illeszteni elé a + sort... Tudnátok adni kérlek erre valami egyszerű megoldást?
Segítségeteket előre is köszönöm!!
-
0P1
aktív tag
2016-ban :
Adatok/Új lekérdezés/Üres Lekérdezés
A szerkesztősávba írd be, hogy List.Dates , aztán meghívás , írd be a start date-et (2016.01.01) , és a napok számát (365) count-ba, step: 1Átalakítás - > Táblázatra, OK, Oszlop hozzáadása , egyéni oszlop -> egyéni oszlopképlet: Date.DayOfWeek( és válaszd ki a dátumot tartalmazó oszlopot.
Utána tegyél be egy szűrőt az új oszlopra (számszűrők , nem egyenlő 6 és nem egyenlő 0 )
Oszlop eltávolítása -> Bezárás és betöltés -
0P1
aktív tag
Azt elfelejtettem írni, hogy ennek a megoldásnak az egyetlen hátránya, hogy konkrét hivatkozást hoz létre az excel filera, vagyis ha áthelyezed a filet máshova, akkor újra be kell állítani a lekérdezés adatforrását.
HA ezt ki akarod küszöbölni, hogy az elejét nem úgy csinálod, ahogy írtam, hanem rálépsz egyenként mind a nyolc mezőre (csak egyszer kell) és Adatok/Beolvasás/Táblázatból) . Ilyenkor mindegyik lekérdezésnek az adatforrásai az adott excel file táblái lesznek (nem külső adatkapcsolatként kezeli)
Aztán a vége ugyanaz, ahogy írtam (Egyesítés) . -
0P1
aktív tag
válasz
Krogoth
#34169
üzenetére
2016-on:
Adatok/ Új lekérdezés / Fájlból/ Munkafüzetből
Váaszd ki az excel filet, több elem kijelölése pipa be / jelöld ki az összes munkalapot / betöltés helye : csak kapcsolat létrehozása (szedd ki szerintem az adatok hozzáadása az adatmodellhez checkboxot, az felesleges) - > BetöltésUtána Adatok / Új lekérdezés / Lekérdekéses kombinálása / Összefűzés
Három vagy több tábla radio button , add hozzá az összes rendelkezésre álló táblát, -> OK
Bezárás és betöltésEzután Jobb egér -> frissítéssel tudsz frissíteni (vagy Adatok / Frissítés)
Ha a frissítést be akarod állítani, akkor állj rá a táblára , Adatok / Kapcsolatok/Tulajdonságok / Kapcsolat tulajdonságai, és beállíthatod a frissítési szabályokat.
-
apataki75
újonc
Sziasztok!
Hogyan tudok egy munkalap (pl. Orders) A1 cellában megadott értéknek megfelelően dolgozni A vagy B munkalap adataival?
pl.
A1 cella értéke: A (munkalap neve)D2= 12* (A munkalap D2 cellája)
Ha
A1 cella értéke: B (munkalap neve)
D2= 12* (B munkalap D2 cellája)Köszi a segítséget!
-
-
0P1
aktív tag
válasz
Krogoth
#34163
üzenetére
Hello,
Azt nem írtad, hogy milyen excel verzió, makrós, vagy makró nélküli megoldás érdekel?
Ha 2016 vagy O365, akkor megoldható néhány egérkattintással VBA makró nélkül is, úgy, hogy automatikusan frissüljön a cél munkalap, ahogy a források változnak.
Ha korábbi verzió, akkor makró nélkül egy kicsit macerásabb, de azért megoldható úgy is ( bár egy pár soros VBA makróval egyszerűbb) -
Delila_1
veterán
válasz
Roxy27
#34166
üzenetére
Feltöltöttem ide egy fájlt.
A Munka1 lap E2 és F2 cellájában választhatod ki a két lapot. A lapok nevét a H oszlop tartalmazza egy bővíthető táblázatban. Az érvényesítés forrása a Lapnevek tartomány.
Az E2-ben kiválasztott lapnév A oszlopa a laphoz rendelt makró hatására a Munka1 lap A-oszlopába kerül, az F2-é pedig a C-be. A bemásolás előtt az előző A, ill. C oszlop tartalma törlődik.
A feltételes formázást add meg az A és C oszlopra.
-
Roxy27
tag
Sziasztok,
Egy hasznos segítségre lenne szükségem... sajnos makrót nem tudok írni, de szerintem egy rövig progival megoldható lenne az elképzelésem.
Adott egy excel, sok-sok lappal... (kb. 200 és bővül folyamatosan)
Lehet egy Access-be kellene inkább betenni, de az első gondolatom ez volt.
Az első lap a kereső és infó lap
A többin az adott programnevek illetva a lapon a lista. A lényeg, hogy most úgy működik a keresés/összehasonlítás, hogy az első fülön linkelve vannak a programok, odaugrik a fülre, onnan kimásolom a listát az elsőre. Majd a máűsik keresett listát is, és beillesztem az első lap 2. Program részbe.
Így autamatikusan kizöldezi az egyező számokat.
Lehetne ezt úgy, hogy a Program1 ill. 2-es rész mondjuk egy legördülőmenüből simán ki lehetne választani az adott számot, és az automatikusan be is húzná/másolná az adott fülről, vagy eleve csak az egyezéseket írná ki.Vállalja nekem ezt valaki..??
Így néz ki most:
A Program1 ill. 2 részbe kell bemásolni most manuálisan...
Így néz ki egy fül:
A file-t is el tudom küldeni, mert nem titkos
Előre is nagyon köszönöm!!!
Zsolt -
-
Fferi50
Topikgazda
válasz
ngyk90
#34159
üzenetére
Szia!
Próbáld meg a következő képletet a feltételes formázásban (feltételes formázás, a formázandó cellák kijelölése képlette - értékek formázása ha a képlet igaz):
=Vagy($B1="B";$B2="B") a kitöltés szürke.Az érvényessége pedig az egész B:C oszlop, ameddig adatod lesz.
Üdv.
Ps: használd lsz. az alul levő Programkód vagy Konvertálatlan gombot, hogy ne legyenek hangulatjelek a tartomány jelölőkből.
-
0P1
aktív tag
Másik megoldás (Bár nem annyira szép, mint az előző, de még mindig jobb, mint a segédoszlopos) :
Ezt írd E2-be , és utána nyomj Ctrl+Shift+Entert :
=MIN(HA(A:A=A2;D:D))És utána ezt a képletet húzd le. (Ctr+Shift+Enter leütése után megjelenik egy kapcsos zárójel - {} a képleted körül, mert array function.
ez nem igényel Excel 2016-ot, vagy 365-öt, akár Excel 2003-on is működnie kell, viszont ez tömbfüggvényes megoldás, ami annyira nem szép, inkább használj naprakész excelt
-
ngyk90
újonc
válasz
Fferi50
#34156
üzenetére
A példánál maradva, a képen összetartozó cellák alatt a B21
22-re gondoltam egyszer, annak kellene "automatikusan" szürke színűnek lenni, ha a B22-be "B" betűt írok! Másik ilyen a B3738, aminek fehérnek kellene, hogy legyen, ha a B38-ba "T" betűt írok! Azért kell a fehér is, mert minden szürke cellának van egy párja is annyi különbséggel, hogy "T" betű szerepel ott és, ha begépelem a szürke tartalmát és átmásolom akkor szürke marad, de ha a "B"-t "T"-re változtatom lehetne fehér és nem kellene "manuálisan" változtatni vissza!Nem tudom mennyire érthető a dolog így ebben a formában! A cellák nincsenek egyesítve, a szürke és a fehér részen belül is 4db külön álló cella található!
-
#34157
huan
őstag
Juditta_56
#34155
huan
őstag
válasz
Juditta_56
#34155
üzenetére
tenkjú! -
Fferi50
Topikgazda
válasz
ngyk90
#34153
üzenetére
Szia!
Pedig ez feltételes formázás lesz.
"ami ha "B" betűt írok az összetartozó cellák bal alsó sarkába akkor szürkére, ha "T" betűt akkor fehérre színezi a cellákat "
Mit értesz összetartozó cellák alatt? Egyesített cellákat? Hogy írod a bal alsó sarkába a betűket, mert a képlet ettől függ?
A fehér cellát szerintem nem kell színezni, mivel alapból olyan színű (legalábbis a képen ez látszik.Feltételes formázásnál megjelölheted az érvényességnél az egész munkalapot is akár.
Üdv.
-
#34155
Juditta_56
aktív tag
huan
#34154
Juditta_56
aktív tag
aaa.xlsx
A K2 cellában (segédoszlop) a képlet:=HA(AZONOS($A2;$A1);"";1)
Ezt elrakhatod bárhová, csak akkor az E2 cellában lévő képletben=HA(AZONOS($K2;1);MIN(INDIREKT(CÍM(SOR();OSZLOP($D$1))):INDIREKT(CÍM(HOL.VAN(1;$K3:$K1000;0)+SOR()-1;OSZLOP($D$1))));E1)
módosítsd az összes K-t a megfelelő betűjelre. Utána persze húzd végig az E oszlopon. Arra figyelj, hogy a K oszlopban lévő képletet egy sorral tovább húzd, mint ahány adat van az A oszlopban.
Biztos fogok kapni, hogy miért az INDIREKT függvényt használom, de nekem bevált.
-
huan
őstag
Sziasztok!
Tudnátok abban segíteni, hogy az alábbi táblában:
- amíg az A-oszlopban azonosak a számok
- a D-oszlopban a mai naptól számított "távolság" =MA()-C2 -ok közül az
- E-oszlopba csak a legkisebbre van szükségem
(azonos A-oszlop számok-on belül a piros számok kellenének)
Függvénnyel szeretném, nem makróval.
https://data.hu/get/10316552/aaa.xlsx
Köszönöm előre is! -
ngyk90
újonc
Sziasztok!
2010-es magyar nyelvű Excelt használok. Egy olyan szabályt, függvényt vagy bármit szeretnék, ami ha "B" betűt írok az összetartozó cellák bal alsó sarkába akkor szürkére, ha "T" betűt akkor fehérre színezi a cellákat a képen látható módon:
Tudna valaki esetleg ebben segíteni? Próbálkoztam feltételes formázással, de nem tudom, hogy adhatnám meg neki, hogy az egész táblára érvényes legyen a szabály anélkül, hogy minden egyes összetartozó cellákhoz külön kijelöléssel beállítanám a szabályt..
Köszönöm előre is!
Üdv
-
#34151
cekkk
veterán
m.zmrzlina
#34149
cekkk
veterán
válasz
m.zmrzlina
#34149
üzenetére
Köszönöm!
F oszlopban vannak de kijavítottam így:
=LEFT(F3;LEN(F3)-2) & "90" és csak annyit írki, hogy #Név?(#34150) Fferi50
Köszönöm! Működik, remélem a számlázó is megeszi majd. -
Fferi50
Topikgazda
Szia!
Ha egészre szeretnél kerekíteni, akkor:
=KEREK.FEL(A1;-2)-10
Ez független a tizedesvessző mögötti értékektől.
Ha tizedesvessző utáni értékeket is cserélnéd, arra más képlet kellene, de ott soha nem fogsz 90-et látni, mert az utolsó 0 nem íródik ki
, kivéve, ha kötelezőnek formázod, illetve az Excel sajátosságai miatt mással számol és mást látsz - meg kell határozni, hány tizedest szeretnél látni.Persze más a kérdés, ha szövegről van szó.
Üdv.
-
#34149
m.zmrzlina
senior tag
cekkk
#34147
m.zmrzlina
senior tag
Egy lehetséges megoldás (ha az A:A oszlopban vannak a számok):
=LEFT(A1;LEN(A1)-2) & "90"Ettől persze szöveggé váltak a számok ami nem baj akkor ha pl raktárnyilvántartás azonosítóiról van szó, azokkal rendszerint ui nem kell matematikai műveleteket végezni.
Ha az eredménybe szám kell akkor meg lehet pl szorozni 1-gyel a fv-t:
=(LEFT(A1;LEN(A1)-2) & "90")*1 -
-
Delila_1
veterán
válasz
#25712384
#34143
üzenetére
A lenti rövid kis makrót másold be egy modulba, ezzel hamar létrehozhatod a beszúrásokat.
Sub OszlopBeszuras()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 2 Step -1
Columns(oszlop).EntireColumn.Insert
Next
End Sub -
#34144
Lasersailing
senior tag
Lasersailing
senior tag
Sziasztok,
Olyan gondom lenne, hogy van egy makró, ami 1 órával ezelőttig szuperül futott, majd most indításkor hibaüzenet:
"File not found"Ha debug módban F8-at ütök, akkor is, a nélkül, hogy egyáltalán belelépne a makróba! A makrón az utolsó futás óta érdemi változtatást nem csináltam, de szerintem valamit az excelen beállításain babrálhattam el...
Amit változtattam:
átraktam a file-t egy másik mappába (nam használ külső file-okat a makró)
ill. engedélyeztem az összes makró futását excelben, ne kérdezgessenvan ötletetek esetleg?
(Office professional plus 2010)
-->megoldódott, okát nem értem: 5 makró sort inaktívvá tettem, majd egyesével újra aktív és működik
-
#25712384
törölt tag
Sziasztok!
Ha van mondjuk ~1000 oszlopom, minden oszlop 2 sorában van adatom (oszlop név), és szeretném, hogy minden oszlop mellé tegyen be plusz egy üres oszlopot, ezt meg lehet csinálni a tartomány teljes kijelölésével és valamilyen speciális beszúrással, vagy csak egyesével lehet minden oszlop mellé egy újat beszúrni? (2013-as office esetében érdekelne a dolog).
-
#34142
poffsoft
veterán
szőröscica
#34140
poffsoft
veterán
válasz
szőröscica
#34140
üzenetére
Option Explicit
Public Sub makro1()
Dim i As Integer
Dim l As Integer
Dim RowCount As Integer
Dim S1 As String
Dim S2 As String
RowCount = 10
S1 = "Submitter excl. trades"
S2 = "Trading activity_NEW"
Worksheets(S1).Select
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
l = Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & l) = Range("J" & i)
Range("I" & l) = Sheets(S2).Range("D" & i)
End If
Next i
End Sub -
#34141
samfishR
senior tag
m.zmrzlina
#34136
samfishR
senior tag
válasz
m.zmrzlina
#34136
üzenetére
köszönöm!!
-
#34138
Fferi50
Topikgazda
szőröscica
#34137
Fferi50
Topikgazda
válasz
szőröscica
#34137
üzenetére
Szia!
Szerintem a legutolsó PasteSpecial után nem mész vissza a forrás munkalapra, hanem a cél munkalapon maradsz, ezért ott vizsgálja a következő "D" oszlopbeli cellát, aminek nagy eséllyel nincs értéke.
Tehát hiányzik egy
Sheets("Trading activity_NEW").Select
sor az End If elé.
Egyébként a rengeteg select teljesen elhagyható, de ezt most másra bízom.Üdv.
-
#34137
szőröscica
addikt
szőröscica
addikt
Hello!
Hol hibázik a kódom?
A RowCount érték ki van számolva, gyakorlatilag az lenne a célom, hogy ha nem üres a D oszlopban a cella, akkor az adott sor J és D celláját másolja át egy másik sheeten lévő lista aljára. A For ciklus mintha nem menne, csak a legelső nem üres D-ig megy, utána abbahagyja, nem másolja át a többit.
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
Range("J" & i).Select
Selection.Copy
Sheets("Submitter excl. trades").Select
Range("H65000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
l = Selection.Row
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Trading activity_NEW").Select
Range("D" & i).Copy
Sheets("Submitter excl. trades").Select
Range("I" & l).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next i -
samfishR
senior tag
Sziasztok,
A csatolt képen látható egy kis tábla, 3 színnel, mind a háromnak van 1-1 intervalluma start és finish értékkel. Az alatta lévő oszlopban értékek vannak megadva és azt szeretném, hogy mellé, a B8-B20 tartományba a fenti táblát megvizsgálva a számhoz megfelelő színt rendelje hozzá.
Tehát ha a Date értéke 2, akkor Zöld-et adja. Ha 11, akkor Feketét, stb..
Köszönöm előre is!
-
#34129
oke
senior tag
szabonagyur
#34128
oke
senior tag
válasz
szabonagyur
#34128
üzenetére
Velem a cellarácsok szórakoztak így. Ha többet kijelöltem, és úgy állítottam be a cellarácsot, akkor frissítéskor eltünt. Viszont ha egyesével állítottam át, akkor megmaradt. Prőbálj meg egyszerre egyet átállítani és aztán frissíts.
-
Janaboy
veterán
Sziasztok,
Egy egyszerű IF függvényre lenne szükségem, ami a következőt csinálná.
HA X mezőben lévő név egyezik Y1 - Y41 mező közötti szöveggel, akkor Z(és az egyező mező) számon található szöveget rakná be.
Pl.X1:Béla
Y1:Béla Z1:Nemjo
Y2:Jóska Z2:Dejo
Y3:Haverom: Z3:LegjobbTehát végiggörgetné a tartományt Y-on és ha megvan, akkor dobja be a nevet, ha nincs akkor marad az eredetin.
Köszi előre is.
üdv -
szöszi29
csendes tag
Köszönöm a választ, ilyesmire gondoltam!
tökéletes arra, ha az E2 cella üres, viszont az a gondom, hogy ha az E2 cella nem üres, akkor nem szeretném ha írna bármit is, tehát hagyja üresen a cellát, ahol a függvény van..
ez is megoldható valahogy? vagy ez már bonyolult excel szinten? -
RAiN91
őstag
Szeretném húzni az időt, ezt az egyszerű megoldást találtam. De amíg fut az az 5 másodperc, addig megáll a 200ms-ként frissülő excel tábla. Létezik hasonló egyszerű megoldás, ahol közbe nem áll meg az Excel?
If Range("O" & i).Value = "SZÖVEG" Then _
Application.Wait(Now + TimeValue("00:00:05"))
Range("O" & i).ClearContents
End If
Köszönöm
-
#34123
oke
senior tag
szabonagyur
#34119
oke
senior tag
válasz
szabonagyur
#34119
üzenetére
Szia!
Próbáltad a kimutatás jobb gomb --> kimutatás beállításai-->elrendezés és formátum fül -->pipa a 'formázás megőrzése frissítéskor' ?
-
veneonee
újonc
Sziasztok!
Nekem lenne egy nem túl bonyolult kérdésem. Eddig Macen a Numberst használtam, viszont ahogy ott használtam a képletet az Excel nem tudja úgy használni
Van egy ilyen képletem: "I9=HA(F9>=0;F9;0)+HA(H9=1;-F9; )
Szóval röviden, van az F oszlop az egy számolt összeg, annak kéne megjelennie az I oszlopban ha 0-nál nagyobb vagy egyenlő a szám az F-ben és itt jön be a gondom a H oszloppal, ami egy ismét fügvényes megoldás és ha beírom hogy "1" akkor törölje a mellete lévő I sorban az értéket vagy tegye egyenlővé 0-val. Viszont van mikor egymás után több sornál egyesíteni kéne a H oszlopban a cellákat és 1db "1"et beírnom, vinszont ilyenkor nem törli csak az egyesített cellák első sora melleti I értéket és a többit otthagyja, ami nekem nem jó...
Remélem érthető
Előre is köszi -
#34119
szabonagyur
félisten
szabonagyur
félisten
Sziasztok,
Van egy megnyitáskor automatikusan frissilő pivot tábla. Azonban a pivot részeit hiába állítom be mondjuk nagyobb betű stb. mégsem marad úgy, hanem visszaugrik.
Van erre valami egyszerű megoldás?
-
szöszi29
csendes tag
sziasztok!
kérnék még egy kis segítséget!
össze lehet e hozni a HA és ÉS függvényt úgy, hogy van üres cella is, amire hivatkoznék?
arról van szó, hogy szeretnék automatikusan kitölteni cellákat, ha bizonyos feltételek érvényesülnek!
pl. ha E2 cella üres és I2 cella egyenlő "1db-6db"-al, akkor legyen kevés, egyébként pedig sok... illetve ha meg lehet ezt csinálni, akkor össze lehet e több ilyet fűzni valahogy?
két képletem van ami külön működik, ezeket hogyan tudom összefésülni?
a cél az lenne, hogy csak akkor írjon keves-et, ha E2 cella üres és ha a ha függvényből teljesül valamelyik feltétel..=HA(I2="1db-2db";"kevés";HA(I2="3db-4db";"kevés";HA(I2="5db-6db";"kevés";HA(I2="7db-8db";"kevés";"sok"))))
=HA(ÜRES(E2);"kevesüres";"kevesnemüres")
ez a két képletem van, ezeket kellene összehozni
a fontos az lenne, hogy csak akkor teljesüljön a ha függvény, ha üres az E2-es cella..
pl. ha E2 üres és I2=1db-2db, akkor kevés, és ha E2 üres és I2=3db-4db, akkor kevés..... stb egyébként sok..köszi előre is
-
#34117
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Hol tudom beállítani hogy az Excel teljes ablakban nyíljon meg és ne a Maximize gombbal kelljen kezdeni a munkát?
Nem makróval gondolom megoldani egy adott munkafüzet esetében (ismerem az Application.WindowState = xlMaximized parancsot) hanem rendszerszintű megoldás kellene.
Az összes többi telepített Microsoft termék (Word, Access, Powerpoint stb) teljes ablakban nyílik meg csak az Excellel van gond.
-
szöszi29
csendes tag
sziasztok!
Kis segítséget kérnék! Adott egy raktárkészlet excelben, állandóan bővül! Folyamatosan végzek benne speciális szűréseket! Egyik kérdésem, hogy ha manuálisan színezem a cellák tartalmát(betűszín), az látszódik szűrésnél, viszont ha feltételes formázással színezném, azt nem mutatja a szűrésnél... van erre valami megoldás? hogy ne kelljen a cellákat egyenként színezni?
Illetve a másik kérdésem, hogy ha a HA függvényt szeretném használni, aminek a feltétele egy olyan cellára mutat, ahol kötőjeles, kettőspontos adatok vannak(1db-6db, itt a db a darab), miért nem működik? Például ha a cellában az van, hogy 1db-6db, akkor szeretném mellé a cellába iratni hogy "kevés", de nem csinálja meg, mindig azt írja hogy hamis.. megpróbáltam úgy is hogy 1db:6db, de így se...
van valami ötletetek?
köszi előre is
üdv.
István -
Fferi50
Topikgazda
válasz
TheProb
#34110
üzenetére
Szia!
Az adatérvényesítési lista pont azért van, hogy ne lehessen más értéket beleírni a cellába
, ne csodálkozz, hogy nem engedi.
Először a lista elemei közé kell felvenned - ha kézzel van megadva, akkor a forrás sorba beírni, ha ott képlet van, akkor a képletet kell módosítani, hogy benne legyen az új cella és az új cellába írni az értéket.Üdv.
-
TheProb
veterán
Sziasztok!
Legördülő listához, hogy tudok új elemet hozzáadni?
Én azt hittem, hogy ha az adott oszlop egy cellájában megadok egy olyan értéket ami még nincs, akkor az automat bekerül a listába és szűrhető lesz. De azt írja, hogy az érték nem felel meg az adatérvényesítési korlátoknak. Megnéztem az adatérvényesítés, de ott csak úgy tudom megnézni a beállításokat, ha törli a meglévőket...Mármint tudom, hogy a lista és ez a szűrős dolog nem ugyan az, de a lényeg ugyan az, hogy addig nem kerül be a szűrőbe az új érték, amíg nem tudom beírni az egyik cellába.
-
oke
senior tag
Sziasztok!
Első körben egy elméleti kérdésem lenne, ha megoldható, akkor jövök a részletekkel
Van egy online teszt kitöltő oldal, melyet ha elvégeznek az illetők, akkor az eredmény letölthető excelben. Egy ember eredményei egy sorban szerepelnek. Ebből kellene nekem valami makróval elküldeni az adott személyhez tartozó sort +a "fejlécet" a személyhez hozzárendelt e-mail címre (ez még egy plusz feladat
Tehát nem az egész excel-t, hanem csak két sort.
Megoldható így az e-mail elküldés valahogy? -
Fferi50
Topikgazda
válasz
RAiN91
#34103
üzenetére
Szia!
Itt is le kell állítani az eseménykezelést. Az első For elé be kell írni:
Application.EnableEvents=FalseAz End Sub elé pedig:
Application.EnableEvents=True
A második Next elé beírnám DoEvents. Ez arra szolgál, hogy le tudd állítani a programot a Ctrl+Break gombbal, ha már nagyon sokáig menne .Üdv.
-
RAiN91
őstag
Az előző már nem aktuális, viszont még lenne egy utolsó kérdés
Ez így működik, viszont szeretném, hogy soronként nézze végig az összes cellát, és ahol (35 oszlop sorai) amelyikben SZÖVEG mező van, írja be az adott sor másik cellájába is (12 oszlop sorai), és maradjon is ott.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(10, 35) = "SZÖVEG" Then
Cells(9, 12) = "SZÖVEG"
End If
End Sub---
Erre próbáltam ezt, de amint beíródik a "SZÖVEG" 35-ös oszlop bármely cellájába, megfagy az excel.Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as integer, k as integer
For i=10 to 100 step 2
For k=9 to 100 step 2If Cells(i, 35) = "SZÖVEG" Then
Cells(k, 12) = "SZÖVEG"
End IfNext
Next
End SubKöszönöm a segítséget előre.
Tehát nem az egész excel-t, hanem csak két sort.Új hozzászólás Aktív témák
Hirdetés
- LG 27GR93U-B - 27" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDR 400
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
- AKCIÓ! PC Specialist Recoil VIII 17 notebook - i9 14900HX 16GB RAM 2TB SSD RTX 4060 8GB WIN11
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest