Bir hücreden başlayıp son dolu hücreye kadar aralık seçmek

[karakaçan]

Arkadaşlar mesela A sütununda A1 den başlayıp yine A sütunundaki son dolu değere kadar aralığı nasıl seçerim.

ctrl+shiht+alt ok tuşları ile yapınca içerisnde formül olup ta boş sonuç verenleri de dolu kabul ediyor.

Aynı şekilde A1 hücresinden başlayıp 1.satırdaki son dolu hücreye kadar seçmek
A sütunundaki ilk boş hücreyi seçmek
1. satırdaki ilk boş hücreyi seçmek

kod ile nasıl yapılır?

 

[Ömer]

Merhaba,

Anlamak için soruyorum.

Değer olarak son gözüken hücre A15 olsun, fakat A18 hücresi boş gözükse de içerisinde formül var. Bu durumda A1:A15 aralığını mı yoksa A1:A18 aralığını mı seçecek.

 

[karakaçan]

Merhaba,A1:A15 aralığını seçecek

 

[Seyit Tiken]

Formül olan hücreleri seçmiyor.

[a1:a15].SpecialCells(2, 23).Select

 

[karakaçan]

ilginize teşekkürler ekli dosyada açıkladım bakarmısınız.

 

[Ömer]

Bu şekilde deneyin.

Sub Sec()
 
    Dim son As Long
    
    son = [K:K].Find("*", , xlValues, , xlByRows, xlPrevious).Row
 
    Range("K1:K" & son).Select
 
End Sub

.

 

[karakaçan]

teşekkür ederim işimi gördü. Hayırlı ramazanlar........