Soru hatalı satırı düzeltme makrosu

[GursoyC]

Merhaba,
ekli örnek dosyamda gönderdiğim üzere; bir sütunda bulunan isimlerden hatalı olanları kendi üzerindeki ilk hatasız olana çevirmek istiyorum. Yardım ederseniz çok sevinirim.
Herkese iyi haftasonları.

 

[Muzaffer Ali]

Merhaba.

Şu kod ile yapabilirsiniz.

Sub Test()
    Dim Say As Long
    Dim Bak As Long
    Say = Cells(Rows.Count, "L").End(3).Row
    For Bak = 5 To Say
        If IsError(Cells(Bak, "L")) Then
            Cells(Bak, "L") = Cells(Bak - 1, "L")
        End If
    Next
End Sub

 

[GursoyC]

Çok teşekkürler üstadım. Gayet güzel çalışıyor.

Saygılar,