son satır

[honestguy25]

500 satırlık bir sayfam var ve artmayada devam ediyor bunun ust kısmına bir buton koyarak doğrudan yazılı olan son satıra nasıl gidebilirim.. yada başka bir kısayolu varmıdır ? teşekkürler

 

[Necdet]

Merhaba,

Herhangi bir hücrede iken (Örneğin A1) :
End Tuşuna Basın ve çekin
Sonra aşağı oka basın.
İlk Boş hücreden bir önceki dolu hücreye kadar gider.

Buton da konulabilinir, size bağlı.

 

[honestguy25]

küçük bir ok simgesi ile makro koymak istiyorum siteden bır ıkı ornek kopyaladım olmadı hocam.. B sütünundaki yazılı en son satıra gidecek.. yardımcı olursanız sevinirim teşekkürler

 

[honestguy25]

hocam sizin önereceğiniz kod ne olabilir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın ve bir buton ile ilişkilendirin.

Sub SonSatir()
    Range("B" & Cells(Rows.Count, "B").End(3).Row + 1).Select
End Sub

 

[honestguy25]

hocam teşekkürler bende bu arada bir kaç fakrlı buldum sizinkinide denicem sayfayı okuyan diğer arkdaşlar için onları da vereyim...
ilginize teşekkürler

Sub LastCellBeforeBlankInColumn()
Range("b1").End(xlDown).Select


Sub LastCellBeforeBlankInColumn()
Columns("b:b").SpecialCells(xlCellTypeBlanks)(1, 1).Select
End Sub