Makro ile filtreleme

[mavi674]

Selam Hocalarım ve arkadaşlarım
Bir sorum olacak keyfe keder
birkaç flitreleme makrom var
Selection.AutoFilter Field:=1, Criteria1:=" GÜN KALDI >>>>>>"
mesela "5 gün kaldı >>>>>" diye flitreleme yapıyor
Burada isteğim flitrenin ilk satırıı seçmek
Şöyle flitre 5 Satırda Flitre çalıştıktan sonra
5 satırın altına 115 satır. sonra 120 satır yani karışık satırlar geliyor
makro ile flitre yaptığı zaman bu duruma göre imleç 115 satıra gitsin ki
flitreyi baştan görebilelim yoksa bazen en altta çıkıyor ve bunu yukarı doğru çıkmak gerekiyor.

Range("c115").Select gibi ama bu komutla sabit oluyor. bu flitre durumuna göre değişken tabiiki
Sonuç Flitrenin ilk satırını seçmek
Çok uzun oldu kusura bakmayın
İyi bayramlar Teşekkürler

 

[mavi674]

Biraz karıştı galiba....

 

[dEdE]

Merhaba,
Bir örnek dosya hazırlayıp, aşağıdaki linklerden biri ile paylaşsanız karışıklığı önler diye değerlendiriyorum.

Send Large Files Free - Fast Secure File Transfer - Filemail

Send large files free via email and links. Paid accounts share files of any size. Fast secure online file transfer using our file sharing site & apps.

www.filemail.com

Dosya Upload - Dosya Yükle indir

Ücretsiz olarak dosya upload edebileceğiniz dosya yükleme sitesi. Hızlı dosya yükle ve paylaş.

www.dosyaupload.com

Büyük Dosyalar Gönderme - Dosya Paylaşımı - TransferNow

Transfer başına 250 GB'a kadar büyük dosyaları göndermek ve paylaşmak için en kolay, en hızlı ve en güvenli ücretsiz dosya aktarım çözümü. Kayıt gerekmez.

www.transfernow.net

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[mavi674]

200 satırlarda iken flitreyi kullandığımda
İmleç flitrenin bir alt satıra gitse yeterli...
Flitreden sonra hepsini görmek için böyle düşündüm yoksa bazen yukarılara çıkmak gerekiyor
başka yolu varsa o da olur
Teşekkürler....

 

[mavi674]

İsteyen şu anda bunu kullanabilir.
Tarihi gelecek şeyleri buraya kaydederek takip edebilirsiniz.....

 

[mavi674]

200 satıra indiğinizde
Mavi Kutu

"BUGÜN 1 GÜNÜ GELEN VAR !" tıkladığınızda 35 satır geliyor görmek için yukarı satıra çıkmak lazım Oysa tıklamadan sonra 35 satır direk görüle iyi olacak Değişken olduğu için ben yapamadım. Olmasada olur ama o kadar makjazdan sonra böyle bir kolaylık da yakışır...

çıkıyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir komut kullanabilirsiniz.

Range("A3:A" & Rows.Count).SpecialCells(xlVisible)(1).Select

 

[mavi674]

Levent Bey Teşekkürler
5 flitre var hepsine kodu uyguladım ama
sadece 1 tanesinde sonuç alabildim
herhalde yanlış yere koydum kodu...

 

[Levent Menteşoğlu]

Levent Bey Teşekkürler
5 flitre var hepsine kodu uyguladım ama
sadece 1 tanesinde sonuç alabildim
herhalde yanlış yere koydum kodu...

Range("A3:A" & Rows.Count) aralığını kodlarınıza göre değiştirmeniz gerekir.

 

[mavi674]

Range("A3:A100" yaptm hata verdi
böyle olmayacak mı?

 

[mavi674]

Flitreler 5 satırda...

 

[Levent Menteşoğlu]

Flitreler 5 satırda...

5. satırda ise Range("A6:A100")...... gibi olmalı.

 

[mavi674]

Hata veriyor

Screenshot

Captured with Lightshot

prnt.sc

Bu arada sayfa kilitli
Flitre yaparken açıyor sonra kilitliyor
komutu kilitlemeden önce koydum
(Range("A6:A100")......)

 

[mavi674]

Range("A6:A")
yapınca çalıştı
istediğim gibi oldu
Çok çok Teşekkürler