-
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
- 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
- Idő előtt felbukkant a Galaxy A57 egy európai webshopban
- Konzolokról KULTURÁLT módon
- Xbox Series X|S
- Facebook és Messenger
- OpenMediaVault
- Fejhallgató erősítő és DAC 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!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- BESZÁMÍTÁS! ASRock B450M R5 5600X 16GB DDR4 512GB SSD RTX 4070 12GB DeepCool CC560 CoolerMaster 750W
- NEO-t vennél? NE TEDD!!! KÉSZLETKISÖPRÉSI UltraAkcióóó! Air M4 16GB 256GB Garancia - több színben!
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4567
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50