son satır bulma

[prensesleia]

herkese merhaba..
benim sorunum şu..dataları excel e giriyorum ama işlem yaptırırken sonra satırı For i=1 to 1234 yerine kendisinin bulmasını istiyorum..Exl.down komutuyla mı yapmam gerekiyor? yardımcı olursanız çok sevinicem.Teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Son satırı bulmak için aşağıdaki kodu kullanabilirsiniz.

A sütunu için;

[A65536].End(3).Row

 

[prensesleia]

daha genel bir şekilde kullanmam mümkünmü peki? yani sadece A sütünu için değil de..array vs mi kullanmam gerekiyo diğerleri içinde geçerli olabilmesi için?

 

[Ayhan Ercan]

ilk mesajdaki döngüde kurmak istediğiniz şekil şöyle

For i = 1 to [a65536].end(xlUp).Row

 

[Korhan Ayhan]

Selamlar,

Son satırı tesbit etmek için çok çeşitli çözümler üretilebilir. Mesela aşağıdaki gibi ikili bir döngü kurarsanız X değerine göre sütunu değişken yapabilirsiniz. Tabi sizin kodu nasıl bir tablo üzerinde kullanacağınız çok önemli ama yinede aşağıdaki kod size fikir verebilir.

Sub SON_SATIR_DÖNGÜ()
    For X = 1 To 10
    For Y = 1 To Cells(65536, X).End(3).Row
    'KENDİ KODLARINIZ...
    Next
    Next
End Sub

 

[prensesleia]

çok teşekkür ederim