istenilen tarihe göre uygun kayıtları getirme

[cansu1907]

Arkadaşlar merhabalar,
Bu konu üzerinde arama yaptım fakat uygun bir makro bulamadım.
Belki sizin için çok basit ama benim için çok önemli.
Umarım yardımcı olursunuz.

Sayfa 1'de istenilen tarih girildiğinde, sayfa 2'deki uygun olan kayıtların gelmesi gerekiyor. Fakat düşeyara değil de makro yazarak yapmak istiyorum.

Ayrıca sayfa2'de uygun olan kaç kayıt varsa o kadar sayıda kaydın gelmesini istiyorum.

Yazmaya çalıştım ama başarılı olamadım.

Yardımcı olursanız çooooooook sevinirim.

 

[cansu1907]

Arkadaşlar bir bakabilir misiniz? Yarına lazım da ben işin içinden çıkamadım

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A2:E" & Rows.Count).ClearContents
sh.Range("A1").AutoFilter field:=1, Criteria1:=CStr(Range("B1").Value)
sh.Range("A1").CurrentRegion.Copy Range("A2")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation

End Sub

 

[cansu1907]

cevabınız için gerçekten çok teşekkürler.. fakat ben butona tıkladığımda sadece sütunların başlıkları geliyor. Değerler gelmiyor sebebini anlamadım..

 

[cansu1907]

Ben gerçekten anlayamadım. Yardımcı olabilecek var mı??

 

[cansu1907]

Tarih formatından kaynaklanıyormuş çooooook sağolun