-
IT café
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
-
spe88
senior tag
Hello!
Ez tutira működik? Mit rontok el?
az AG oszlopban lévő OK-okra kell rászűrni és az összes ilyen sort törölni!
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
.AutoFilterMode = False
.Range("ag1:ag1").AutoFilter 'Filter bekapcsolása
.Range("ag1:ag1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:bb1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With
End SubKöszönöm
Spóroljunk! Kerül, amibe kerül!
Új hozzászólás Aktív témák
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Gaming notebook topik
- Computex 2024: még két Socket AM4-es Ryzen jön
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- DIGI kábel TV
- Milyen belső merevlemezt vegyek?
- Melyik tápegységet vegyem?
- Otthoni hálózat és internet megosztás
- Megérkezett Magyarországra az LG 480 Hz-es OLED monitora
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Canva Pro előfizetés - 1 éves