Satır sonundaki boş hücre

[milhanalp]

Merhaba,

son=WorksheetFunction.CountA(sheets("Sayfa1").Range("A:A"))+1

kodlarıyla A sütunun en sondaki boş hücreyi bulabiliyoruz.
Peki aktif hücrenin bulunduğu satırın en sonundaki boş hücreyi nasıl bulabiliriz?
Selamlar

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

son=WorksheetFunction.CountA(sheets("Sayfa1").columns(activecell.column))+1

 

[milhanalp]

Sayın leventm,
Bu ne sür'at . Daha yazının mürekkebi kurumamıştı.
Çok teşekkür ediyorum ilginize.
Selam ve Saygı ile...

 

[Haluk]

Merhaba;

Satırdaki hücreler arasında boş hücreler varsa leventm arkadaşımın önerdiği kodla, doğru sonuca ulaşamazsınız.

O zaman, aşağıdaki gibi bir kod kullanmanız gerekir.

LastCol = Cells(ActiveCell.Row, 255).End(xlToLeft).Column
MsgBox "Satırdaki Son dolu sutun :" & LastCol
MsgBox "Satırdaki Son dolu hucre :" & Cells(ActiveCell.Row, LastCol).Address

 

[milhanalp]

SayınRaider,
leventm arkadaşımızın kodlarını denedikten sonra, belki benim eksik anlatmamdan dolayı sonuca ulaşamadım. Başka örnekler de inceledikten sonra aşağıdaki kodlarla problem çözüldü. Amacım, satır sonundaki hücre değerini Textbox'a almaktı.

TetxBox1.Value=Cells(ActiveCell.Row, 255).End(xlToLeft).Value

Sizin kodların neredeyse aynısı zaten.
Her ikinize de çok teşekkür ederim.
Saygılar