Verileri Bir sayfadan alıp diğer sayafaya gün gün aktarma

[ANTALYA 01]

Merhabalar

Ben ekteki çalışmamda Mayıs Sayfasında A Sütunundaki Bulunan Kodlarlla G.C Sayfasındaki A sütunundaki Aynı kodlara karşılık gelen verilerle bu Mayıs Tablosundaki Günlük Giriş çıkışları Gün Gün Düğmeye bastığımda tablonun İlgili yerlerini G.C Sayfasındaki verlere göre otomatik dolmasını sağlayacak makroya ihtiyacım bulunmakta.Geniş açıklamayı tabloda ilgili yerlere elimden geldiğince anlatmaya çalıştım.

 

[ANTALYA 01]

T

Merhabalar

Sorunumu umarım anlatabilmişimdir diye düşünürken cevab gelmeyince acaba anlatamadım mı diye düşünmeye başladım.Eğer anlaşılmayan bir yer varsa tekrar anlatabilirim.

 

[ANTALYA 01]

T

Merhabalar

Makro kaydet yaparak yapmak istediğimi anlatmaya çalıştım.Aşağıdaki makro gibi birşeye ihtiyacım var ama Mayıs sayfasındaki Bütün Günler için

Mayıs ve G.C Sayfasındaki A sütunundaki kodlara bakarak G.C Sayfasındaki Verileri Tarihlerine göre Mayıs sayfasındaki Tabloya aktarmak.

Sheets("G.C").Select
Range("A2").Select
Sheets("Mayıs").Select
Range("A6").Select
Sheets("G.C").Select
Range("C2").Select
Sheets("Mayıs").Select
Range("D2:E2").Select
Sheets("G.C").Select
Range("D2").Select
Selection.Copy
Sheets("Mayıs").Select
Range("D6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("G.C").Select
Range("A2").Select
Sheets("Mayıs").Select
Range("A6").Select
Sheets("G.C").Select
Range("C2").Select
Sheets("Mayıs").Select
Range("D2:E2").Select
Sheets("G.C").Select
Range("E2").Select
Selection.Copy
Sheets("Mayıs").Select
Range("E6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("G.C").Select
Range("A3").Select
Sheets("Mayıs").Select
Range("A6").Select
Sheets("G.C").Select
Range("C3").Select
Sheets("Mayıs").Select
Range("F2:G2").Select
Sheets("G.C").Select
Range("D3").Select
Selection.Copy
Sheets("Mayıs").Select
Range("F6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("G.C").Select
Range("A3").Select
Sheets("Mayıs").Select
Range("A6").Select
Sheets("G.C").Select
Range("C3").Select
Sheets("Mayıs").Select
Range("F2:G2").Select
Sheets("G.C").Select
Range("E3").Select
Selection.Copy
Sheets("Mayıs").Select
Range("G6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub