F Sutunuda Tarİh Yoksa

[ildizim]

F Sutununda Tarİh Yoksa (17.12.2004) Gİbİ O Satirin B C D E F Sutununu Sİlmek İstİyorum Ufak Bİr Macroyla Nasil Yapilabİlİr?

 

[Orion1]

Merhaba.
Aşağıdaki kodu yazarak denermisiniz?

Sub sil()
Dim sonsat As Long, i As Long
basla:
    sonsat = Cells(65536, "B").End(xlUp).Row
    For i = 1 To sonsat
        If Not IsDate(Cells(i, "F").Value) Then
            Rows(i).Delete
            GoTo basla
        End If
    Next
End Sub

 

[ildizim]

teşekkürler ama verdiğiniz kodda f de tarih olmayan satırları uçuruyor. ben satırı silmesini değil, o satırın içerigin b c d e f alanlarının içeriğini temizlenmesini stiyorum

 

[hamitcan]

Rows(i).Delete 'satırını

Rows(i).ClearContents 'şeklinde değiştirin.

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Sub sil()
Dim sonsat As Long, i As Long
basla:
    sonsat = Cells(65536, "B").End(xlUp).Row
    For i = 1 To sonsat
        If Not IsDate(Cells(i, "F").Value) Then
            Range(Cells(i, "B"), Cells(i, "F")).Delete (xlUp)
            GoTo basla
        End If
    Next
End Sub