Range(Selection, Selection.End(xlDown)).Select ile ilgili bir soru

[bilal5412]

Merhaba arkadaşlar,

Ekteki bağlantıdaki dosyada bulunan Sayfa1 deki A sütundaki değerlerini aşağıdaki kod ile seçemiyorum. Yada shift +end + down tuşu ile de seçilmiyor. Hatta görmüyor.

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

Yardımcı olabilir misiniz. Teşekkürler.



https://drive.google.com/file/d/0B3wJKQcxKCV4aXFmc2FkeE51WVU/view?usp=sharing

 

[Korhan Ayhan]

Deneyiniz...

Sub SEÇ()
    On Error Resume Next
    Son = Range("A:A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
    If Son <> 0 Then Range("A1:A" & Son).Select
End Sub

 

[bilal5412]

Deneyiniz...

Sub SEÇ()
    On Error Resume Next
    Son = Range("A:A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
    If Son <> 0 Then Range("A1:A" & Son).Select
End Sub

Teşekkürler.