• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

mesai

Katılım
1 Ekim 2017
Mesajlar
694
Excel Vers. ve Dili
2019 türkçe
İ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.
 

Ekli dosyalar

  • 9.xlsm
    9.xlsm
    69.2 KB · Görüntüleme: 9
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.
Kod:
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
 
Abi Süpersin çok iyi oldu teşekkürler.
 
Geri
Üst