bordrodan banka listesine aktar

[sirkülasyon]

ekli dosyamda bordro sayfasında var olan isimlerin
adı , tc ve ödenen tutarı bordro sayfasından Banka ıban numarasını ise personel sayfasından alacak ve aktaracak makro koduna ihtiyacım var. Rica etsem yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Banka_Listesi()

    Dim Sb As Worksheet, Sp As Worksheet, i As Long, c As Range, sat As Long

    Set Sb = Sheets("Bordro")
    Set Sp = Sheets("Personel")
    
    Application.ScreenUpdating = False
    Sheets("Banka Listesi").Select
    Range("B9:H" & Rows.Count).ClearContents
    
    sat = 9
    For i = 9 To Sb.Cells(Rows.Count, "D").End(xlUp).Row Step 6
        Cells(sat, "B") = sat - 8
        Cells(sat, "C") = Sb.Cells(i, "C")
        Cells(sat, "D") = Sb.Cells(i, "D")
        Cells(sat, "H") = Sb.Cells(i + 4, "O")
        Set c = Sp.[C:C].Find(Sb.Cells(i, "C"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(sat, "F") = Sp.Cells(c.Row, "F")
        End If
        sat = sat + 1
    Next i
    
End Sub

 

[sirkülasyon]

Ömer Abi çok teşekkür ederim. Sağ olasın