belirli satırın son sütunu sayısını bulmak

[a_self_lion]

Merhaba arkadaşlar;

'son sutunu buluyoruz ve ordan yazdırmaya başlıyoruz
Dim iSonSutun As Variant, ws As Worksheet

Set ws = Worksheets("" & CStr(ActiveSheet.Name) & "")

''' sayfadaki son sutun numarasını veriyor ama genel olarak herhangi birisi

'iSonSutun = ws.Cells.SpecialCells(xlCellTypeLastCell).Column


''' ben istiyorum 5 nci satırdaki son sutun numarasını arada boşluklar olabilir en sonu istiyorum.

iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)


'çıktı
Cells(10, 1).Value = iSonSutun

iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)

Yukarıdaki gibi denedim ama bana son sütunu buluyor fakat sayısı değilde içeriğinde ne yazıyorsa onu getiyor.
Ben o sütün sayısını öğrenmek istiyorum. 5 gibi 120 gibi vb....

Teşekkürler

 

[antonio]

Merhaba,

iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)[B][COLOR="Red"].Column[/COLOR][/B]

olarak deneyiniz.

 

[a_self_lion]

Antonio çok teşekkür ederim işimi gördü.

 

[a_self_lion]

Merhaba,

iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)[B][COLOR="Red"].Column[/COLOR][/B]

olarak deneyiniz.

Sayın antonio burdan yola çıkarak mesala 15 değerini elde ettik ben o denk gelen sayıyı baz alarak solda sağa 15 sayınca denk gelen sutunun 5 inci satırından 1000 inci satırına kadar içeriği nasıl temizlerim.

 

[antonio]

ws.Range(Cells(5, iSonSutun), Cells(1000, iSonSutun + 15)).ClearContents

şeklinde deneyebilirsiniz.
Söylediklerinizden çıkardığım sonucun doğru olup olmadığını anlamak için önce .ClearContents yerine .Select kullanınız. Silmeyi düşündüğünüz yer doğru seçilmişse size önerdiğim kodu kullanabilirsiniz.

 

[a_self_lion]

Sayın antonio tekrar teşekkür ederim tam aradığım kod.

 

[antonio]

Rica ederim. İyi çalışmalar.