Son doluyu belirli aralıkta aramak için.

[Carpintero]

Merhaba arkadaşlar aşağıdaki kod ile
1. satırın son dolu adresini istiyorum
ama tablolarımdan dolayı bu satır artık işimi göremiyor.
İsteğim ise aşağıdaki satırın
B1:K1 kendi tanımladığım bir alanda çalışması
bu mümkün mü acaba ?

Range("A2") = Cells(1, Columns.Count).End(1).Address

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi bulabilirsiniz.

Sub test()
    Dim SonBos As Integer
    SonBos = Cells(1, "K").End(xlToLeft).Column
    If SonBos < Range("B1").Column Then SonBos = 2
    MsgBox Cells(1, SonBos).Address
End Sub