- 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
-
Sprite75
tag
válasz Delila_1 #17947 üzenetére
Nem csak 3 munkalapom van hanem kb 30 Van olyan hónap hogy a 30 járműből pl 10 nem tankol abban a hónapban. A példámban B táblázatnak nevezett "lista" munkalapjának a neve "szerkeszt" A járművek külön külön munkalapon vannak, ezek nevei az adott jármű rendszáma A képen amit felraktam csak példa adatok vannak
-
Delila_1
Topikgazda
válasz Sprite75 #17953 üzenetére
Feltételezve, hogy minden lapon az első címsor, a lenti makró elvégzi a szortírozást.
Sub Szortiroz()
Dim lapnev$, sor As Long, usor As Long, usorLap As Long
Application.ScreenUpdating = False
Sheets("szerkeszt").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
lapnev$ = Cells(sor, "A")
usorLap = Sheets(lapnev$).Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(sor, "A"), Cells(sor, "E")).Copy Sheets(lapnev$).Range("A" & usorLap)
Next
Application.ScreenUpdating = True
End Sub[ 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.
-
Vladek83
tag
Sziasztok!
Szükségem lenne egy makróra, de sehogy sem akar összejönni...
- Van egy Userform-om, ami tartalmaz egy 5 oszlopos listboxot (Listbox1).
- Van egy másik Userform ami szintén tartalmaz egy 3 oszlopos listboxot (Listbox2)Azt szeretném, hogy:
- ha a listbox2-ben kijelölök egy sort, nyomógomb segítségével másolja a listbox1-be az adatokat. Úgy hogy:
listbox2 első oszlopa = listbox1 első oszlopa
listbox2 második oszlopa = listbox1 harmadik oszlopa
listbox2 harmadik oszlopa = listbox1 negyedik oszlopaElőre is köszönöm!
Üdv.
-
Delila_1
Topikgazda
válasz Vladek83 #17955 üzenetére
A ListBox1 bemenete nálam a Munka1!A:E oszlopában van, a Listbox2-é a G:I-ben.
Private Sub CommandButton1_Click()
Dim usor As Integer, nev As Variant, WF As WorksheetFunction, WS As Worksheet
Set WF = WorksheetFunction
Set WS = Sheets("Munka1")
usor = Sheets("Munka1").Range("G" & Rows.Count).End(xlUp).Row + 1
nev = ListBox1.Value
WS.Cells(usor, "G") = nev
WS.Cells(usor, "H") = WF.VLookup(nev, WS.Range("A:E"), 3, 0)
WS.Cells(usor, "I") = WF.VLookup(nev, WS.Range("A:E"), 4, 0)
End SubAhhoz, hogy a kiválasztás és a CommandButton1 működtetése után a bevitt adatok meg is jelenjenek a ListBox2-ben, újra kell inicializálnod.
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 Vladek83 #17955 üzenetére
Lehet, hogy nem jól értelmeztem a kérdést, és a ListBox2-ben csak az éppen kiválasztott rekord 3 adatának kell megjelennie, nem egy növekvő lista utolsó sorának a 3 adata. Ebben az esetben a makró
Private Sub CommandButton1_Click()
Dim nev As Variant, WF As WorksheetFunction
Dim WS As Worksheet
Set WF = WorksheetFunction
Set WS = Sheets("Munka1")
nev = ListBox1.Value
WS.Cells(2, 7) = nev
WS.Cells(2, 8) = WF.VLookup(nev, WS.Range("A:E"), 3, 0)
WS.Cells(2, 9) = WF.VLookup(nev, WS.Range("A:E"), 4, 0)
ListBox2.RowSource = "G2:I2"
End SubAzért a G2:I2-be teszem az adatokat, mert az első a címsor, amit a ListBox2-ben megjelenítek (ColumnHeads=True).
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 Vladek83 #17957 üzenetére
Melyik változat jó? Növelje a ListBox2 tartományát, vagy csak az éppen kiválasztott adatok jelenjenek meg benne?
Ha az első, akkor a makró utolsó sora legyenListBox2.RowSource = "G2:I" & usor
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 Vladek83 #17960 üzenetére
Nézd meg az előző hsz-t.
Én pont fordítva gondoltam a leírásodból. Van az ListBox1, ami 5 oszlopos. Ebből kiválasztasz 1 rekordot, aminek 3 adatát bemásol a ListBox2-be. Nem ez a tartomány növekedik?
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 Vladek83 #17962 üzenetére
Átírtam.
Private Sub CommandButton1_Click()
Dim usor As Integer, nev As Variant, WF As WorksheetFunction
Dim WS As Worksheet
Set WF = WorksheetFunction
Set WS = Sheets("Munka1")
usor = WS.Range("A" & Rows.Count).End(xlUp).Row + 1
nev = ListBox2.Value
WS.Cells(usor, "A") = nev
WS.Cells(usor, "C") = WF.VLookup(nev, WS.Range("G:I"), 2, 0)
WS.Cells(usor, "D") = WF.VLookup(nev, WS.Range("G:I"), 3, 0)
ListBox1.RowSource = "A2:E" & usor
End Sub[ 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.
-
Kobe
veterán
sziasztok
remélhetőleg a legutolsó kérdésemmel fordulok hozzátok a jelenlegi makró kapcsán
egy kis formázásbeli problémám lenne. Van 2 fileom, mindkettőben van egy oszlop, amiben 1-999-ig van egy azonosítószám. A két fileban sajna eltérő a formátum, és a vlookup nem igazán tudja kezelni. az egyikben a 13-as pl simán 13 nak van írva, a másikban 013-nak (nem, nem csak a formátuma ilyen, a cellába írt érték maga is 013 ként jelenik meg).
Gondoltam ahol simán 13nak írja, beállítok egy custom formátumot, 000 formában, szépen viszsa is írja a 013 at, de ugye ez csak egy "vizuális" formázás, a cellába írt érték ugyanúgy 13 marad. Nincs valami tippetek hogy tudnám a cellába írt értéket is egy formázással megváltoztatni ?
azért lenne szükségem rá, mert egy komplex azonosítót akarok kreálni, amivel vlookupozok. összefűzöm pl a Városnév-irányítószám kombinációt, és arra keresek. De ugye a különböző formátumok miatt az egyik fileban ez az azonosító így néz ki: Kistarcsa-023 , míg a másikban Kistarcsa-23 , és a vlookup nem talál egyezőséget
-
Delila_1
Topikgazda
Úgy látom, az adataid egy része szöveg, másik része szám.
A =JOBB("0000"&A1;4) képlet mindegyiket szöveggé alakítja. Irányítószámként úgysem akarsz számolni velük.
Ha kész, jelöld ki az új oszlopot, másold, majd irányítottan, értékként illeszd az eredeti oszlopra.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
válasz Delila_1 #17970 üzenetére
köszi, ez így működik is viszont a macskakaparás jelekkel megint gondban vagyok a fenti képletet egy stringben definiáltam:
Code = Code & bla bla bla
Code = Code & "ActiveCell.FormulaR1C1= ""=RC[1]&"""-"""&RIGHT("""000"""&RC[2],3)""" & vbNewLinesajna valahol félrecsúsztak a macskakaparás jelek, és a VBA Expected end of statement üzenetet dob, de nekem minden idézőjel páros "rendben lezártnak" tűnik.
Any guess, hol typoztam el ?
-
Delila_1
Topikgazda
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("B2:B" & usor) = "=right(""0000"" & A2,4)"
másolás, ir. beillesztés, segédoszlop törlése
Columns(2).Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
Columns(2).Delete[ 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.
-
zoli03
őstag
Van egy vonaldiagramom, amin 8 adatsort akarok ábrázolni 2 évre visszamenőleg (2010-es Excelben). Azonban néhány adatsorban egy-két napnál nincs adatom, üres a cella, így viszont ezeknél a vonal megszakad. Hol tudnám azt beállítani, hogy ne szakadjon meg a vonal, hanem folytonos legyen a vonal a két szakadást összekötve?
-
Amilo78
csendes tag
Segítséget kérek!
Adott két db excel tábla!
Mindkettőbe megtalálhatók azonos cikkszámok de az egyikbe mondjuk 10000 cikkszám a másikba 5000 cikkszám van és ehhez kacsolódnak árak is! Hogyan tudom átmásolni a kisebbik exceltáblát a másikba, hogy lecserélje az azonos cikkszámot és a mellette lévő oszlopba melléírja az árakat?
Köszönöm előre is!
-
wjani
tag
válasz Amilo78 #17977 üzenetére
Szia!
Én az FKERES függvényt használnám. A lényege, hogy a 10000 sorosban elhelyezel egy FKERES függvényt, amiben megadod az első helyen, hogy mit keresel. Itt a cikkszám lesz, a második a tartomány, ahol keresni kell a cikket. Itt figyelj arra, hogy benn elegyen az az oszlop is, amit majd el akarsz helyezni a 10000-esben. A következő beviteli mező, itt az 5000-esből a cikkszámtól számított x-ik mező számát kell megadni, ahol az érték van. Az utolsóba én nullát "0" szoktam írni, akkor a nem talált mezőkbe beírja, hogy hiámyzik.
Üdv.
WjaniCoViA Online könyvkereskedés,
-
Sprite75
tag
válasz Delila_1 #17954 üzenetére
Ezt a sort jelzi hibának
usorLap = Sheets(lapnev$).Range("A" & Rows.Count).End(xlUp).Row + 1
Biztosan működne ez csak én nem vágom ezt a macro dolgot.Lehet hogy az is gond, hogy a "példában" amit felraktam A és B neveket adtam a táblázatoknak.
Esetleg elküldhetném neked a konkrét táblázatot valahová? -
Delila_1
Topikgazda
válasz Sprite75 #17979 üzenetére
Küldd el a füzetet, mert nem látom, miért állhatott le hibával. Ha a "szerkeszt" lap A oszlopában nincsenek adatok, akkor sem futhat ennél a sornál hibára, csak az usor változó értéke 1 lesz.
A címet megtalálod az adataimnál.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Jofi81
őstag
Csináltam egy kérdőívet, aminek az eredményeit megkaptam Excelben. Bizonyos kérdésekre adott válaszok alapján kellene a válaszadókat csoportokba sorolnom. Például ha D2 vagy F2 vagy H2 értéke nem "soha", valamint K2,M2,Q2,S2 értéke soha, akkor a függvény értéke legyen "áldozat".
Hogyan tudnám ezt megoldani?
-
Delila_1
Topikgazda
válasz Jofi81 #17986 üzenetére
Az nem derül ki az írásodból, hogyan akarod 4 csoportra osztani. Ha az első 3 "soha" az első csoport, a K és M a második, akkor
=ha(és(d2<>"soha";f2<>"soha";h2<>"soha");1;ha(és(k2="soha";m2="soha");2;""))
Ezt biztosan tudod folytatni. A képlet jobb szélén annyi záró-zárójel legyen, ahány HA szerepel a függvényedben.
Az előbb nem vettem észre, hogy a 3 első NE legyen egyenlő a +soha" szóval.
[ 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.
-
Caipi
tag
válasz Jofi81 #17986 üzenetére
Szia,
Szerintem a HA()-el le tudnád kezelni a 4 csoportot, csak több fgv-t kell egymásba raknod.
Hogy nézne ki a 4 csoportod? Milyen értékeket kell felvennie a 7 oszlopnak, hogy csoportba sorolható legyen az adott sor?
Meg tudod adni ezeket?
Ha nem is a tényleges adataidat, hanem valami hasonlót.Üdv,
CaipiKözben már jött is válasz
[ Szerkesztve ]
-
Jofi81
őstag
D2 VAGY F2 VAGY H2 NEM "soha" ÉS K2,M2,Q2,S2 "soha", akkor a függvény értéke legyen "áldozat"
D2,F2,H2 "soha" ÉS K2 VAGY M2 VAGY Q2 VAGY S2 NEM "soha", akkor a függvény értéke legyen "támadó"
D2 VAGY F2 VAGY H2 NEM "soha" ÉS K2 VAGY M2 VAGY Q2 VAGY S2 NEM "soha", akkor a függvény értéke legyen "agresszív áldozat"
D2,F2,H2 "soha" ÉS K2,M2,Q2,S2 "soha", akkor a függvény értéke legyen "szemlélő"
-
lappy
őstag
válasz Jofi81 #17989 üzenetére
=HA(ÉS(K2="soha";M2="soha";Q2="soha";S2="soha";VAGY(D2<>"soha";F2<>"soha";H2<>"soha"));"áldozat";HA(ÉS(VAGY(K2<>"soha";M2<>"soha";Q2<>"soha";S2<>"soha");D2="soha";F2="soha";H2="soha");"támadó";HA(ÉS(VAGY(K2<>"soha";M2<>"soha";Q2<>"soha";S2<>"soha");VAGY(D2<>"soha";F2<>"soha";H2<>"soha"));"agresszív áldozat";HA(ÉS(K2="soha";M2="soha";Q2="soha";S2="soha";D2="soha";F2="soha";H2="soha");"szemlélő";" "))))
Bámulatos hol tart már a tudomány!
-
wjani
tag
válasz Sprite75 #17981 üzenetére
Szia!
Annyit vettem, észre, hogy Delila_1-nél Ő külön kiválasztja a munkafüzet lapját, majd azon hivatkozik az "usor"-ra.
Te pedig a változóba a lap.cella értéket teszed bele.
Itt kérdés, hogy a lap mögötti dollár jel minek kell oda.Üdv.
WjaniCoViA Online könyvkereskedés,
-
Kobe
veterán
ugy tunik nagyon peches formam van az excellel.....amint megoldom az egyik problemat, jon vele a masik...
Most a valtozatossag kedveert Runtime error 1004.
A koncepcio: van 2 db, strukturajaban es mukodeseben teljesen azonos adatbazisom, csak amsfajta adatok vannak benne nyilvantartva. Mindegyikben ugyanazok a makrok vannak, ugyanugy mukodnek. Hetente kapok 1 excel filet amiben olyan adatok vannak, amiket a 2 adatbazisbol ki tudok halaszni. Az elkepzelt folyamat az lenne, hogy egyik user megnyitja a sajat access adatbazisat, lefuttatja a makrot, ami automatikusan kiszedi es bemasolja az excel fileba az o teteleire vonatkozo adatokat.
Majd user2 fogja a masik adatbazisat, ugyanugy futtat belole egy makrot, ami ugyanabba a fileba a masik tetelekhez bemasolja ugyanazokat az adatokat.
Vagyis 1 fileon szeretnek egymas utan 2 ugyanolyan makrot futtatni ( a subok neve termeszetesen mas, igy nem akadnak ossze). A makro maga beszur egy uj modult az excel fileba, beilleszti a Sub szoveget es lefuttatja.
A problema az, hogy nem tudom egymas utan lefuttatni mind a ket makrot, a masodik (tokmindegy melyik adatbazisbol futtatom elsonek), a masodik mindig Runtime error 1004 hibara fut ennel a sornal:
Set xlmodule = xlbook.VBProject.VBComponents.Add(1) 'vbext_ct_StdModule
vagyis az uj, masodik modult nem tudja hozzaadni az excel filehoz. Ami fura, hogy neha meg szokott mukodni, csak nem tudtam rajonni a semara. Szerintetek mi okozhatja ezt altalanossagban ? miert nem tud uj modult berakni egy mar leteze fileba, amikor egy ugyanolyan makro mar meg tudta csinalni ?
[ Szerkesztve ]
-
Geryson
addikt
Sziasztok! Tiszta idióta és érthetetlen hibával találkoztam. Adott egy FKERES függvény:
=FKERES(F2;Forrás!A:B;2;HAMIS)
A F2-ben a keresendő érték: 10463
A "Forrás" lap így épül fel:
LOT ÁR
01701 209 000
8709 223 000
8724 237 000
9756 196 000
10027 165 000
10081 235 886
010202 221 000
10325 195 623
10327 192 850
10463 171 100Láthatóan ott van a 10463-hoz tartozó érték is, mégsem hoz eredmény és "HIÁNYZIK" hibaüzenetet ír be. A függvény kb. 1000 cellánál van alkalmazva és olyan 30 cellánál csinálja ezt, azaz azt, hogy van található érték, mégsem hozza. Miért teszi ezt velem az Excel egész napos szenvedés után?
[ Szerkesztve ]
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Jofi81 #17998 üzenetére
A DARABHATÖBB függvényt kell alkalmaznod. Azt már írtad, hogy a fiú-lány érték a C oszlopban van. A másik feltételt a D oszlopba tettem. A képen a H2 cella képlete látszik a szerkesztőlécen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- Fujifilm X
- További aktív témák...
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!