Cari den Data getirme

[soykan]

Değerli üstatlar,

Cari leri tuttuğum Data Giriş diye bir sayfam var. CariHar adlı sayfaya A2 de yazdığım müşteri ile ilgili dataları döksün istiyorum.

Aşağıdaki kodu yazdım ama yapamadım. Eğer olabilirse yazdığım 2 tarih arasında ki kayıtları döksün ilk tarihten öncekileride devreden yekün olarak getirsin istiyorum.

Aşağıdaki yazdığım kod sadece datayı getirmeye yönelikdi.

Sub Makro1()
For sat1 = 2 To Sheets("DataGiris").Cells(65536, "A").End(xlUp).Row
For i = 1 To 15
If Sheets("DataGiris").Cells(sat1, 1) = Sheets("CAriHarUSD").Cells(2, 1) Then
Sheets("CAriHarUSD").Cells(i, 1) = Sheets("DataGiris").Cells(sat1, 1)
End If
Next i
Next sat1
End Sub
Dosya ektedir.

 

[soykan]

dosya boyutu büyük olduğu için almamış yolluyorum...