deneme

[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
__________________