- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Facebook és Messenger
- SUSE Linux
- Rendszergazda topic
- Sweet.tv - internetes TV
- Kibővítik a várost az ASML kedvéért
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Alternatív kriptopénzek, altcoinok bányászata
- Windows 11
-
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
-
Mittu88
senior tag
válasz
coldfirexx #28249 üzenetére
Sub adattorles()
Dim i as integer
Dim j as integerWorksheets("Alapadatok").Activate
j = 0
i = 0
Do
i = i + 1
If Cells(i, 31).value = "A szerződés előző évben lejárt" then 'A 31 az AE oszlop száma
Cells(i, 31).entirerow.delete
i = i-1
j = j + 1
End if
Loop until Cells(i, 1).value = "" 'Addig megy az első oszlopon végig, amíg nem talál üres cellátMsgbox "A művelet sikeresen lefutott, " & j & " sor került eltávolításra", vbokonly
End sub
Új hozzászólás Aktív témák
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Amlogic S905, S912 processzoros készülékek
- Kupon kunyeráló
- Samsung Galaxy S23 Ultra - non plus ultra
- Honor Magic6 Pro - kör közepén számok
- MediaTek lapkával érkezhet a következő Samsung csúcstablet
- Kerékpárosok, bringások ide!
- Holnap mutatkozik be a HTC új készüléke
- Gaming notebook topik
- Kínai, és egyéb olcsó órák topikja
- További aktív témák...