Makro ile sayfadan sayfaya koşullu veri alma.

[zfr10]

Selam arkadaşlar. Hazırlamış olduğum dosyamda icmal ve sorgu adlı iki sayfam mevcut ve sorgu sayfasındaki M1 hücresine tarih girildiği zaman icmal sayfasındaki I sütunundaki ihale tarihine göre sorgu sayfasına makro ile veri çekmek istiyorum.

 

[Mustafa MUTLU]

buyurun

Sub AKTAR()
Dim MM, MSTF, Tarih
Application.ScreenUpdating = False
Sheets("SORGU").Range("A2:J65536").ClearContents
MM = 2
Tarih = [SORGU!M1]
For MSTF = 2 To Sheets("İCMAL").Cells(65536, "A").End(xlUp).Row
If Sheets("İCMAL").Cells(MSTF, "C") = Tarih Then
Sheets("SORGU").Cells(MM, "A") = Sheets("İCMAL").Cells(MSTF, "A")
Sheets("SORGU").Cells(MM, "B") = Sheets("İCMAL").Cells(MSTF, "B")
Sheets("SORGU").Cells(MM, "C") = Sheets("İCMAL").Cells(MSTF, "C")
Sheets("SORGU").Cells(MM, "D") = Sheets("İCMAL").Cells(MSTF, "D")
Sheets("SORGU").Cells(MM, "E") = Sheets("İCMAL").Cells(MSTF, "E")
Sheets("SORGU").Cells(MM, "F") = Sheets("İCMAL").Cells(MSTF, "F")
Sheets("SORGU").Cells(MM, "G") = Sheets("İCMAL").Cells(MSTF, "G")
Sheets("SORGU").Cells(MM, "H") = Sheets("İCMAL").Cells(MSTF, "L")
Sheets("SORGU").Cells(MM, "I") = Sheets("İCMAL").Cells(MSTF, "I")
Sheets("SORGU").Cells(MM, "J") = Sheets("İCMAL").Cells(MSTF, "J")
MM = MM + 1
End If
Next
Application.ScreenUpdating = True
MsgBox Tarih & " Tarihli kayıtları Aktardım", vbInformation, "Bitti...."
End Sub

 

[zfr10]

Mustafa Bey ALLAH sizden razı olsun. Epey aradığım konuyu sayenizde hallettim. Şükranlarımı sunarım...

 

[zfr10]

Arkadaşlar burdaki kodlara yıl ibaresi eklemek mü? Mesela 2016 yılının 13.04.2016 tarihli verilerini almak istesek yapılabilir mi?

 

[vardar07]

Sorgu sayfası M1 hücresine 2016 yazıp makro içindeki

If Sheets("İCMAL").Cells(MSTF, "C") = Tarih Then

satırın yerine:

If Year(Sheets("İCMAL").Cells(MSTF, "I")) = Tarih Then

yazıp deneyiniz.

 

[zfr10]

Sayın Vardar hocam dediğiniz üzere yaptım fakat veriler hiç gelmiyor. Benim istediğim şöyle;
Sayfada bulunan xxxx yılının yyyy tarihli verilerini almak.