- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
-
IT café
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
-
RAiN91
őstag
Sziasztok
Van egy táblázatom számokkal, A1:X10-ig pl.
Egy for-next ciklust szeretnék végigfuttatni úgy, hogy először az első soron (A1:A10) ig fusson, majd ha lefutott, menjen a 2. sor (B210), és így tovább.
Hogyan lehetne ezt megvalósítani? Én csak addig jutottam, hogy a sorokban vízszintesen fut, de a következő sort kézzel kell beírnom (k=1, 2, 3 stb.)
Köszönöm előre is a segítséget!
Sub asd()
k = 1
For i = 10 To 2 Step -1
If Cells(k, i) > Cells(k, 2) * 1.15 Then
Cells(k, 64) = Cells(k, i)
End If
Next
End Sub -
bozsozso
őstag
Sziasztok,
Lenne egy elég nagy excel táblám.
1.oszlop cikkszám
2.oszlop másodlagos cikkszám
3.oszlop ár
4. oszlop dátum1 cikkszámhoz több másodlagos cikkszám tartozhat minden másodlagos cikkszámhoz tartozik egy ár és egy dátum. Egy másik munkalapon szerepelnek cikkszámok ide szeretném megtalálni azt az árat ami a legfrissebb dátummal rendelkezik.
Ezt el lehetne valahogy érni képletekkel vagy csak makróval?
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz bozsozso #41108 üzenetére
Következetesebb, ha a képletekben nem adjuk meg a sorszámokat, csak az oszlopjelölőket.
{=MAX(HA(Munka1!$A:$A=A3;Munka1!$D:$D))}
=INDEX(Munka1!$A:$D;HOL.VAN(C2;Munka1!E:E;0);3)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
logitechh
csendes tag
válasz Delila_1 #41105 üzenetére
Köszi a fáradozásod
Sajna már ott elakadtam, hogy tudom előhívni. Természetesen Google barátom majd megtanít.
Így kérdezésemmel sem zaklatlak hisz nem lenne fair.
És ha megszerzem az alap ismereteket majd zaklatlak.
Azt hittem pikk pak átírok egy két számot és joe vagyok -
ny.janos
tag
válasz bozsozso #41106 üzenetére
Korábban én is hasonló megoldást kerestem (annyival bonyolítva, hogy nem a legfrisebb, hanem egy adott dátumot megelőző utolsó - érvényes árat kerestem), így jól emlékszem, hogy kaptam akkoriban egy linket, amely sokat segített a megoldásban. ExcelIsFun ugyanis elég részletesen boncolgatta a témát, több megoldást is bemutatva. Az excel fájlt a megoldásokkal itt találod. ExcelIsFun youtube csatornáján pedig megtalálod a hozzátartozó videókat.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz logitechh #41115 üzenetére
Arra van a példa, hogy minden adatot az első üres sorba rögzíts (usor változó). Ha mindig ugyanabba a cellába akarod rögzíteni, akkor a
'Felírás a Munka1 lapra
usor = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row + 1
For oszlop = 1 To 5
Sheets("Munka1").Cells(usor, oszlop) = Controls("ComboBox" & oszlop)
Controls("ComboBox" & oszlop) = ""
Next
Sheets("Munka1").Cells(usor, 6) = TextBox1
TextBox1 = ""részt kell átírnod. Nincs szükség az usor-ra, hanem fixen add meg.
'Felírás a Munka1 lapra
For oszlop = 1 To 5
Sheets("Munka1").Cells(2, oszlop) = Controls("ComboBox" & oszlop)
Controls("ComboBox" & oszlop) = ""
Next
Sheets("Munka1").Cells(2, 6) = TextBox1
TextBox1 = ""Így az adtok a 2. sorba kerülnek, a címsor alá.
Megadhatod a felírást a ComboBox change eseményében is:
Private Sub ComboBox1_Change()
Sheets("Munka1").Cells(2, 1) = ComboBox1 'A2 cella
ComboBox1 = "" 'ComboBox1 üresre állítása
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
the radish
senior tag
Sziasztok!
"A" oszlopban:
Horváth János, építész, munkamániás, Bólyi járás, Baranya megye, Dél-Dunántúl, Dunántúl, Magyarország
Kiss Jenő, Hegyháti járás, Baranya megye, Dél-Dunántúl, Dunántúl, Magyarország
Eddmeg Ede, informatikus, korrekt, Kiskunfélegyházi járás, Magyarország
stb...Minden "sallang" egymástól vesszővel el van különítve.
Szeretném az adatokat csak a "XY járás"-ig megtartani, azaz azt, hogy milyen járás, megye, tájék, ország eltüntetni.
Előre is köszönöm! -
mpierre
veterán
Továbbra is várok bármilyen ötletet a korábban felvetett problémámra: [link]
Mozgó átlaggal csak szépen átrajzolja mind a 24 görbét, de nem tudja a 24 db görbe átlagát (1 db eredménygörbe megjelenítése) kiszámolni az excel. Mindezt valószínűleg azért, mert nem fix "x" értékhez rendelt "y" értékekből kel átlagot számolnia, ezért minden egyes görbének az átlagát meghatározza és feldob 24 db átlaggörbét a koordináta rendszerbe.
Íme a görbehalmaz:
#### Scythe Kama Bay AMP 2000 Rev.B + Overnight Sensation hangdobozok + Kanto S6 #### Eladó cuccok: https://hardverapro.hu/aprok/hirdeto/mpierre/index.html ####
-
Delila_1
Topikgazda
válasz the radish #41117 üzenetére
A B1 cella képlete
=BAL(A1;SZÖVEG.KERES("járás";A1)+4)
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #41120 üzenetére
Kijelölöd az A oszlopot, az Adatok | Szövegből oszlopok menüponttal szétválasztod az adatokat, ahol a határoló jel legyen vessző. Ezután egy üres oszlopban összefűzöd a szükséges cellákat.
=A2 & ", " & B1 & ", " & C1
Másolod a képletet tartalmazó oszlopot, majd irányítottan, értékként beilleszted az egy új oszlopba.
Ezzel "csak" az a baj, hogy nem következetesen vannak az adatok az egyes sorokban, nem egységesen mindenhol a 4. adat a járás. Kiss Jenőnél a 2. helyen van. Ezeket egyenként kell javítani. Ha nem lennének ezek az anomáliák, az irányított beillesztés történhetne azonnal az eredeti adatok helyére.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #41122 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz the radish #41120 üzenetére
Szia!
Ha lehet makrót használnod, akkor a következő felhasználói függvény segít:
Function jaras(cl As Range) As String
jaras = Left(cl.Value, InStrRev(Left(cl.Value, InStr(cl.Value, "járás")), ",") - 1)
End Function
Ezt egy modullapra kell bevinned. Használata mint az Excel függvényeké, pl. =jaras(A1)
Ha mind megvan, akkor kijelölöd - másolás - irányított beillesztés - értéket. Így eltűnnek a képletek.
Utána akár ki is törölheted a modullapot.Üdv.
-
Ala
tag
Sziasztok!
Feltételes formázással van lehetőség arra, hogy egy legördülő menüből kiválasztva mondjuk igen nem hatására, bizonyos sorok elrejtésre és vagy felfedésre kerüljenek?
Segítségeteket köszönöm.
-
Fferi50
őstag
Szia!
Ha az elrejtés-felfedés alatt azt érted, amit jelent - a sorok magasságának 0-ra és normálra állítását -, akkor az feltételes formázással nem lehetséges, ahhoz makró kell.
Az adott cella értékének vizsgálatához kötve átállíthatod a betűszínt, kitöltőszínt stb. ezzel "eltüntetheted" a cellában látható szöveget.Üdv.
-
kovacsroli
senior tag
Sziasztok,
szeretnék csinálni egy olyan excel-t, amiben van két munkalap. Az elsőn csak command button-ok vannak, a második pedig egy sima adatgyűjtő tábla.
Az lenne a lényeg, hogy a kollégáknak csak a gombokat kelljen nyomkodni és annak megfelelően a második lapon lévő tábla automatikusan töltődjön azzal a szöveggel, ami a gombok megnevezése. Kb. 8 különböző adat lenne és egyenként 6-10 választási lehetőség. Mindegyik sima szöveg. A második lapon lévő adattáblának folytatólagosan, tehát nem az előző sort felülírva kellene töltődnie.Remélem érthetően írtam és valaki tud segíteni, hogy ennek egyáltalán hogy álljak neki
Ha hülye vagy az olyan mintha meghalnál. Te nem érzed, csak másoknak fáj.
-
Fferi50
őstag
válasz kovacsroli #41127 üzenetére
Szia!
A 6-10 választási lehetőség mind külön gombon lenne vagy hogyan választanának? Mert akkor a 8 gomb nem elég.
Egyébként a gombhoz rendelt makróban kell megkeresned az éppen üres sort és a szükséges cellát, amibe be kell írnod a szöveget.Üdv.
-
Eastman
őstag
Sziasztok,
adott 3247 sor és 16 oszlop A-tól P-ig. Szeretném az L-M-N-O-P oszlopokat soronként egyesíteni, tehát a tartalmuk egy oszlopba kerüljön, de mindegyik maradjon külön-külön sorba. Hogyan a legkönnyebb és leggyorsabb ez a művelet?
https://logout.hu/tema/re_gerincserv_muteti_kezelese/keres.php?suser=Eastman ⮞ Műtét nélkül is lehet megoldás...
-
Eastman
őstag
válasz Eastman #41130 üzenetére
A Q2 cellára lépve, az
=L2&" "&M2&" "&N2&" "&O2&" "&P2
képlettel megoldva. Aztán a cella jobb alsó sarkát lehúztam 3247-ig és egyesítette őket szépen a Q oszlopba, soronként.https://logout.hu/tema/re_gerincserv_muteti_kezelese/keres.php?suser=Eastman ⮞ Műtét nélkül is lehet megoldás...
-
BullZeye
veterán
Sziasztok,
Van egy csomó sorom, tele adattal, és van nagyon sok egyesített cellám. Hogy tudom a lehető legegyszerűbben az egyesített cellákat megszűntetni, és ugyanazt minden cellába belerakni, ami az egyesített cellákban volt?
pl.: A1-A5 ig egyesített a cella, és "alma" van bele írva, szeretném, ha egyesítés után mind az 5 cellába az legyen írva, hogy "alma"
-
Fferi50
őstag
válasz BullZeye #41133 üzenetére
Szia!
Az egyesített cellákat jelöld ki. Jobb egérgomb - cellaformázás - igazítás fülön cellák egyesítésével négyzetből pipa ki (lehet először be, majd utána ki kell).
Ezután kijelölöd az első cellát, megfogod a jobb alsó sarkán levő pontot és elhúzod az eddig egyesített cellákon.Ezek a műveletek működnek úgy is, hogy az összefüggően meglevő - tehát közvetlenül egymás alatt levő - egyesített cellákon alkalmazod. Akkor az első cellák kijelölését kell megtenned és a bal alsó sarki pontot húzni.
Üdv.
-
BullZeye
veterán
válasz Fferi50 #41134 üzenetére
Most vagy félreértem, vagy azt javaslod, hogy egyesével jelöljem ki a több 100 egyesített cellát, majd egyesével húzzam jobbra őket? Mert ezzel tisztában vagyok, ezt szeretném elkerülni, főleg mert ha 300 húzásnál 1x 1 cellát tévedek, és nem veszem észre, annak senki se fog örülni.
-
Fferi50
őstag
válasz BullZeye #41135 üzenetére
Szia!
Ha egymás alatti sorokban vannak egyesített celláid, akkor egyszerre lehet a műveleteket végrehajtani.
De ha jól értem nem ez a helyzet.
Próbáld ki az alábbi makrót, ez a munkalapon valamennyi egyesített cellát felbontja és az első cellában levő értékkel megtölti:Sub felbont()
Dim cl As Range, cla As Range
For Each cl In ActiveSheet.UsedRange.Cells
If cl.MergeArea.Cells.Count > 1 Then
Set cla = cl.MergeArea
cl.UnMerge
cl.AutoFill Destination:=cla, Type:=xlFillCopy
End If
Next
End SubÜdv.
-
Vigilante
őstag
Üdv, egy olyan excel kimutatást akarok csinálni, ami adott oszlopok közül a legkisebb értéket válogatná le, a kimutatások fülön nem a minimum értékeket kapnám már meg, hanem a legkisebb értéket tartalmazó oszlopnak a nevét. Szóval végül nem egy számot, hanem egy szöveget kapnék meg. (pl: Érték 1 - Érték 5-ig bezárólag, ahol a legkisebb az érték azt az oszlopnevet kapnám vissza.)
[ Szerkesztve ]
△ Asrock X570M Pro4 △ AMD Ryzen 9 5950X ~ 4.4GHz - 1.248V +Corsair H115i PRO XT △ EVGA RTX 3090 FTW3 ULTRA GAMING 24GB (1950 MHz/20000MHz) - 0.950V △ G.SKILL 32GB KIT DDR4 3600MHz CL16 - 3600MHz △ Samsung EVO 970 M.2(500GB) +Samsung 980 PRO M.2(1TB) △ Samsung Odyssey G7 C27G75T ívelt 240Hz (27") △
-
lappy
őstag
-
Roxy27
tag
Sziasztok,
van egy Excel, aminek az egyik oszlopa tele van országkódokkal... nekem csak bizonyos országok adataira (soraira) van szükség. Ha normál szűrést használok természetesen OK... csak van 28 munkalap, ahol mindig ugyanarra az oszlopra ugyanazt a szűrési feltételt kellene használni... ezt elég unalmas folyton pipálgatni...
Lenne erre valami okosabb megoldás?
Mert a leszűrt adatokat meg egy másik Excel-be kell bemásolni...
Előre is köszi!Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
Vigilante
őstag
Az Érték 1, Érték 2, Érték 3, Érték 4 és Érték 5 oszlopnál soronként, amelyik alatt van a legkisebb érték (az gondolom egy sima MIN függvény), annak az oszlopnak nevét kapnám vissza egy új fülön.
Pl: Áru 1-nél pl a KICSI(C2:L2;DARABTELI(C2:L2;0)+1) (csak, hogy a 0-s értékeket ne vegye figyelembe), ugye kijönne a 16 450 Ft. És Akkor ebben az esetben az "Érték 9" -et kéne megkapnom a kimutatásomba.
[ Szerkesztve ]
△ Asrock X570M Pro4 △ AMD Ryzen 9 5950X ~ 4.4GHz - 1.248V +Corsair H115i PRO XT △ EVGA RTX 3090 FTW3 ULTRA GAMING 24GB (1950 MHz/20000MHz) - 0.950V △ G.SKILL 32GB KIT DDR4 3600MHz CL16 - 3600MHz △ Samsung EVO 970 M.2(500GB) +Samsung 980 PRO M.2(1TB) △ Samsung Odyssey G7 C27G75T ívelt 240Hz (27") △
-
Delila_1
Topikgazda
válasz Vigilante #41142 üzenetére
L-ig látszanak az oszlopok. Ha több is van, írd át a képletben.
=INDEX(C:L;1;HOL.VAN(MIN(C2:L2);C2:L2;0))
A képletet az első üres oszlop 2. sorába kell beírni.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Vigilante
őstag
válasz Delila_1 #41144 üzenetére
Tökéletesen működik, hogy tovább bonyolítsam a dolgot, a 0-ás értékeket kihagyva. A =KICSI(C2:L2;DARABTELI(C2:L2;0)+1) függvényt felhasználva.
△ Asrock X570M Pro4 △ AMD Ryzen 9 5950X ~ 4.4GHz - 1.248V +Corsair H115i PRO XT △ EVGA RTX 3090 FTW3 ULTRA GAMING 24GB (1950 MHz/20000MHz) - 0.950V △ G.SKILL 32GB KIT DDR4 3600MHz CL16 - 3600MHz △ Samsung EVO 970 M.2(500GB) +Samsung 980 PRO M.2(1TB) △ Samsung Odyssey G7 C27G75T ívelt 240Hz (27") △
-
Vigilante
őstag
válasz Delila_1 #41146 üzenetére
Közben rájöttem, ezzel megy a 0-k kihagyása:
=INDEX(C:L;1;HOL.VAN(KICSI(C2:L2;DARABTELI(C2:L2;0)+1);C2:L2;0))[ Szerkesztve ]
△ Asrock X570M Pro4 △ AMD Ryzen 9 5950X ~ 4.4GHz - 1.248V +Corsair H115i PRO XT △ EVGA RTX 3090 FTW3 ULTRA GAMING 24GB (1950 MHz/20000MHz) - 0.950V △ G.SKILL 32GB KIT DDR4 3600MHz CL16 - 3600MHz △ Samsung EVO 970 M.2(500GB) +Samsung 980 PRO M.2(1TB) △ Samsung Odyssey G7 C27G75T ívelt 240Hz (27") △
-
rukh
aktív tag
Sziasztok!
Légyszi segítsetek: hogyan tudok Excel 2010-ben korfa diagramot létrehozni?
Kösz és üdv,
RukhÜdv mindenkinek, Rukh
-
RedHarlow
aktív tag
Sziasztok!
Hogy tudnám azt makróval megoldani, hogy egy adott függvényt tegyen be minden sor végére (a sor utolsó adata után, soronként változhat) egészen addig ahány sor van.
Új hozzászólás Aktív témák
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- Milyen billentyűzetet vegyek?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- Fujifilm X
- Renault, Dacia topik
- OLED TV topic
- Építő/felújító topik
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- További aktív témák...