Verileri İkinci Kez Aktarmasın

[eminuslu]

Sevgili arkadaşlar ekte gönderdiğim dosyamda sorum şu Sayfa1 deki tarihler veri sayfa 2 ye aktarılıyor ancak sorumşu
Aktar düğmesine her tıkladığımda alt alta tarihleri sıralıyor Ben istiyorumki 1 defa aktardıktan sonra 2 gün aynı veriyi aktarmasın bu konuda yardımcı olabilecek tüm arkadaşlara şimdiden teşekkürü bir borç bilirim.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub Aktar()
sat = [Sayfa2!C65536].End(3).Row + 1
If sat < 5 Then sat = 5
If Date > Sheets("Sayfa2").Range("h1") + 2 Then
Sheets("Sayfa2").Cells(sat, "C") = [F10]
Sheets("Sayfa2").Cells(sat, "D") = [H10]
Sheets("Sayfa2").Range("h1") = Date
Else
MsgBox "Henüz aktarılacak tarih gelmedi."
End If
End Sub

 

[eminuslu]

Tam istediğim gibi olmuş Recep Bey Allah ne muradınız varsa versin inşaallah