Range ile seçim yerine başka bir yöntem

[sbayyigit]

arkadaşlar merhaba;


sub deneme()
Sheets("ym").select
ss = WorksheetFunction.CountA(Sheets("ym").Rows(1))
range("a2:j2").select
end sub

"ym" sayfasındaki 1 satırdaki enson dolu kolon sayısını
ss = WorksheetFunction.CountA(Sheets("ym").Rows(1))
bu şekilde buluyorum.

dolu satır sayısı yani (en son dolu hücre "j1" hücresi)
ss=10 olsun

bu durumda seçmem gereken aralık

a2:j2 şeklinde olması gerekiyor fakat "j" yerine 10 yazmam gerekiyor çünkü son dolu hüre her zaman için j sütünuna denk gelmiyor. bazan 2 sütun kullanmam gerekirken bazan da 30 sütun kullanabiliyorum.

range("a2:j2"). select
yerine nasıl bir yöntem uygulanabilir.
yardımlarınız için teşekkürler

 

[Orion1]

sat=cells(65536,"A").end(xlup).row
range("a2:j" & sat). select

 

[ReBiwAr]

evren hocam yine çok hızlısınız

 

[sbayyigit]

sat=cells(65536,"A").end(xlup).row
range("a2:j" & sat). select

evren hocam hızınıza hayranım. ancak ben mi soruyu anlatamadım bilmiyorum. burada değişken olan satır sayısı değil sütun olacak yani j-k-l gibi gidecek.

yani a satırındaki son dolu hücre değil
1. satırdaki son hücrenin bulunduğu kolon sayısı önemli

 

[Orion1]

evren hocam hızınıza hayranım. ancak ben mi soruyu anlatamadım bilmiyorum. burada değişken olan satır sayısı değil sütun olacak yani j-k-l gibi gidecek.

yani a satırındaki son dolu hücre değil
1. satırdaki son hücrenin bulunduğu kolon sayısı önemli

sut=cells(2,256).end(xltoleft).column
range(cells(2,1),cells(2,sut)).select

 

[sbayyigit]

sut=cells(2,256).end(xltoleft).column
range(cells(2,1),cells(2,sut)).select

işlem budur.....

çok teşekkür evren hocam
beyninize sağlık

 

[Orion1]

işlem budur.....

çok teşekkür evren hocam
beyninize sağlık

rica ederim.
iyi çalışmalar.