Autofilter

[kadir78]

İyi günler. Autofilter yapılmış bir sütundaki, açılır listedeki ilk değeri ve üçüncü değeri işaretleyecek makro kodları paylaşırmısınız. Netten araştırdım fakat bir sonuç bulamadım.

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    With Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible)
        MsgBox .Cells(1, 1)
        MsgBox .Cells(3, 1)
    End With
End Sub

 

[kadir78]

Korhan hocam sağolun teşekkür ederim.