DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Üstadlar Konu Hakkında ne yapabiliriz.
Kolay Gelsin
Option Explicit
Sub boş_sil_61()
Dim ts, kaplan, trabzonspor
trabzonspor = Cells(Rows.Count, "A").End(xlUp).Row + 1
For ts = 1 To trabzonspor
If Cells(ts, "A") = "" Then
Rows(ts).Delete
End If
Next
End Sub
Teşekkürler Ustadım Eline ve Yureğine Sağlık