Macro vasıtası ile Otomatik filtre

noxious · 5 Kasım 2007

Macro vasıtası ile
Otomatik filtre uygulayarak A sütununda bulunan örneğin 01.01.2007 ile 31.01.2007 tarihleri arasındaki verileri süzebilirmiyiz

Normal yoldan "özel" içinde "özel otomatik filtre" ile oluyor ama bunu macro ile yapmaya çalıştığımda hata ile karşılaştım (tarihlerin hepsi yok oldu karşıma boş sütun çıktı)

Tek bir tarihi baz aldığımda sorun olmuyor ama iki tarih arasını baz aldığımda sorun çıktı

Ayrıca macro vasıtası ile tarih aralığını girerek sadece benim girdiğim tarih aralıklarını süzmek istiyorum. Bu tarih 01.01.2007 ile 31.01.2007 arası veya 10.02.2007 ile 15.02.2007 arası olabilir seçeneğim çok çünkü girdiğim listede yaklaşık 10.000 tane tarih var

bunu macro ile yapmak istememin sebebi A2 hücresi ve bir kaç farklı hücre kitli ve korumalı olacak olacak kitli olan hücrede süz çalışmıyor

Levent Menteşoğlu · 6 Kasım 2007

Tarih aralığı nereden alınacaktır.

noxious · 7 Kasım 2007

Hocam aşağıdaki sayfadaki kodlarla bişiler yapmaya çalıştım ama beceremedim

http://www.excel.web.tr/showthread.php?p=214327

Tarih başlangıcı 01.01.2007 olacak son tarih 31.12.2010 olabilir

Ben örneğin 01.01.2007 ile 10.01.2007 arasındaki verileri listeletmek istiyorum ayrıca mümkünse listelenenlerin kaç adet olduğunu görme imkanımız varmı ilgin için teşekkürler

talatcd · 7 Kasım 2007

Örnek Ekte

Noksius örnek ekte inşallah istediğin gibi olmuştur. Sorun olursa yine bakarız. İyi çalışmalar.

noxious · 7 Kasım 2007

Taladcd hocam örnek güzel çalışıyor eline sağlık kendime uyarlamaya çalışacağım

Birde bir yukardaki mesajdaki örnek üzerinde çalışabilirmisin ilgi ve alakan için şimdiden teşekkürler

talatcd · 7 Kasım 2007

Rica ederim işine yaradığına sevindim. Şu an Fenerbahçe-Psv maçını seyrediyorum. devre arası maçtan sonra bakacam. iyi geceler.

noxious · 8 Kasım 2007

talatcd' Alıntı:
Rica ederim işine yaradığına sevindim. Şu an Fenerbahçe-Psv maçını seyrediyorum. devre arası maçtan sonra bakacam. iyi geceler.

Hocam ilgine alakana teşekkürler ben işten başımı kaldıramıyorumki şöyle zevkle maç seyredeyim, tek duyduğum bizimkilerin peş peşe gooooolllll sesleri

bu arada skor ne oldu

talatcd · 8 Kasım 2007

Dosyan İlişikte

İkinci Dosyan ilişikte anladığım kadarıyla düzenledim. Kendine göre düzenlemeler yaparak kullanabilirsin. İyi Çalışmalar.

noxious · 8 Kasım 2007

Hocam düzenleme ii olmuş ellerine sağlık ellerin dert görmesin hemen kendime uyarlamaya başlıyacağım saygılarımla, sorunla karşılaşırsam başını tekrar ağrıtabilirmiyim

talatcd · 8 Kasım 2007

Rica ederim arkadaşlara yardımımız olursa ne mutlu bize. İnşallah işini görür. Kolay gelsin.

noxious · 8 Kasım 2007

Hocam sorgulamayı hatalı mı yapıyor ne

tarihi 01.01.2007 ile 04.01.2007 arası alıyorum bana 01 ile 04 ü arasını süzmesi gerekirken bana 08, 09, 10,11 .... 18 ine kadar alıyor

talatcd · 8 Kasım 2007

dosya ekte

Dosyan ektedir. inşallah işine yarar

omerceri · 8 Kasım 2007

Sn noxious
1- talarcd arkadaşın kodlarını aşağıdaki şekilde değiştirin
2- Ay veya yıl değiştirdiğinizde rapor hazırla tuşuna basmadan önce Calendar denetimlerinde günün seçili olup ulmadğını kontrol edin.
TextBox1 = Format(Calendar1, "dd.mm.yyyy")
TextBox2 = Format(Calendar2, "dd.mm.yyyy")

bastar = CLng(CDate(TextBox1))
bittar = CLng(CDate(TextBox2))

[rapor!a2:I65536].ClearContents
For a = 9 To [I65536].End(3).Row
deg = Cells(a, "I")
If deg >= bastar And deg <= bittar Then
son = [rapor!a65536].End(3).Row + 1
Sheets("rapor").Range("a" & son & ":I" & son) = Range("a" & a & ":I" & a).Value

End If
Next
ListBox1.RowSource = "rapor!a2:I" & [rapor!I65536].End(3).Row
ListBox1.Visible = True

noxious · 8 Kasım 2007

Sayın omerceri hocam

Şimdi sonuç daha iyi çıkıyor ama bu seferde 01.01.2007 ile 05.01.2007 arasını aldığımda 01 i katmadan direk 02 ile başlıyor ayrıca çok istekte bulunuyorum ama süz yapılırken çıkan sonucu tarihe göre sıralayabilirmi ve son olarak yapılan süzde kaç adet veri olduğu userform'un üzerinde gösterilebilirmi neticede süzdüğüm tarihler arasında yapılan işlem sayısını bilmem lazım (baştaki sıra numaraları değişmeyecek hangi satıra ait olduğunu görmek için)

omerceri · 8 Kasım 2007

For a = 9 To [I65536].End(3).Row
Yukardaki kodu aşağıdaki kodla değiştirin.
For a = 2 To [I65536].End(3).Row

noxious · 8 Kasım 2007

Sayın omerceri hocam sorun çözüldü teşekkürler.

Son olarak yukarda bahsetmiştim acaba süzdüğümüz aralıkta kalan sonuçların sayısını görmemiz mümkünmü şimdiden ilgi alaka için teşekkürler başınızı ağrıttım

omerceri · 8 Kasım 2007

yeni örnek ekte

omerceri · 8 Kasım 2007

Yeniörnek ekte

noxious · 8 Kasım 2007

Hocam teşekkürler şimdi oldu sizi yordum

Son olarak bir şey daha sormak istiyorum. Sonra konuyu kapatacağım.

Süz sorunsuz çalışıyor.

Ancak bir sorunumuz daha var süz işlemini I sütununa kadar aldık ancak görmek istediğimiz AD sütununa kadar olan kısım.

Süz işlemi gene I sütununa göre olacak ancak sonuçları görürken Ad sütuna kadar olan bilgilerin tamamını görmemiz lazım.

Bu cevaptan sonra konuyu kapatıyorum. Saygılar Sevgiler. En güzel günler sizin olsun.

omerceri · 8 Kasım 2007

son hali ektedir

Macro vas&#305;tas&#305; ile Otomatik filtre

Administrator

Macro vasıtası ile Otomatik filtre