mesai

[sedat2161]

İyi günler arkadaşlar.
Ekli puantajda Ana sayfada bulunan Fazla mesai sırası olan saat,pazar ve bayramı mesai sayfasında bulunan buton yarımı ile ilgili aylara aktarılması mümkünmü. Örneğin bu ay yaptığım 15 Temmuz - 14 Ağustos puantajında bulunan bilgileri Ağustos ayına aktarılsın. İyi Çalışmalar.

 

[Ömer BARAN]

Yanlış anlamıyorsam aşağıdaki kod istediğiniz işlemi yapar.
Ay olarak ANA SAYFA AT5'deki veri doğrulamada seçilen tarih aralığının sağındaki AY'a aktarım istiyorsunuz sanırım.

Sub AKTAR_BARAN()
Set a = Sheets("ANA SAYFA"): Set m = Sheets("MESAİ")
msut = (WorksheetFunction.Match(a.[AT5], a.[E103:E115], 0) - 1) * 3 + 5
a.[AY10:AY78].Copy: m.Cells(4, msut).PasteSpecial Paste:=xlPasteValues
a.[BA10:BA78].Copy: m.Cells(4, msut + 1).PasteSpecial Paste:=xlPasteValues
a.[BB10:BB78].Copy: m.Cells(4, msut + 2).PasteSpecial Paste:=xlPasteValues
MsgBox "Veriler, MESAİ sayfasında, " & m.Cells(2, msut).Value & " ayına aktarıldı."
End Sub

 

[sedat2161]

Abi Süpersin çok iyi oldu teşekkürler.