Bu bölümde Excel VBA’da Range nesnesinin End özelliğini inceleyeceğiz. Aktif Hücreden bir sütundaki son girişe kadar olan aralığı seçmek için bu özelliği kullanacağız.
Örnek:
A sütununda ürün adetleri var. Zamanla daha fazla ürün adedi ekleyeceğimizi varsayalım.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
- Bir sütundaki son girişi seçmek için aşağıdaki kod satırını eklemeniz yeterlidir:
Range("A4").End(xlDown).Select
Code language: VB.NET (vbnet)
Not: Range(“A4”) yerine, Range(“A1”), Range(“A2”) vb. tanımlamaları da kullanabilirsiniz. Bu kod satırı CTRL + AŞAĞI OK tuşlarına basmayla eşdeğerdir.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
- A4 hücresinden sütundaki son girişe kadar olan aralığı seçmek için aşağıdaki kod satırını ekleyin:
Range(Range("A4"), Range("A4").End(xlDown)).Select
Code language: VB.NET (vbnet)
Sayfadaki komut düğmesine tıkladığınızda sonuç:
- Aktif Hücreden sütundaki son girişe kadar olan aralığı seçmek için, Range(“A4”) yerine ActiveCell yazın.
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Code language: VB.NET (vbnet)
A8 hücresini seçip sayfadaki komut düğmesini tıkladığınızda sonuç:
Not: Diğer yönlerde hareket etmek için xlUp, xlToRight ve xlToLeft sabitlerini kullanabilirsiniz. Bu şekilde, Aktif Hücreden son girişe kadar olan aralığı seçebilirsiniz.