Resim İçermeyen Satırları Silme

[dogu34]

Merhaba
Sayfa 1 de A sütununda 1.Satırdan,1.500 üncü satıra kadar resimlerim var. Fakat bazı satırlarda aralarda resim bulunmuyor.A sütununda Resim bulunmayan satırları silmenin kod ile bir yöntemi varmıdır?
Yardımcı olursanız sevinirim.Şimdiden teşekkürler.

 

[RBozkurt]

Kod harici,

Resim yoksa hücre boştur.

A sütunu seçiniz.
F5'e basın ve açılan listeden Boşlukları seçin
Klavyeden 'Ctrl' ve - tuşlarına basın,

Muhtemelen çözülür..

**

Deneyiniz,

Sub Sil()
    Dim c As Range
    For Each c In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If c.Value = "" And c.Pictures.Count = 0 Then
            c.Delete Shift:=xlUp
        End If
    Next c
End Sub

 

[dogu34]

Kod harici,

Resim yoksa hücre boştur.

A sütunu seçiniz.
F5'e basın ve açılan listeden Boşlukları seçin
Klavyeden 'Ctrl' ve - tuşlarına basın,

Muhtemelen çözülür..

**

Deneyiniz,

Sub Sil()
    Dim c As Range
    For Each c In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If c.Value = "" And c.Pictures.Count = 0 Then
            c.Delete Shift:=xlUp
        End If
    Next c
End Sub

Teşekkürler