Belirlenen Tarihe Göre Veri Çekmek

[Mehmetakkoyunlu]

Merhabalar,
Ekteki dosyada "Rapor" sayfasının "B2" hücresine manuel olarak tarih yazacağım. "İşlemler" sayfasından sadece bu tarihteki işlemlerin yapıldığını rapor ederek gelmesini istiyorum.
Yardımcı olacak üstatlara şimdiden teşekkür ediyorum.

 

[çıtır]

Rapor sayfası A8 Hücresine kopyalayınız.Yeterince sağa ve aşağı doğru çoğaltınız.

=EĞERHATA(İNDİS(İŞLEMLER!$A$1:$I$600;TOPLAMA(15;6;(SATIR($A$6:$A$600)/(İŞLEMLER!$A$6:$A$600=$B$2));SATIR($A1));SÜTUN(A$1));"")

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A8:I" & Rows.Count).ClearContents
Set sh = Sheets("İŞLEMLER")
sh.Range("E5:I" & Rows.Count).AutoFilter field:=1, Criteria1:=Format(Range("B2").Value, "dd.mm.yyyy")
sh.Range("A5").CurrentRegion.Copy Range("A8")
sh.AutoFilterMode = False
End Sub

 

[Mehmetakkoyunlu]

Sn, Çıtır ve Orion1 yardımlarınız ve ilginiz için çok teşekkürler. Emeklerinize sağlık.

 

[gicimi]

Sn: @Orion1 Hocam dosyayı kullanmak istedim ama Tarihi değiştiriyorum ama ilgili aylara ait veriler sayfaya gelmemekte, size ait dosyada deneme yapıyorum. Dosyanızda herhangi bir değişiklik yapılmamıştır.

 

[Orion1]

Düzenlendi.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A8:I" & Rows.Count).ClearContents
Set sh = Sheets("İŞLEMLER")
sh.Range("A5:I" & Rows.Count).AutoFilter field:=1, Criteria1:=Format(Range("B2").Value, "dd.mm.yyyy")
sh.Range("A5").CurrentRegion.Offset(1, 0).Copy Range("A8")
sh.AutoFilterMode = False
End Sub