3 kritere göre sorgu ve başka sayfaya aktarma?

[energy34]

Arkadaşlar ekteki dosya da detaylı açıklama yaptım
bir sayfadaki verilere 3 farklı filtre uygulayarak diğer sayfaya nasıl atabilirim?

tek kritere göre sayfayı filtreleyebiliyorum ama işin içine büyüklük kriteri ve saat tarih kriteri girince çalıştıramadım
yardımcı olursanız sevinirim

 

[energy34]

bu günü filtrelemesini istiyorum onun için;

s1.Range("A2").AutoFilter Field:=5, Criteria2:=xlFilterToday, Operator:=xlFilterDynamic

ekli dosyaya bu satırı yazıyorum ama filtreleme doğru olmuyor
hata nerdedir ark.lar

 

[Ömer]

Merhaba,

s1.Range("A1").AutoFilter Field:=2, Criteria1:="T.GIRIS"
s1.Range("A1").AutoFilter Field:=5, Criteria1:=Date

Bu şekilde denermisiniz..

.

 

[energy34]

teşekkürler ömer hocam

 

[energy34]

Ömer hocam yada arkadaşalr
s1.Range("A1").AutoFilter Field:=2, Criteria1:="T.GIRIS", Operator:=xlAnd
s1.Range("A1").AutoFilter Field:=5, Criteria1:=Date, Operator:=xlAnd
s1.Range("A1").AutoFilter Field:=6, Criteria1:=">13:30:00", Operator:=xlAnd

bu kodda bir hata varmı?
belgemin 6.sütununda saatler var ve ben bunların sadece 13:30:00 dan sonra olanları çekmek istiyorum
yardımlarınızı bekliyorum
iyi çalışmalar

 

[Ömer]

Merhaba,

F sütunundaki veriler metin formatında olduğu için kodlar çalışmadı.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, sh As Worksheet, sat As Long, i As Long
Dim z As Object, isim As String
Set s1 = Sheets("AbsDb")
sat = s1.Cells(65536, "B").End(xlUp).Row
s1.Range("K1") = 1
s1.Range("K1").Copy
s1.Range("F2:F" & sat).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
s1.Range("F2:F" & sat).NumberFormat = "[$-F400]h:mm:ss AM/PM"
s1.Range("A1").Select
s1.Range("A1").AutoFilter
Set z = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
On Error Resume Next
For i = 2 To sat
    isim = "gec"
    isim = UCase(Replace(Replace(isim, "ı", "I"), "i", "İ"))
    If Not z.exists(isim) Then
        z.Add (isim), Nothing
        For Each sh In Worksheets
            If UCase(Replace(Replace(sh.Name, "ı", "I"), "i", "İ")) = isim Then
                sh.Range("A1:F65536").ClearContents
                s1.Range("A1").AutoFilter Field:=2, Criteria1:="T.GIRIS"
                s1.Range("A1").AutoFilter Field:=5, Criteria1:=Date
                s1.Range("A1").AutoFilter Field:=6, Criteria1:=">06:30:00"
                s1.Range("A1:F" & sat).CurrentRegion.Copy sh.Range("A1")
                s1.Range("A1").AutoFilter
                Exit For
            End If
        Next
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Sayfalara aktarma başarı ile yapıldı." & _
vbLf & "[EMAIL="evrengizlen@hotmail.com"]evrengizlen@hotmail.com[/EMAIL]", vbOKOnly + vbInformation, "E V R E N"
End Sub

Bu şekilde deneyin.

.

 

[energy34]

saolasın hocam