Son hücrenin makro kodunu msgboxla göstermek

[Ersen.E]

ctrl+end yaparak excelde vb kodlarına ulaştım.

ActiveCell.SpecialCells(xlLastCell).Select

FAkat benim istediğim son satırın kaçıncı olduğunu bana söylemesi.ÖRneklersek:

A sütunu

1. ahmet
2. mehmet
3. ayşe
4. fatma
5. selim
6. süleyman

burada kaç satırın dolu olduğunu sayıp 6 şeklinde msgboxla yansıtmasını istiyorum.

Nasıl yapabilirm?

 

[Necdet]

Merhaba,

[A65536].end(3).row

A sütununda Son dolu satır numarasını verir.


msgbox "Son Satır Numarası : " & [A65536].end(3).row

 

[Orion1]

Aşağıdaki kodu deneyiniz.

MsgBox Cells(65536, "A").End(xlUp).Row

 

[Ersen.E]

Merhaba,

[A65536].end(3).row

A sütununda Son dolu satır numarasını verir.


msgbox "Son Satır Numarası : " & [A65536].end(3).row

Çok teşekkür ederim arkadaşım. Küçük bir bilgi 10 saattir beklememe neden oldu makroda bağdeğdolusay ı makroya geçirmeye çalışıyordum. Teşekürler.