Aktif Hücreden Son Girişe

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:

1. Bir sütundaki son girişi seçmek için aşağıdaki kod satırını eklemeniz yeterlidir:

Range("A4").End(xlDown).Select

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ç:

2. 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

Sayfadaki komut düğmesine tıkladığınızda sonuç:

3. 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

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.

Paylaş: