- Egyre közelebb a Poco F6 startja
- Ennyibe kerülnek a Huawei Pura modellek Európában
- Fotók, videók mobillal
- Honor Magic5 Pro - kamerák bűvöletében
- iOS alkalmazások
- iPhone topik
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Telekom mobilszolgáltatások
- Termékoldal buktatta le a Huawei Watch Fit 3-at
Hirdetés
-
Az üzleti chatbot lehet az új fejőstehén
it Üzleti chatbotot indított az Anthropic, azt reméli, hogy sok pénz folyik majd be a cégektől.
-
Premier előzetest kapott a V Rising
gp Napokon belül befut a teljes PC-s kiadás, az év során pedig megkapjuk a PlayStation 5 változatot.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
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
-
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!
[ Szerkesztve ]
-
Vladek83
tag
Sziasztok!
Kérdésem a következő lenne:
Van egy csoportosított rész, és azt szeretném, hogy ne csak a (plusz,mínusz) jellel lehessen kibontani. Gondoltam, hogy az egyik cellába írok egy szót majd hivatkozok rá. Sajna így nem működik...
Előre is köszönö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
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
Sziasztok!
Olyan kérdésem lenne, hogy:
Egy munkalapon több diagram szerepel, de én szeretném kiválasztani, hogy melyiket lássam.
Vezérlőelemekkel gombbal próbálkozok, de eddig negatív....Köszönöm előre is.
-
Vladek83
tag
Jó reggelt!
Feladatom a következő lenne:
Egy adott cella tartalmát érvényesíteni szeretném, hogy csak 3 tizedesjegyig lehessen bele írni, és egy figyelmeztető üzenet ugorjon fel, hogyha mást akar írni. Lehet a megoldás egyszerű, de még nem jöttem rá...
-
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
Sziasztok!
Milyen makróval tudnám megoldani?
Van egy munkafüzetem, ami több lapból áll és csak egy adott lapot szeretnék menteni, egy megadott helyre ( képleteket nem, csak értékeket ) Gomb nyomására kérdezze meg, hogy menteni szeretném-e?
Elő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!
Vba-ban Userform űrlapon, ha beillesztek egy képet, lehet formázni (árnyék stb..) vagy külső programmal kell megcsinálnom?
Üdv.
-
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
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
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
Sziasztok!
Kérdésem a következő lenne,
Van egy userform-om amin szerepel listbox
adatok: Rowsource : Munka1!A1: B50
A B oszlopban szűrő szerepel, ezt hogy tudnám aktiválni az űrlapon? Mert így az összes adatot megjeleníti...?
Előre is köszönöm![ Szerkesztve ]
-
Vladek83
tag
válasz Excelbarat #16699 üzenetére
Köszönöm, kipróbálom majd!
-
Vladek83
tag
Excelbarat, Mutt köszönöm mindkettőtök segítségét!!!!
Ü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
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!
Arra valaki megoldást tudna, hogy miért "fagy" le az excel?
Van egy munkafüzetem, ami tartalmaz makrókat űrlapokat, mikor változtatnék egy két dolgon akkor lefagy...
Csak feladatkezelővel tudom bezárni, semmi hiba üzenetet nem kapok.Előre is köszönöm.
-
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
[ Szerkesztve ]
-
Vladek83
tag
Sziasztok!
Kérnék egy kis segítséget...
Van egy táblázatom, ott az első sort rögzítem (látható maradjon), viszont szeretném ugyan ebben a táblázatban 40. sort is rögzíteni... (ez nem sikerül..)
Előre is köszönöm.
-
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!
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!
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!
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[ Szerkesztve ]
-
Vladek83
tag
Sziasztok!
Az lehetséges, hogy a listbox minden második sora pl: szürke legyen?
Előre is köszönöm!
-
Vladek83
tag
Sziasztok!
Tudna valaki súgni, hogy hogyan tudnék frissíteni egy Combobox vezérlőt (adatok frissítése)?
Már guglizok egy ideje, de egyenlőre negatív...Előre is köszönöm!
[ Szerkesztve ]
-
Vladek83
tag
Delila_1, Fferi50: Köszönöm mindkettőtök segítségét. Meglesem és kipróbálom majd.
Üdv.
-
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!
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!
Elakadtam. Nyomtatási képnél, hogy lehet megoldani a következőt?
Minden új lapnál az A30:M30-ig levő tartalommal kezdjen
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- Futás, futópályák
- Star Trek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Milyen CPU léghűtést vegyek?
- Biliárd és snooker topik
- Eredeti játékok OFF topik
- (nem csak) AMD FX / Ryzen tulajok OFF topikja
- Luck Dragon: Asszociációs játék. :)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- További aktív témák...