Tarihe göre Hafta Sayfasına Aktarmak

[cemilk]

Arkadaşlar ekteki dosyada data sayfasındaki verileri Tarihinin denk geldiği hafta sayfasına aktarmak istiyorum bunu nasıl yapabilirim yardımcı olurmusunuz.Sağolun

 

[Selçuk1]

Sn. cemilk,

dosyanız ektedir. inceleyin, gerekirse düzenlemeler yapılabilir..

iyi akşamlar..

 

[cemilk]

Hocam Allah razı olsun senden Yalnız bu aktarma işlemi sonrasında sayfayı temizleme yada yani haftaları boşaltma yada aktarılanların tekrar aktarılmamasını nasıl sağlarız. Birde Zahmet olmaz ise Mesela 1. haftayı ayrı bir excel olarak aktarma yolu var ise gösterirmisin.

 

[Selçuk1]

Sn. cemilk,

kodu aşağıdaki gibi değiştirirsek, aynı veriler birden fazla listeye aktarılmaz. bunun için data sayfasının "K" sütuna x koyma işlemi ekledim. yani bu sütunu başka bir işlem için kullanmadığınızı kabul ettim. sanırım istediğiniz gibi oldu. kolay gelsin...

Sub aktar()
Set s1 = Sheets("DATA")
Set s2 = Sheets("TAKVİM")
zz = s1.[a65536].End(3).Row + 1
For a = 3 To zz
hafta = s2.[a1:h60].Find(s1.Cells(a, "B")).Row
sayfa = s2.Cells(hafta, "A")
If s1.Cells(a, "C") = "TAHSİLAT" And s1.Cells(a, "K") <> "X" Then
sonsat = Sheets(sayfa).[a65536].End(3).Row + 1
Sheets(sayfa).Cells(sonsat, "A") = s1.Cells(a, "B")
Sheets(sayfa).Cells(sonsat, "B") = s1.Cells(a, "G")
Sheets(sayfa).Cells(sonsat, "C") = s1.Cells(a, "E")
Sheets(sayfa).Cells(sonsat, "D") = s1.Cells(a, "f")
Sheets(sayfa).Cells(sonsat, "E") = s1.Cells(a, "H")
s1.Cells(a, "K") = "X"
End If
If s1.Cells(a, "C") = "TEDİYE" And s1.Cells(a, "K") <> "X" Then
sonsat = Sheets(sayfa).[G65536].End(3).Row + 1
Sheets(sayfa).Cells(sonsat, "G") = s1.Cells(a, "B")
Sheets(sayfa).Cells(sonsat, "H") = s1.Cells(a, "D")
Sheets(sayfa).Cells(sonsat, "I") = s1.Cells(a, "G")
Sheets(sayfa).Cells(sonsat, "J") = s1.Cells(a, "I")
s1.Cells(a, "K") = "X"
End If
Next

 

[cemilk]

teşekkür ederim

Kolay Gelsin

 

[cemilk]

Hocalarım selamlar,

Sizlerden bir ricam daha olacak Yukarıdaki aktarma makrosu için bir tarih pencesi açacak ve o pencereye girdiğim tarihteki verileri aktarsın istedim ama beceremedim rica etsem yukarıdaki kodlara eklenmesi gereken kodu ekleyebilirmisiniz.

Teşekkür ederim.
Saygılarımla.

 

[cemilk]

Bu konuda sitede istediğim gibi örnek bulamadım bu konuda örnek varmı.

 

[cemilk]

lütfen acil yardım..