Soru Veri Güncelleme İçin Yardım

[akayaloglu]

Merhabalar
Ekte veri güncelleme ile ilgili bir çalışmam var. Lakin nasıl yapılacağını bulamadım. Yardımcı olursanız sevinirim. Kolay gelsin

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub guncelle()
son = WorksheetFunction.Max(12, Cells(Rows.Count, "A").End(3).Row)
For kod = 2 To 4
    If WorksheetFunction.CountIf(Range("A11:A" & son), Cells(2, kod)) > 0 Then
        sat = WorksheetFunction.Match(Cells(2, kod), Range("A1:A" & son), 0)
        Cells(sat, "B") = Cells(3, kod)
        Cells(sat, "C") = Cells(4, kod)
        Cells(sat, "D") = Cells(5, kod)
    Else
        Cells(son + 1, "A") = Cells(2, kod)
        Cells(son + 1, "B") = Cells(3, kod)
        Cells(son + 1, "C") = Cells(4, kod)
        Cells(son + 1, "D") = Cells(5, kod)
        son = son + 1
    End If
Next
        
End Sub

 

[akayaloglu]

Elinize emeğinize sağlık. Çok güzel olmuş. Teşekkürler