Korumalı sayfada tarih filtreleme

[kemal turan]

Merhaba
Aşağıdaki kod ile korumalı sayfada tarih filtreleme yapmak istiyorum.
Hata vermiyor ama değer getirmiyor.
J sutununda bugüne ait verileri filtrelemek amacım.
Teşekkür ederim.

Sub BUGUN()
Set s2 = Sheets("VERILER")
ActiveSheet.Unprotect Password:="kd05327710839"
METIN1 = Format(CDate(Date), "DD.MM.YYYY")
Set FC2 = s2.Range("J2:J200000").Find(What:=METIN1)

Selection.AutoFilter Field:=10, Criteria1:=CDate(METIN1) & "*"
If METIN1 = "" Then
Selection.AutoFilter Field:=10
End If
ActiveSheet.Protect Password:="kd05327710839", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub

 

[RBozkurt]

Deneyiniz, şifreye dikkat.

Sub BUGUN()
    Dim s2 As Worksheet
    Dim METIN1 As String
    Dim FC2 As Range
    Set s2 = Sheets("VERILER")
    ActiveSheet.Unprotect Password:="xxx839"
    METIN1 = Format(Date, "DD.MM.YYYY")
    Set FC2 = s2.Range("J2:J200000").Find(What:=METIN1)
    If Not FC2 Is Nothing Then
        s2.Range("A1").AutoFilter Field:=10, Criteria1:=METIN1
    Else
        s2.Range("A1").AutoFilter Field:=10
    End If
    ActiveSheet.Protect Password:="xxx839", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub

 

[kemal turan]

Merhaba RBozkurt,
kod çalışmadı. Başka sitelerde araştırma yaptım aşağıdaki kod sorunu çözdü.
Teşekkür ederim.

Sub Dikdörtgen18_Tıkla()

    Set s2 = Sheets("VERILER")
     ActiveSheet.Unprotect Password:="xxxx710839"
      Selection.AutoFilter Field:=10, Criteria1:=Format(CDate(Date), "dd.mm.yyyy")
       ActiveSheet.Protect Password:="xxxx710839", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
    End Sub

 

[kemal turan]

Merhaba
Yukarıdaki kod ile denemelerde çözdüğümü sandığım tarih filtreleme çalışmadı.
Saat gecenin 2 si oldu 5 saattir araştıyorum çözümü bulamadım. sutunda filtreleme yapıyor fakat değerleri getirmiyor.
teşekkür ederim.