Filtrelemede adresleme

[wlion]

makro ile filtreleme yaptığımızda ilk satırı nasıl seçebiliriz ?
sendkey komutu ile denedim istenileni yapıyor ancak komutun [wait] bekleme seçeneği hem yolu uzatıyor hemde algoritmayı riskli hale getiriyor,
alternatif bir yol bilen varsa sevinirim,
Teşekkürler ,

 

[omerceri]

Range("a2:a16") süzülecek olan tüm satırlar

Sub a()

b = Split(Range("a2:a16").SpecialCells(xlCellTypeVisible).Address, ",")
Range(b(0)).Select
End Sub

 

[omerceri]

yukardaki kod süzülen satırlar ardışık olursa hata verir. Aşağıdaki kodla değiştirin.

Sub a()

Dim b As Range

Set b = Range(Range("a2:a16").SpecialCells(xlCellTypeVisible).Address)
Range(b(1).Address).Select
End Sub
Not

 

[wlion]

Tam isabet ,
teşekkürler.