Farklı Dosyadan Koşullu Kopyalama

[soranges]

Arkadaşlar selam,

Bir konuda makro desteğine ihtiyacım var. İstediğim şey excelde bir dosyadan diğerine input box kullanarak koşullu kopyalama yapmak. Yani diyelimki A sütununda tarihler var. B sütuınunda bu tarihlere ait veriler var. Benim istediğim farklı bir excel dosyasında input box 'a orjinal exceldeki A sütununa ait bir tarih girdiğimde B sütunundaki verilerini yapıştırması sonra da datayı aldığı dosyayı kapatması.

Yani A50:A85 sütunları arasında 03.2017 yazıyor. Ben yeni excelde input box a 03.2017 yazdığımda B50:B85 sütunu verilerini kopyalamasını istiyorum.

Teşekkürler

 

[alicimri]

1- İki dosyada da ilk satırlarında başlık olduğunu,
2- İki dosyanın da aynı klasörde olduğunu
3- Data dosyasının adı "a.xlsx" olduğu
4- a.xlsx dosyasında tarih 01.03.2017" formatında olduğu
5- Inputbox'a ay+yıl 03.2017 şeklinde girileceğini
varsaydım. Kodlar aşağıda

Sub a()
tar = InputBox("Tarih Giriniz")
tar = Split(tar, ".")
Workbooks.Open (ThisWorkbook.Path & "/a.xlsx")
Set s1 = ActiveWorkbook.ActiveSheet
Set s2 = ThisWorkbook.ActiveSheet
s2.Range("a2:b" & s2.Range("a65536").End(3).Row).ClearContents
For i = 2 To s1.Range("a65536").End(3).Row
If Month(s1.Range("a" & i)) = tar(0) * 1 And Year(s1.Range("a" & i)) = tar(1) * 1 Then
say = s2.Range("a65536").End(3).Row + 1
s2.Range("a" & say).Value = CDate(s1.Range("a" & i))
s2.Range("b" & say).Value = s1.Range("b" & i)
End If
Next
ActiveWorkbook.Close
End Sub