Excelde Boş Satırları Silmek

[physialis]

Öncelikle Merhaba. Forumda Bi sürü Satır Silme Konusu var. Tek tek hepsine Baktım Fakat Benim Sorunum Biraz Daha Farklı.
f5 yapıp boşlukları seçip tamam dediğimde hücre bulunamadı diyor. acil yetiştirmem lazım bunu bi yardımcı olurmusunuz ?

 

[esolen]

Dosyanısı ekleyebilirmisiniz

 

[physialis]

Ekledim .

 

[physialis]

Yokmu bi yardım edebilecek çok acilll

 

[Murat OSMA]

Şu kodları deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 3 Step -1
        If Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty
End Sub

Mesajlarınızda Acil kelimesini yazmamaya dikkat ediniz...

 

[physialis]

Şu kodları deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 3 Step -1
        If Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty
End Sub

Mesajlarınızda Acil kelimesini yazmamaya dikkat ediniz...

bu kodları çalıştıramıyorum ben. Acil bilgisi için teşekkür ederim. Sizden Ricam Varsa Zamanını Düzenliyebilirmisiniz ?

 

[physialis]

Şu kodları deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Range("A65536").End(3).Row To 3 Step -1
        If Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty
End Sub

Mesajlarınızda Acil kelimesini yazmamaya dikkat ediniz...

valla oldu çok teşekkür ederim

 

[Murat OSMA]

İnadına Acil yazdığınızı düşünüyorum ve size bu noktada yardım etmek istemiyorum...

İyi akşamlar...

 

[fatihozcek]

Teşekkürler ben de yazmış olduğunuz koddan yararlandım