Son dolu satır altındaki satır

[muratgunay48]

Arkadaşlar, sayın hocalarım. Son dolu hücrenin altını

Sub son_dolu_altı()
Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0).Select
End Sub

Şeklinde buluyorum ama hücrenin altı oluyor. Mesela son dolu hücrenin altındaki satırın B'den G'ye seçili olmasını istiyorum. Renk atayacağım.
Nasıl yapabilirim.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[airborne]

s.a.

Sub son_dolu_alt_renklendir()
    Dim sonSatir As Long
    sonSatir = Cells.Find(What:="*", _
                          After:=Cells(1, 1), _
                          SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious).Row

    With Range(Cells(sonSatir + 1, "B"), Cells(sonSatir + 1, "G"))
        .Select
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

 

[muratgunay48]

s.a.

Sub son_dolu_alt_renklendir()
    Dim sonSatir As Long
    sonSatir = Cells.Find(What:="*", _
                          After:=Cells(1, 1), _
                          SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious).Row

    With Range(Cells(sonSatir + 1, "B"), Cells(sonSatir + 1, "G"))
        .Select
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

Hocam tam da buydu Çok teşekkür ederim. Sağlıcakla.