erd5334
Altın Üye
- Katılım
- 26 Nisan 2012
- Mesajlar
- 123
- Excel Vers. ve Dili
- excel 365
- Altın Üyelik Bitiş Tarihi
- 01-12-2026
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = son To 2 Step -1
If IsNumeric(Cells(i, "A")) = False Or Cells(i, "A") = "" Then
Rows(i).Delete
End If
Next
End Sub
çok teşekkür ederim hocam sorunum çözüldüAşağıdaki makroyu deneyiniz. A sütununda sayı olmayan ya da boş olan satırları siler:
PHP:Sub sil() son = Cells(Rows.Count, "A").End(3).Row For i = son To 2 Step -1 If IsNumeric(Cells(i, "A")) = False Or Cells(i, "A") = "" Then Rows(i).Delete End If Next End Sub