aktar

[polis-53]

Merhaba dostlar ektedki dosyada açıklamayı yaptım bordro yaptığımda o ayın vergi matrahını aktarsın sonraki ayı yaptığımda onuda aktarsın boyle devam edecek.

 

[Huseyinkis]

Merhaba dostlar ektedki dosyada açıklamayı yaptım bordro yaptığımda o ayın vergi matrahını aktarsın sonraki ayı yaptığımda onuda aktarsın boyle devam edecek.

Ekteki Kodu denermisiniz.

Sub aktar()
Set s2 = Sheets("VERGİ MATRAHLARI")
Set s1 = Sheets("BORDRO")
For i = 2 To 13

If s2.Range("a" & i).Value = s1.Range("C1").Value Then
s2.Range("B" & i).Value = s1.Range("C2").Value
End If
Next
End Sub

 

[polis-53]

çök teşekkür ederim oldu