Belli Sütun Aralığındaki son dolu sütunu bulmak

[Feylosof]

Değerli excel üstadlarım;
AF:AQ sütunları arasında sınırlı olmak şartıyla son dolu sütunu bulacak koda ihtiyacım var.
B sütunuda isimler var; seçilen ismin satırında bulunan AF:AQ sütunları arasında son dolu sütunu bulacak şekilde.
Forumda bulunan son dolu sütun kodlarını uyarlama yapamadım.

 

[Ömer]

Merhaba

Deneyiniz.

Sub deneme()

    Dim b As Long, sut As Integer
    
    b = Selection.Row
    
    sut = Cells(b, "AQ").End(xlToLeft).Column
    
    If sut < 32 Then
        MsgBox "AF:AQ aralığında değer yok"
    Else
        MsgBox sut
    End If
    
End Sub

 

[Feylosof]

Ömer Bey çok teşekkür ediyorum. Emeğinize ve elinize sağlık. Hemen deniyorum.