Data sayfasından tarihe göre veri alma

[mustafa1205]

Ekteki örnektede açıklama yapmaya çalıştım. Data Sayfasında bulunan verileri makro yardımı ile istenen tarihlere göre alabiliyorum.Ancak Data sayfasında olmayan bir tarih girdiğimde Süzülmüş olan sayfa boş olması gerekirken bu defa bütün veriler çıkıyor.Bunu çözebilirmiyiz ? Teşekkürler

 

[Husgvarna]

Ekteki örnektede açıklama yapmaya çalıştım. Data Sayfasında bulunan verileri makro yardımı ile istenen tarihlere göre alabiliyorum.Ancak Data sayfasında olmayan bir tarih girdiğimde Süzülmüş olan sayfa boş olması gerekirken bu defa bütün veriler çıkıyor.Bunu çözebilirmiyiz ? Teşekkürler

Merhaba.
Aşağıdaki kırmızı bölümleri; ekleyerek denermisiniz ?

Sub PRİNTLERİAL()
Application.ScreenUpdating = False
UserForm1.Show 0
Application.Wait (Now + TimeValue("0:00:01"))
Sheets("DATA SÜZÜLMÜŞ").Visible = True
Sheets("DATA SÜZÜLMÜŞ").Select
Range("A1:I20000").Select
Selection.ClearContents
Sheets("VERİLERİN SÜZÜLMÜŞ HALİ").Range("a2:ıv65500") = Empty
Sheets("DATA SAYFA").Select
 [COLOR="#ff0000"]Set fr = Sheets("DATA SAYFA").Range("a3:a65000").Find(What:=CDate(Sheets("DATA SAYFA").Range("M1")))
       If Not fr Is Nothing Then[/COLOR]
ActiveSheet.Range("$A$2:$BB$60000").AutoFilter Field:=1, Criteria1:= _
Range("M1").Value
Sheets("DATA SAYFA").Select
Range("A6").CurrentRegion.Copy Sheets("DATA SÜZÜLMÜŞ").Range("A1")
Sheets("DATA SÜZÜLMÜŞ").Select
Range("A1:I2000").Select
    ActiveWindow.ScrollRow = 1966
'..........
'......
'......
'.........
'.......
    Sheets("KAYIT ALMA").Select
    Range("R18").Select
    MsgBox "İŞLEM BAŞARI İLE TAMAMLANMIŞTIR.DEVAM EDİLSİN Mİ?"
    [COLOR="Red"]Else
    MsgBox "kayıt yok"
    
    End If[/COLOR]
End Sub

 

[mustafa1205]

Sayın Husqvarna çok teşekkür ediyorum. Tam istediğim gibi çalışıyor.Ancak anlamadığım daha önce buna benzer bir çalışmam vardı onda bir sorun olmamıştı.İstenen tarih olmadığında boş çıkıyordu. Neyse ellerinize sağlık. Tekrar çok teşekkür ediyorum.İyi günler dilerim