Macro ile belirtilen aralığı seçtirme

[yyhy]

Macro ile belirtilen aralığı seçtirebilir miyiz?

 

[hamitcan]

Sub Sec()
Set tbl = [A2].CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).Select
End Sub

 

[yyhy]

Sayın Hamitcan

İlginiz İçin Teşekkürler. Yalnız bir hususu belirtmedim; q sütunundan sonra da verilerim var ben sadece q sütununa kadar olan yerin seçilmesini istiyorum. Acaba kodu bu şekilde düzeltebilir misiniz? Teşekkürler.

 

[hamitcan]

Sub Sec()
Set tbl = [A2].CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    17).Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub SEÇ()
    Range("A2:Q" & Cells(Rows.Count, 1).End(3).Row).Select
End Sub

 

[yyhy]

Sayın hamitcan ve Korhan Ayhan Bey Teşekkürler ihtiyaca cevap verdi. İyi çalışmalar.