Makro ile düşeyara

[burhancavus61]

Aşağıdaki kod ile düşey arama yaptırıyorum veriler Maaş_Verileri sayfasına 295. satıra kadar geliyor fakat E sütunudaki verilerim 836 satır. 295 satırdan sonrasına verileri işlemiyor nedendir acaba. Forumdaki kodlardan düzenleyerek yaptım sanırım bi yerde hata yapıyorum.

Sub Duseyara_Per_Bord()
    Dim s1 As Worksheet, s2 As Worksheet, i As Long, c As Range, sat As Long
    
    Set s1 = Sheets("Personel")
    Set s2 = Sheets("Maaş_Verileri")
    
    Application.ScreenUpdating = False
    s2.Select
    Range("U2:W" & Rows.Count).ClearContents
    
    sat = 2
    
    For i = 2 To s1.Cells(Rows.Count, "E").End(xlUp).Row
        Cells(sat, "U") = WorksheetFunction.VLookup((Cells(sat, "E")), Worksheets("Personel").Range("B:K"), 2, 0)
        Cells(sat, "V") = WorksheetFunction.VLookup((Cells(sat, "E")), Worksheets("Personel").Range("B:K"), 8, 0)
        Cells(sat, "W") = WorksheetFunction.VLookup((Cells(sat, "E")), Worksheets("Personel").Range("B:K"), 9, 0)
        sat = sat + 1
    Next i
End Sub

 

[Mdemir63]

Selamlar

Sayın @burhancavus61 sat değişkenini ne için kullandınız anlayamadım. zaten sat yerine döngüdeki i değişkenini kullanabilirdiniz.

 

[burhancavus61]

Bende bilmiyorum örnek kodlardan faydalandım ne işe yaradığınıda bilmiyorum

 

[burhancavus61]

teşekkürler çözdüm