Dolu Olan son Hücre

[nazif74]

Merhaba Arkadaşlar
Aşağıda kodda liste isimlerinin yer aldığı hücre a100 de bittiği için bi sorun yok ama listeye yeni bir isim eklediği zaman bu kodun A2:A101 olması gerekiyor bunun yerine A100 yazan yere dolu olan son hücrenin değerini nasıl atayabilirim. Çünkü eğer A100 yerine henüz dolu olmayan hücreleri yazacak olsam örneğin A500 yazsam listboxta isimlerin en altında gereksiz bir boşluk oluşuyor.

Range("A2:A100").Select
ActiveWorkbook.Names.Add Name:="listeadi", RefersToR1C1:= _
"=isim!R2C1:R100C1"

 

[Haluk]

Sub Test()
    Dim NoA As Long
    NoA = Cells(65356, 1).End(xlUp).Row
    ActiveWorkbook.Names.Add Name:="listeadi", RefersTo:=Range("A1:A" & NoA)
End Sub

 

[Valuer]

Pardon, yanlış anlamışım.

 

[nazif74]

Arkadaşlar yardımlarınız için çok teşekkür ederim. :mutlu:

 

[snx111]

= Cells(65356, 1).End(xlUp).Row
hata veriyo

 

[Huseyinkis]

= Cells(65356, 1).End(xlUp).Row
hata veriyo

Range("A65536").End(3).Row deneyin