Kolon adını değişkenden alma

[ismailuguz]

Merhaba arkadaşlar:
excel sayfasında son satırı bulurken kullandığımız
[A65536].end(3).row
ifadesinde kolon adını bir değişkenden aldığımızda kodu nasıl yazmamız gerekiyor.


cln = Cells(1, i).Address
cln=replace(cln,"$","")
cln=replace(cln,0,"")
cln=replace(cln,1,"")
cln=replace(cln,2,"")
cln=replace(cln,3,"")
cln=replace(cln,4,"")
cln=replace(cln,5,"")
cln=replace(cln,6,"")
cln=replace(cln,7,"")
cln=replace(cln,8,"")
cln=replace(cln,9,"")

for t = 1 to sheets("Veriler").[cln & 65536].end(3).row
şeklinde deniyorum olmuyor.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

cln yi nasıl bulunacağını mesajınızdan anlamadım fakat aşağıdaki gibi yazarak olabilir.

Sheets("Veriler").Cells(65536, cln).End(3).Row

Aşağıdaki gibi kullanarak versiyona göre son satırı 65536 olmadan rows.count ile yazarsınız.

Sheets("Veriler").Cells(Rows.Count, cln).End(3).Row

.

 

[muygun]

Merhaba;
for t = 1 to sheets("Veriler").[cln & 65536].end(3).row
satırını;
for t = 1 to sheets("Veriler").Cells(Rows.Count, cin).End(xlUp).Row

şeklinde deneyin.
İyi çalışmalar.

Not: Ömer Bey'in cevabını görmeden yazmıştım. (Aynı cevabın tekrarı gibi oldu)

 

[ismailuguz]

Teşekkür ederim çok yardımcı oldunuz.