Hirdetés
- GoodSpeed: Te hány éves vagy?
- Klaus Duran: Minden drágul. Vajon a fizetések 2026-ban követi minimálisan?
- weiss: Autó költségek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Personal notes '12
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Geri Bátyó: Agglegénykonyha 12 – Ecetek és zsiradékok
- ldave: New Game Blitz - 2026
- leslieke: leslieke farmerzsebe
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
Vladek83
tag
Sziasztok,
esetleg van lehetőség webes felületen elérni/használni makrókkal telitűzdelt táblázatot..?
Nézegettem, de sajnos nem igazán jártam sikerrel..
Próbának néztem egy oldalt, de nem kicsit túlárazott..üdv,
-
Vladek83
tag
válasz
Fire/SOUL/CD
#43644
üzenetére
Szia,
köszönöm!
a 2. pontot próbáltam.. nem lett siker.
Viszont a többit tesztelem!
üdv,
-
Vladek83
tag
Sziasztok!
Megoldható a következő makróval?
A következőt szeretném elérni / automatizálni, egyenlőre nem találtam megoldást:
- a 15.sorban lévő adatok kerüljenek a felette lévő üres sorokban 9. sorig.
- a 20.sorban lévő adatok kerüljenek a felette lévő üres sorokban 16. sorig.
- a 23.sorban lévő adatok kerüljenek a felette lévő üres sorokban 21. sorig.
stb..Ui.: remélem érthetően írtam le...
üdv,
szerk.: elnézést, csak a "D" oszlopig tartalmazó adatokra lenne szükség, nem egész sorra.
-
Vladek83
tag
Sziasztok!
Valakinek lenne javaslata, hogy miért kapom ezt a hiba üzenetet? Esetleg valamit engedélyeznem kellene vagy letöltenem..? Makrók engedélyezve vannak...
Compile error:
Can't find project or libary
3 gépen próbáltam, az egyik gépen le fut a makró hiba nélkül.., a másik kettőn letérdel....
Excel 2013
-
-
Vladek83
tag
Sziasztok!
Lenne egy kérdésem:
Van egy halom képletem ami egy másik munkalapra hivatkozik (egy munkafüzeten belül). Hogy tudnám egyszerűen megoldani, hogy egy másik munkalapon keressen? Munkalap név átírással nem sikerült, nem szeretném újra egyesével végig pásztázni...Pl.: =Munka2!B2
üdv,
-
Vladek83
tag
Sziasztok!
Feltételes formázással kapcsolatban lenne kérdésem:
Miért nem jelöli ki az adott tartományban "szürkével"? Csak az "A9" cellát színezi...
Ha úgy adom meg, hogy ( Képlet=$Q$9=2 ) akkor minden jó..
Azért gondoltam kivenni a "$" jeleket, mert másolnom kellene...
üdv,
-
Vladek83
tag
-
Vladek83
tag
Sziasztok!
Adatok érvényesítésében (legördülő listában), aktuális értékek kiíratására van lehetőség?
Pl.: A1-A10 = szöveg, szám ami változhat
A15 = legördülő lista (A1-A10 értékek)Utólagosan a felhasználó átírhatja az A1-A10 celláiban szereplő értékeket. A cél az lenne, hogy ne keljen újból kiválasztani a legördülő listából.
-
Vladek83
tag
válasz
Fferi50
#26933
üzenetére
A két oszlopban, előfordulhat azonos karakter és mind a két lehetőséget (amit írtál) kellene mutatnia. Mikor leüti a következő betűt vagy számot, akkor már csak azokat a sorokat mutassa ahol az a kettő karakter megtalálható... ( a kis és nagybetűt hagyja figyelmen kívül ) Remélem mindent leírtam
-
Vladek83
tag
Sziasztok!
Macro nélkül meglehet oldani a következőt ( azért lenne jó, mert kellene tudnia a libreoffice-nak is kezelni) ?
Adott egy munkalap 2 oszloppal "cikkszam" , "megnevezes"
Van egy állandó cella pl: B2 ide írná be a felhasználó a keresett kifejezést és csak azokat a sorokat mutatná, ahol egyezés található (egy szűrés lenne).
-
Vladek83
tag
válasz
Fferi50
#25797
üzenetére
Szia,
köszi, de nem erre gondoltam. Lehet én nem írtam le egyértelműen.
a következő makró fut le:
Sub Nyomtatas()
Dim s As Integer
s = Range("AJ31")
Range("A1:O" & s + 32).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & s + 32
Range("a2").Select
End Subamit szeretnék, hogy az úgynevezett "fejléc" lenne a 2. oldaltól kezdve az A30 : O30-ig levő tartomány.
-
Vladek83
tag
Sziasztok!
Olyan függvény, macro létezik ami egy adott szóra keresne rá és az alatta lévő értéket adná vissza?
- az "A" oszlopban a "Termék" szó (többször is előfordul) alatti értékeket kellene kiírnia (pl: a "G" oszlopba).
Mindig változik a munkalap tartalma ill. neve is.
Válaszokat előre is köszönöm.
-
Vladek83
tag
Sziasztok!
Egy kicsit elakadtam...
Van egy Userform-om, amin többek közt van egy listbox. Nos ez a listbox ( öt oszlopos lenne ) venné az adatokat egy munkafüzetből.
Úgy, hogy kikeresné az adatokat:első oszlopba:
- az "A" oszlopból a "Tétel szám" alatti értékmásodik oszlopba:
- az "A" oszlopból a "Termék" alatti értékés így tovább....
Megj.: az "A" oszlopban többször is előfordulhat a "Tétel szám" , "Termék".
Ötleteket előre is köszönöm!
-
Vladek83
tag
Sziasztok!
Kérnék egy kis segítséget, van egy macro, ami egy combobox-ba gyűjti az adatokat, viszont 2 részre szeretném osztani a combobox tartalmát. A columncount-ot hiába állítom 2-re, semmi...?
Macro részlet (sajnos nem az én szerzeményem):
'ha létezik akkor végignézzük a lap A-oszlopát tételszámokért
If wsKorabbiVevo > 0 Then
c = 0
With Sheets(wsKorabbiVevo)
'kikeressük az utolsó sort
vLastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To vLastRow
'ha a sorban ez a szöveg, akkor alatta van amit keresünk
If .Cells(i, 1).Value = "Tétel szám" Then
c = c + 1
If c = 1 Then
ReDim arrayTetelSzamok(1 To 1)
arrayTetelSzamok(1) = CStr(.Cells(i + 1, 1).Value) & " " & CStr(.Cells(i + 3, 1).Value)
Else
ReDim Preserve arrayTetelSzamok(1 To c)
arrayTetelSzamok(c) = CStr(.Cells(i + 1, 1).Value) & " " & CStr(.Cells(i + 3, 1).Value)
End If
End If
Next i
End With -
Vladek83
tag
Sziasztok!
Elakadtam egy kicsit.... van egy Textbox amibe elkezdek írni, akkor a Listbox-ban keresi az adott értéket, ez idáig működik is. Viszont azt meg lehetne oldani, hogy ha olyan értékek kerülnek beírásba ami nem szerepel a Listbox-ba, akkor semmi se látszódjon benne? Mondjuk ez már csak "kozmetika" lenne...
Private Sub TextBox1_Change()
'Cikkszám szerinti keresés
Dim i As Long
Dim sFind As StringsFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.lbArlista.ListIndex = -1
Me.lbArlista.TopIndex = 0
Else
For i = 0 To Me.lbArlista.ListCount - 1
If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
Me.lbArlista.TopIndex = i
Me.lbArlista.ListIndex = i
Exit For
End If
Next i
End IfEnd Sub
-
Vladek83
tag
Sziasztok!
Egy kis segítségre lenne szükségem:
Van egy UserForm-om és adatokat szeretnék kiíratni a táblázatba. Na most idáig eljutottam:
With Worksheets("Kigyujtes").Range("A8")
.Offset(RowCount, 0) = Me.TextBox3.Value
.Offset(RowCount, 2) = "=vlookup(A,Táblázat1,2,0)"Az "A8" cellától írná ki a tételeket újabb sorokba.
Viszont az FKERES függvény fog ki rajtam, hogy hogyan kellene hivatkoznom az "A" oszlop aktuális sorára..Megj.: remélem valamennyire érthetően írtam le
-
Vladek83
tag
Sziasztok!
Van egy Macro, ami szűr ill. nyomtatási képet generál.
Ha a "lapvédelem" nincs bekapcsolva szépen teszi a dolgát, viszont ha bekapcsolom akkor hibára fut... A lényeg, hogy ne tudjanak beleírni/törőlni az adott cellákba..... Már a lapvédelemnél már mindent próbáltam, de nem akar összejönni... Valakinek esetleg ötlete? -
Vladek83
tag
Sziasztok!
Segítséget szeretnék kérni:
Van egy UserForm ami tartalmaz egy listbox-ot ( 5 oszlopos ), illetve egy textbox-ot (ebben szeretném megjeleníteni az adott értéket, ami a listbox-ban van ( első oszlopban lévőket ).
Van egy makro, ami megkeresi a listbox-ból az értéket, ami szintén ehez a textbox-hoz van rendelve.Ez működik is, csak ha a listbox-ból választom ki akkor nem jeleníti meg...Dim i As Long
Dim sFind As StringsFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.lbArlista.ListIndex = -1
Me.lbArlista.TopIndex = 0
Else
For i = 0 To Me.lbArlista.ListCount - 1
If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
Me.lbArlista.TopIndex = i
Me.lbArlista.ListIndex = i
Exit For
End If
Next i
End IfIf lbArlista.ListIndex >= 0 Then
Me.TextBox1.Value = Me.lbArlista.List(i, 1)előre is köszönöm
-
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.
-
Vladek83
tag
Sziasztok!
Van egy makró, azt szeretném elérni, hogy amikor változik a lapon A "H1" cella értéke, akkor az Userformon Textboxon írja ki az aktuálisat.
Private Sub UserForm_Initialize()
Me.TextBox1.Text = CStr(ThisWorkbook.Sheets("Munka1").Range("H1").Value)
End SubElőre is köszönöm.
Üdv.
-
Vladek83
tag
válasz
Excelbarat
#16699
üzenetére
Köszönöm, kipróbálom majd!
-
Vladek83
tag
válasz
Excelbarat
#16650
üzenetére
Meg lett a rejtély... Activex vezérlőt kell használni az userform behívásánál nem pedig sima vezérlőgombot és már jó is. Azért köszönöm a válaszodat.
-
Vladek83
tag
válasz
Excelbarat
#16650
üzenetére
Szia!
Köszönöm.
Szükségem lenne erre a módszerre mert van kb 30 lapom...
Teszteltem amit írtál, de sajnos nem működik tökéletesen, Üres munkafüzeten próbáltam.
Ami megfigyelhető, ha Munka1 lapról behívom az userformot (nyomógomb segítségével) és kiválasztom a Munka1 választó gombját akkor tökéletes. Ha a Munka2 választó gombját választom elnavigál oda, viszont semmit sem tudok csinálni a lapon...... biztos valami beállítás kérdése lehet..érdekes...? -
Vladek83
tag
Sziasztok!
Valaki tudna rá megoldást, biztos egyszerű, de nem jövök rá.....?
Van egy Userform lapom amin választó gombok szerepelnek. A szerepük, hogy egy adott lapot nyissanak meg majd az űrlapot zárja be. Van egy makró csak olyan mintha nem lenne aktív az adott lap ( nem lehet írni, görgetni stb. )
Private Sub OptionButton1_Click()
Sheets("Munka1").Select
Kezdolap.Hide
End SubElőre is köszönöm.
-
-
Vladek83
tag
Szia Mutt!
Köszönöm!!
'az aktuális fájlnévet használjuk mentendőhöz
FileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(FileExt) - 1)Azt, hogy tudom megcsinálni, hogy a fájl nevet én adjam meg, mert egy nap többször lesz mentés?
Már próbálgattam, de nem akar össze jönni....Köszi előre is!
-
Vladek83
tag
Sziasztok!
Kérdésem a következő lenne:
Van egy cella ami legördülő listát tartalmaz (érvényesítésben), hogy tudom azt másolni (hivatkozni) tovább, egy másik cellába (ne csak értéket adjon, hanem a listát adja vissza)? "HA" függvénnyel próbálkozok, de csak értéket ír ki.....
Előre is köszönöm!
-
Vladek83
tag
válasz
Delila_1
#15817
üzenetére
Köszönöm, tökéletes!
Még egy rövid kérdésem lenne:
Melyik szakirodalmat lenne érdemes megvennem ( haladó szinten járhatok )
http://www.libri.hu/konyv/excel-haladoknak.html
http://www.libri.hu/konyv/makrohasznalat-excelben.html
Vagy, ha tudnál ajánlani valami mást, azt szívesen venném!
-
Vladek83
tag
válasz
Delila_1
#15815
üzenetére
Szia!
Huu, majdnem erre gondoltam, nem fogalmaztam meg rendesen...
Pl.:
- az "A1" cella tartalma "autók"
- alatta pl. "A15-ig" fel vannak sorolva ( Fiat, Ford...)
- az "A16" cella tartalma "motorok"
- alatta pl. "A25-ig" fel vannak sorolva ( Honda, Suzuki...)- klikkeléssel lehessen nyitni, zárni a tartalmakat... ( az "A1,A16-os cella tartalmát )
Még egyszer köszönöm!
-
Vladek83
tag
Tisztelt Mindenki!
1. Olyan kérdésem lenne, hogy van egy táblázatom ami több lapból áll (jan,febr...). Az A1 cella tartalmaz érvényesítési listát (pl.: alma, körte), most ha elfogy valamelyik, akkor üres cellát kell, hogy adjon, viszont szeretném továbbra is a listából kiválasztani az adott gyümölcsöt. HA függvénnyel próbálkoztam, de sajnos nem működik...
2. Illetve még azt kérdezném, hogy lehet a HA függvénnyel, egy adott szóból 4 betűre keresni? A nem pontos egyezések kikerülése végett.
Előre is köszönöm!
Köszönöm! 
Új hozzászólás Aktív témák
- Samsung Galaxy S23 Ultra - non plus ultra
- Tízezres aksit tuszkolt a Honor a Power 2-be
- Gaming notebook topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Egyéni arckép 1. lépés: ARCKÉPHEZ VALÓ JOGOSULTSÁG
- Kormányok / autós szimulátorok topikja
- Filmvilág
- CES 2026: Teljesen szürreális lett az ASUS asztali gamer PC-je
- exHWSW - Értünk mindenhez IS
- Mesterséges intelligencia topik
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- 10 Darab ÚJ PC Játékszoftver
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Újévi áron! :)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest