Vba: etkin bir hücrede bir aralık nasıl seçilir

Şu anda etkin olan hücreden Excel’de bir hücre aralığı seçmek için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Etkin hücreden alt aralığı seçin

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Bu makro, etkin hücreden sütundaki son kullanılan hücreye kadar olan aralığı seçecektir.

Yöntem 2: Etkin Hücreden Aralık Yukarıyı Seçin

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Bu makro, etkin hücreden sütundaki ilk kullanılan hücreye kadar olan aralığı seçecektir.

Yöntem 3: Etkin hücrenin sağındaki aralığı seçin

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Bu makro, aktif hücreden aynı satırda sağdaki son kullanılan hücreye kadar olan aralığı seçecektir.

Yöntem 4: Etkin hücrede soldaki aralığı seçin

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Bu makro, aktif hücreden aynı satırda soldaki son kullanılan hücreye kadar olan aralığı seçecektir.

Aşağıdaki örnekler, her yöntemin Excel’deki aşağıdaki sayfayla nasıl kullanılacağını gösterir:

Örnek 1: Etkin hücreden alt aralığı seçin

Şu anda C3 hücresinin seçili olduğunu varsayalım.

Etkin hücreden sütundaki son kullanılan hücreye kadar aralığı seçmek için aşağıdaki makroyu oluşturabiliriz:

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Bu makroyu çalıştırdığımızda otomatik olarak aşağıdaki aralık seçilir:

C3 hücresinden sütunda kullanılan son hücreye kadar olan aralığın artık seçildiğine dikkat edin.

Örnek 2: Etkin hücreden yukarı aralığı seçin

Şu anda C3 hücresinin seçili olduğunu varsayalım.

Etkin hücreden sütunda kullanılan ilk hücreye kadar olan aralığı seçmek için aşağıdaki makroyu oluşturabiliriz:

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Bu makroyu çalıştırdığımızda otomatik olarak aşağıdaki aralık seçilir:

C3 hücresinden sütunda kullanılan ilk hücreye kadar olan aralığın artık seçildiğine dikkat edin.

Örnek 3: Etkin hücrenin sağındaki aralığı seçin

Şu anda B2 hücresinin seçili olduğunu varsayalım.

Aktif hücreden aynı satırda sağdaki son kullanılan hücreye kadar olan aralığı seçmek için aşağıdaki makroyu oluşturabiliriz:

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Bu makroyu çalıştırdığımızda otomatik olarak aşağıdaki aralık seçilir:

B2 hücresinden aynı satırda sağda kullanılan son hücreye kadar olan aralığın artık seçildiğine dikkat edin.

Örnek 4: Etkin hücrede soldaki aralığı seçin

Şu anda D6 hücresinin seçili olduğunu varsayalım.

Aktif hücreden aynı satırda soldaki son kullanılan hücreye kadar olan aralığı seçmek için aşağıdaki makroyu oluşturabiliriz:

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Bu makroyu çalıştırdığımızda otomatik olarak aşağıdaki aralık seçilir:

D6 hücresinden aynı satırda soldaki son kullanılan hücreye kadar olan aralığın artık seçildiğine dikkat edin.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: birden çok satır nasıl eklenir