-
Fototrend
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
-
Delila_1
veterán
Akkor csináljuk meg automatikusra.
A lenti makrót a lapodhoz kell rendelned. Lapfülön jobb klikk, kód megjelenítése. Bejutottál a VB szerkesztőbe, ott is annak a lapnak a kódlapjára, ahonnan indultál. Jobb oldalon látsz egy szép nagy üres felületet, oda másold be.Private Sub Worksheet_Change(ByVal Target As Range)
Dim usor As Long
If Target.Address = "$G$1" Then
usor = Range("A" & Rows.Count).End(xlUp).Row
If IsEmpty(Target) Then
ActiveSheet.Range("$A$1:$E$" & usor).AutoFilter Field:=1
Else
ActiveSheet.Range("$A$1:$E$" & usor).AutoFilter Field:=1, Criteria1:=Target
End If
End If
End SubArról beszéltünk, hogy 5 oszlopod van. Az első a címsor, ide tegyél be autoszűrőt. A tartományod A1:E(valahány).
Ha a G1 cellába beírod a sorszámot, a szűrő azt az egy rekordot mutatja, ahol az A oszlopban ez a szám szerepel. Beírod az eredményt, adhatod a következő sorszámot a G1 cellába.
Az összes rekord mutatásához töröld a G1 tartalmát. -
Delila_1
veterán
Akkor induljunk el a kályhától.
Van egy névsorod, amiben van 5 oszlopod: sorszám, nem, név, kategória, és idő.
Ebből csak az idő nincs kitöltve. Azt szeretnéd, hogy mikor a futár hozza a sorszámot az idővel, azonnal be tudd írni a gyerek sorának megfelelő oszlopába.Ehhez elég az autoszűrőt bekapcsolnod, kiválasztod a sorszámot, és máris csak az az 1 rekord látszik, ahova az eredményt be kell írnod.
Ha 1 gyerek több kategóriában is indul, akkor azt is hozza a futár, te meg arra az oszlopra is szűrsz.
Új hozzászólás Aktív témák
- MWC 2026: Újból érik a szeder az Unihertz kertjében
- Elegánsan vizezné be a munkaállomásokat az Artic
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- Nem lesz Redmi Note 16, évet ugrik a sorozat
- exHWSW - Értünk mindenhez IS
- Motorola Edge 50 Ultra - szépen kifaragták
- Először beszélt bővebben az új Xbox konzolról a Microsoft
- Párduc a gépben: teszten az ASUS ExpertBook Ultra
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Microsoft és egyéb dobozos retro szoftverek
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Lenovo ThinkPad T14s Gen 2 i5-1135G7 16GB 1000GB FHD 1 év garancia
- Gamer PC-Számítógép! Csere-Beszámítás! I3 14100F / RTX 3070 8GB / 16GB DDR4 / 512 Nvme SSD
- AKCIÓ!! HP Zbook Studio G8 i7-11850H 32GB 1000GB Nvidia Quadro T1200 400NIT, 100% sRGB Garis!
- GYÖNYÖRŰ iPhone XR 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4270, 100% Akkumulátor
- Frissen pasztázva! Playstation 4 Pro 1 TB + kontroller 6 hó garancia, számlával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50