Dosyadan dosyaya veri aktaracak makro

[bedri41]

Verilecek tarih aralığına uyan bilgileri başka bir excel dosyasına aktaracak bir makroya ihtiyacım var.
Dosya içerisine gerekli açıklamaları yazdım.
Yardımcı olacak arakadaşlara şimdiden teşekkür ederim.

 

[bedri41]

Üstadlar bir bakabilir mi acaba ?

 

[omerceri]

Dosya yolunu size uygun şekilde değiştirebilirsiniz. Örnek ekte

 

[bedri41]

Dosya yolunu size uygun şekilde değiştirebilirsiniz. Örnek ekte

Çok Teşekkür ederim.

 

[bedri41]

Süzme için baz aldığı tarih aralığında sadece günlerin büyüklüğünü dikkate alıyor. Örneğin 1 Mart 15 Mart aralığını istenmişse ve veriler içinde Nisan ayı verileri varsa 15 nisandan küçük verileride listeye ekliyor.
Makroda nasıl bir değişiklik yapılması gerekiyor
Private Sub CommandButton1_Click()
bastarih = CDate(TextBox1)
sontarih = CDate(TextBox2)
Workbooks("SHARP(1).xls").Worksheets("GIRIS").Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CDbl(bastarih), Operator:=xlAnd _
, Criteria2:="<=" & CDbl(sontarih)
Workbooks("SHARP(1).xls").Worksheets("GIRIS").Range("A1:AE102").Copy
Workbooks.Open ThisWorkbook.Path & "/" & TextBox3 & ".XLS"
Workbooks(TextBox3 & ".XLS").Worksheets("Sayfa1").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks(TextBox3 & ".XLS").Close SaveChanges:=True
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

 

[halit3]

ekli dosyayı kontrol edeniz.