iki tarih arası veri süzme sonucu sıfır oluyor sitede araştırma yaptım ama bulamadım. Sebebi nedir acaba yanlışlığım varsa yardımcı olurmusunuz.

[emre eller]

Sub listele()

Sheets("havuz").Range("TJ2") = ">=" & Sheets("data").Range("ı10")
Sheets("havuz").Range("TK2") = "<=" & Sheets("data").Range("j10")


Sheets("havuz").Select

Range("TM1:ANU6500").Select

Selection.ClearContents

 

[bycakir]

denermisin

Sub listele()

Sheets("havuz").Range("TJ2") = ">=" & Sheets("data").Range("I10")
Sheets("havuz").Range("TK2") = "<=" & Sheets("data").Range("J10")


Sheets("havuz").Select

Range("TM1:ANU6500").Select


Selection.ClearContents
end sub

 

[emre eller]

merhaba kusura bakmayın kodu eksik yazmışım tamamı budur buna göre yorumlar mısınız?


Sub listele()
Sheets("havuz").Range("TJ2") = ">=" & Sheets("data").Range("ı10")
Sheets("havuz").Range("TK2") = "<=" & Sheets("data").Range("j10")

Sheets("havuz").Select
Range("TM1:ANU6500").Select

Selection.ClearContents

Range("A1:TI6500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("TJ1:TK2"), CopyToRange:=Range("TM1:ANU1"), Unique:=True

Range("tm2") = "1"

Range("tm3") = "2"
Range("tm2:tm3").Select
Selection.AutoFill Destination:=Range("tm2:tm100"), Type:=xlFillDefault


[TO602] = "=TOPLA(to2:to601)"
Range("TO602").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-600]C:R[-1]C)"
Selection.AutoFill Destination:=Range("TO602:ANV602"), Type:=xlFillDefault
Range("TO602:ANV602").Select
Sheets("FORM").Select
Call eşitleme5
Call Eşitleme6
[b3] = Sheets("data").Range("ı10") & "-" & Sheets("data").[J10] & " TARİHLERİ ARASINDAKİ VERİ ÇİZELGESİ"

Sheets("FORM").Select

End Sub