satır silmek

[deasn]

Selam arkadaşlar ek dosyada programdan alınmış aylık fatura dökümü mevcut. İstediğim sarı ile renklendirilmiş alanları bütün sayfada bulunan o kısmı yani otomatik olarak nasıl silebilirim ?

 

[Murat OSMA]

Sayfayı kopyalayın ve deneyin..

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

 

[deasn]

Çok ama çok tşk ederim saolun iyiki varsınız..

 

[Murat OSMA]

Rica ederim, iyi günler...