Valla tablonun şeklinin bozulmaması öncelikli idi,çünkü sizin doğru/yanlış sütununda başka veriler olacaktı,ayrıca butona bağlanmış bir makro ile tablo bozulmadan sadece süzülen verilerin gösterilmesi daha çok işime yarardı,yinede katkılarınızdan dolayı teşekkür ederim.
Aşağıdaki kodu sayfa1 de bir butona bağlayarak çalıştırın. Süzülen veriler sayfa2 de listelenecektir.
[vb:1:a1470322fd]Sub verisuz()
Sheets("sayfa2").[a2:j65536].ClearContents
For a = 5 To [j65536].End(3).Row
If Cells(a, "i") >= [c1] And Cells(a, "i") <= [c2] Then
c = c + 1
For b = 2 To 10
Sheets("sayfa2").Cells(c + 1, b - 1) = Cells(a, b)
Next
End If
Next
Sheets("sayfa2").Select
MsgBox "İÃLEM TAMAMLANDI"
End Sub
[/vb:1:a1470322fd]
Dosyanızda iken ALT+F11 tuşuna aynı anda basarak "Visiual Basic Editor"e ulaşırsınız. Buradan "Tools" menüsünden "References"seçeneğini tıklarsanız daha önce şeklini gösterdiğim tabloyu görürüsünüz. Belki çözümü orada bulursunuz.
arkadaşlar
otufan03'ün sorusu üzerinde uğraşım sırasında, makro kaydederken otomatik süzme işleminde 08.01.2005 tarihini seçince aşağıdaki kodu üretti.
Selection.AutoFilter Field:=8, Criteria1:="08.01.2005"
veya
Selection.AutoFilter Field:=8, Criteria1:=">08.01.2005", Operator:=xlAnd
Bu kodları çalıştırmaya kalkınca sanki listede bulunmayan bir değermiş gibi davranıp tüm kayıtları gizliyor.
Biraz uğraşınca C2 hücresindeki tarihe eşit olanları aşağıdaki kodlarla süzdürünce, süzme işlemini yaptı.
tarih = Range("C2")
Selection.AutoFilter Field:=8, Criteria1:=tarih, Operator:=xlAnd
Sorum şu sadece eşit olan değerleri değilde C2 hücresindeki tarihten büyük olanları getirtmeye çalışınca, örneğin
Criteria1:=< & tarih veya Criteria1:= "<" & tarih gibi
yine tüm kayıtları gizliyor.
Yokmu bunun çaresi....
Bunun sebebi Excelin Criteria1:= "<" & tarih yazımını metin olarak algılamasından kaynaklanmaktadır. Çünkü excel tarihleri sayıya çevirerek değerlendirir. B u sebeple aşağıdaki gibi denemenizi öneririm.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.