Legfrissebb anyagok
PROHARDVER! témák
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen belső merevlemezt vegyek?
- Milyen notebookot vegyek?
- Vezetékes FEJhallgatók
- Videós, mozgóképes topik
- Androidos tablet topic
- iPad topik
- reMarkable - paper tablet
- Milyen billentyűzetet vegyek?
- Még 2026-ban megérkezik a karcsúsított Commodore 64 Ultimate
Mobilarena témák
IT café témák
-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
Én megfordítanám a dolgot. Az utolsó sortól mennék felfelé addig amíg számot nem találok az adott cellában, ha nem szám van, akkor törölném a sort.
Sub torolo()
Dim usor As Long, xx As Long
usor = Cells(Rows.Count, 1).End(xlUp).Row
For xx = usor To 1 Step -1
If IsNumeric(Cells(xx, 1)) Then Exit For
Rows(xx).EntireRow.Delete
Next
End SubValószínűleg kevesebb a szemét, mint az értékes sor
(A select- eket pedig próbáld meg elfelejteni.)
Üdv.
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
- sziku69: Szólánc.
- Goddess of Victory:Nikke
- Renault, Dacia topik
- PROHARDVER! feedback: bugok, problémák, ötletek
- Xiaomi 15T Pro - a téma nincs lezárva
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Lassan küszöbön a NTE: Neverness to Everness premierje
- Milyen légkondit a lakásba?
- PayPal
- Milyen belső merevlemezt vegyek?
- További aktív témák...
Új fizetett hirdetések
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
Üzleti előfizetők hirdetései
- iKing.hu Apple iPhone 14 Pro 128GB használt Silver 100% akku 6 hónap garancia
- Apple Mac mini M1 (2020) 8GB/512GB használt
- ÚJ Magic Keyboard billentyűzetek/ USB-C - Lighning/ 27% Áfás/ Ingyenes szállítás!
- Nvidia Quadro M2000/ P2000/ P4000/ P5000/ RTX 4000/ RTX 5000/ RTX A2000
- ÚJ! AKRacing Arctica gamer szék
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest