Mesaileri diğer sayfaya aktar

[ADER_34]

Merhaba arkadaşlar benim isteğim şöyle Mesai giriş sayfasında yazılan isimleri ay sayfasında bul, mesai giriş sayfasındaki ismin sütununa toplam saati tarihine göre yaz
örnek Tarih :14 Eylül :isim Ahmt bingöl :toplam saat: 5 bu saati tarih ve isme göre yaz. örnek dosyam ekedir teşekkürler.

Sub Mesai2()
'
' Mesai2 Makro
'

'
Sheets("Mesai Giriş").Select
Range("B2:C2").Select
Sheets("Eylül").Select
Range("B3:C3").Select
Sheets("Mesai Giriş").Select
Range("G2").Select
Selection.Copy
Sheets("Eylül").Select
Range("R3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "5"
Range("P10").Select
Sheets("Mesai Giriş").Select
Range("B3").Select
End Sub

İndir Mesai yaz örnek

Dosyayı indir Mesai yaz örnek

dosya.co

 

[nihatkr]

Merhaba

Örneğiniz ekte

Not: Örnekte Eylül Sayfası Aktif Olduğunda Otomatik Gelir

Sub MesaiGetir()
Dim wsMesai As Worksheet
Dim wsEylul As Worksheet
Dim lastRowMesai As Long
Dim lastRowEylul As Long
Dim lastColTarih As Long
Dim i As Long, j As Long
Dim arananAd As String, arananSoyad As String
Dim tarih As Date

Set wsMesai = ThisWorkbook.Sheets("Mesai Giriş")
Set wsEylul = ThisWorkbook.Sheets("Eylül")

' Son satırları bul
lastRowMesai = wsMesai.Cells(wsMesai.Rows.Count, "A").End(xlUp).Row
lastRowEylul = wsEylul.Cells(wsEylul.Rows.Count, "B").End(xlUp).Row
lastColTarih = wsEylul.Cells(2, wsEylul.Columns.Count).End(xlToLeft).Column

' Eylül sayfasında her satır için döngü
For i = 3 To lastRowEylul ' B3:C satırları isim
arananAd = wsEylul.Cells(i, "B").Value
arananSoyad = wsEylul.Cells(i, "C").Value

' Her tarih sütunu için
For j = 4 To lastColTarih ' D2:AH2 tarihleri
If IsDate(wsEylul.Cells(2, j).Value) Then
tarih = wsEylul.Cells(2, j).Value

' Mesai Giriş sayfasında eşleşen kayıt var mı kontrol et
Dim k As Long
For k = 2 To lastRowMesai
If wsMesai.Cells(k, "A").Value = tarih And _
wsMesai.Cells(k, "B").Value = arananAd And _
wsMesai.Cells(k, "C").Value = arananSoyad Then

' Mesai saatini yaz
wsEylul.Cells(i, j).Value = wsMesai.Cells(k, "G").Value
End If
Next k
End If
Next j
Next i

MsgBox "Mesai saatleri güncellendi!"
End Sub

 

[nihatkr]

Ben Denedim Göndermeden Önce Sorun Yok.

 

[ADER_34]

Çok teşekkür ederim Nihat bey kodlar sorunsuz rica etsem
Set wsMesai = ThisWorkbook.Sheets("Mesai Giriş")
Set wsEkim = ThisWorkbook.Sheets("Ekim")
Bu kodların tüm sayfalarda çalışması,Eylül,ekim,Kasım gibi ben örnek olarak bu dosyayı paylaiştım,gerçek veri sayfasında mesai sayfası içeriği aylara göre yazılı.teşekkürler.

 

[nihatkr]

Çok teşekkür ederim Nihat bey kodlar sorunsuz rica etsem
Set wsMesai = ThisWorkbook.Sheets("Mesai Giriş")
Set wsEkim = ThisWorkbook.Sheets("Ekim")
Bu kodların tüm sayfalarda çalışması,Eylül,ekim,Kasım gibi ben örnek olarak bu dosyayı paylaiştım,gerçek veri sayfasında mesai sayfası içeriği aylara göre yazılı.teşekkürler.

Tüm yılı kapsayacak şekilde Ekte. Sayfalarda Sadece Yeşil hücreleri değiştirmeniz yeterli.

 

[ADER_34]

Nihat bey altın üye değilim henüz rica etsem dosya linki paylaşırmısınız?

 

[nihatkr]

Nihat bey altın üye değilim henüz rica etsem dosya linki paylaşırmısınız?

İndir Mesai Takip

Dosyayı indir Mesai Takip

dosya.co

 

[ADER_34]

Nihat bey çok teşekkür ederim kodlar sorunsuz çalışıyor sizden rica etsem örnek dosyamda Alt satırlarda mesai nedeni satırları var o şekilde mesai giriş sayfasında D sütununu mükerrer kayıtları silip teke düşürüp, alt kısma bu şekilde yazdırabilirmisiniz? şuan örnek dosyada sadece sporlar var ama misal farklı şeylerde yazabilir bu kayıtlar mükerer giriliyor.

Mesai nedeni açıklama :
sporlar için
Temizlik için
genel bakım

 

[nihatkr]

Nihat bey çok teşekkür ederim kodlar sorunsuz çalışıyor sizden rica etsem örnek dosyamda Alt satırlarda mesai nedeni satırları var o şekilde mesai giriş sayfasında D sütununu mükerrer kayıtları silip teke düşürüp, alt kısma bu şekilde yazdırabilirmisiniz? şuan örnek dosyada sadece sporlar var ama misal farklı şeylerde yazabilir bu kayıtlar mükerer giriliyor.

Mesai nedeni açıklama :
sporlar için
Temizlik için
genel bakım

Anladığım Kadarıyla Ektedir.

İndir Mesai Takip

Dosyayı indir Mesai Takip

dosya.co

 

[ADER_34]

Nihat bey çok teşekkür ederim,kodlar tam istediğim gibi çalışıyor Allah razı olsun. Kolay gelsin.iyi çalışmalar.