nasıl bir kod

[herguder]

göndermiş olduğum çalışmada aktar için nasıl bir kod yazılmış kendi çalışmamda kullanmak için lazımdı. teşekkürlür.

 

[AS3434]

Sn herguder

Programın Kod Sayfasının Şifresini, programı yazan arkadaştan alırsanız, nasıl bir kod olduğunu bizde öğreniriz, sizde.

 

[herguder]

Sub AKTAR()
[L8:AP65536].ClearContents
For X = 8 To [A65536].End(3).Row
Son_Gün = Day(DateAdd("m", 1, [L5] - (Day([L5]) - 1)) - 1) + 11
For Y = 12 To Son_Gün
If Weekday(Cells(5, Y), 2) = Cells(7, 4) Then Cells(X, Y) = Cells(X, 4)
If Weekday(Cells(5, Y), 2) = Cells(7, 5) Then Cells(X, Y) = Cells(X, 5)
If Weekday(Cells(5, Y), 2) = Cells(7, 6) Then Cells(X, Y) = Cells(X, 6)
If Weekday(Cells(5, Y), 2) = Cells(7, 7) Then Cells(X, Y) = Cells(X, 7)
If Weekday(Cells(5, Y), 2) = Cells(7, 8) Then Cells(X, Y) = Cells(X, 8)
If Weekday(Cells(5, Y), 2) = Cells(7, 9) Then Cells(X, Y) = Cells(X, 9)
If Weekday(Cells(5, Y), 2) = Cells(7, 10) Then Cells(X, Y) = Cells(X, 10)
Next
Next
End Sub
SAYIN COST CONTROL YAPMIŞ SAĞOLSUN