- iPhone topik
- Xiaomi 13 - felnőni nehéz
- Honor 200 Pro - mobilportré
- Szívós, szép és kitartó az új OnePlus óra
- Xiaomi 15 - kicsi telefon nagy energiával
- Fotók, videók mobillal
- Android alkalmazások - szoftver kibeszélő topik
- Apple iPhone 16 Pro - rutinvizsga
- Keretmentesít a Galaxy S25 FE
- Magyarországon is kapható a Moto G85 5G
-
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
-
Delila_1
veterán
válasz
jaja1981 #21218 üzenetére
Nem kell a sok változó, a kritériumnál megadhatod a csillagokat.
A szűrt tartományt a Munka2 lap A1-be másolja.Sub Szur_Masol()
ActiveSheet.Range("$A$3:$N$15000").AutoFilter Field:=1, Criteria1:="*" & Range("I1") & "*"
Range("A3").Select
Selection.CurrentRegion.Copy Sheets("Munka2").Range("A1")
End Sub -
Delila_1
veterán
válasz
jaja1981 #21216 üzenetére
A laphoz kell rendelned a makrót.
A makró a H1 cella változására szűri, vagy nem az A oszlopot.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
If Range("H1") > "" Then
Selection.AutoFilter Field:=1, Criteria1:=Range("H1")
Else
Selection.AutoFilter Field:=1
End If
End If
End SubBeírod a H1-be a keresett értéket, indul a szűrés. Ha kitörlöd a cella értékét, minden sorod látható lesz.
A Field:=1 határozza meg, hogy a tartományod első oszlopát akarod szűrni.
A saját igényeidhez a H1 és a Field értékei kell módosítanod.
Új hozzászólás Aktív témák
Hirdetés
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
- Huawei Nova Y70 128GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! ASUS MAXIMUS VIII HERO Z170 chipset alaplap garanciával hibátlan működéssel
- LG 27UL500-W - 27" IPS - 3840x2160 4K - 60Hz 5ms - HDR10 - AMD FreeSync - 300 Nits - sRGB 99%
- Telefon felvásárlás!! Samsung Galaxy S25, Samsung Galaxy S25 Plus, Samsung Galaxy S25 Ultra
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest