Mesaileri diğer sayfaya aktar

Katılım
2 Haziran 2015
Mesajlar
339
Excel Vers. ve Dili
2010
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

 
Son düzenleme:

nihatkr

Altın Üye
Altın Üye
Katılım
25 Ağustos 2006
Mesajlar
517
Excel Vers. ve Dili
2016 Türkçe
Ofis 365
Altın Üyelik Bitiş Tarihi
09.10.2029
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
 

Ekli dosyalar

Son düzenleme:

nihatkr

Altın Üye
Altın Üye
Katılım
25 Ağustos 2006
Mesajlar
517
Excel Vers. ve Dili
2016 Türkçe
Ofis 365
Altın Üyelik Bitiş Tarihi
09.10.2029
Ben Denedim Göndermeden Önce Sorun Yok.
 
Katılım
2 Haziran 2015
Mesajlar
339
Excel Vers. ve Dili
2010
Ç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

Altın Üye
Altın Üye
Katılım
25 Ağustos 2006
Mesajlar
517
Excel Vers. ve Dili
2016 Türkçe
Ofis 365
Altın Üyelik Bitiş Tarihi
09.10.2029
Ç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.
 

Ekli dosyalar

Katılım
2 Haziran 2015
Mesajlar
339
Excel Vers. ve Dili
2010
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

Altın Üye
Altın Üye
Katılım
25 Ağustos 2006
Mesajlar
517
Excel Vers. ve Dili
2016 Türkçe
Ofis 365
Altın Üyelik Bitiş Tarihi
09.10.2029
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.

 

Ekli dosyalar

Son düzenleme:
Katılım
2 Haziran 2015
Mesajlar
339
Excel Vers. ve Dili
2010
Nihat bey çok teşekkür ederim,kodlar tam istediğim gibi çalışıyor Allah razı olsun. Kolay gelsin.iyi çalışmalar.
 
Üst