Seçili Alan İçindeki Son Dolu Hücre

[buyocan]

İyi günler.
Sorum Makro ile örneğin ("B5:B55,B75:B95,B103:B110") şeklinde farklı alanda 50'ye yakın seçimim var. Bunlar sırayla doluyor.
Ben en son dolu hücrenin bir alt hücresini bulmak istiyorum.
Yardım edenlere şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod "B5:B55" hücre aralığındaki en son dolu hücrenin bir alt satır numarasını verir.

Cells(55, "B").End(xlUp).Row + 1

Diğer alanları da buna göre yapabilirsiniz.

 

[buyocan]

Merhaba.
Aşağıdaki kod "B5:B55" hücre aralığındaki en son dolu hücrenin bir alt satır numarasını verir.

Cells(55, "B").End(xlUp).Row + 1

Diğer alanları da buna göre yapabilirsiniz.

Şöyle bir hata veriyor.
Ekran Alıntısı.PNG - 8 KB

Yapmak istediğim ("B5:B55,B75:B95,B103:B110") bu alandaki ilk boş hücreye gitmek. Seçimim dışında kalan hücrelerde bazılarında değer var. Bazılarında değer yok. Onları dikkate almıyacağım.

 

[Muzaffer Ali]

Aşağıdaki kod ile bulabilirsiniz..

Sub Test()
    Dim SonSatir As Range
    Dim SonDoluHucre As Integer

    For Each SonSatir In Range("B5:B55,B75:B95,B103:B110")
        If SonSatir <> "" Then
            SonDoluHucre = SonSatir.Row + 1
        End If
    Next
    Cells(SonDoluHucre, "B").Select
End Sub

 

[YUSUF44]

Alternatif:

Sub hucre()
Set c = [B5:B55, B75:B95, B103:B110].Find("")
If Not c Is Nothing Then c.Select
End Sub

 

[Hepgel]

Merhaba @buyocan

Yanlış anlamadıysam ;

Range("B5:B55,B75:B95,B103:B110").SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Select

 

[buyocan]

Her 3 mesajda işimi gördü. İlginize teşekkürler.

 

[Muzaffer Ali]

Aynı sonucu vermiyor ki üçü de nasıl işinizi gördü?

 

[buyocan]

Aynı sonucu vermiyor ki üçü de nasıl işinizi gördü?

Ben verdiğim aralığa sırayla veri giriyorum. Range("B5:B55,B75:B95,B103:B110") B55' e kadar değer girdiğim de B75 gidiyor. İstediğim de buydu. Tüm formüller işimi gördü. İlk başta sonra 50'ye yakın alanım var demiştim. Tümünü işleyince hepsinde hata verdi. Çok falza seçim olduğundan sanırsam. Ama o sorunu hallettim.