İlk Satira Gİt Makrosu

[gardas58]

Oldukça fazla veri olan bir Exell sayfası içinde en sondan ilk satıra, ekleyeceğim bir butona makro ekliyerek nasıl hızlı bir şekilde gidebilirim.
Aslında ben elle makro ekleyerek bunu yaptım ancak yavaş yavaş gidiyor.
Selamlar iyi çalışmalar.

 

[Ali]

Sub ilkhücreyegit()
Selection.End(xlUp).Select
End Sub

Klavye kısayolu ise Ctrl+yukarı ok tuşuna basın

 

[gardas58]

Teşekkürler

Sub ilkhücreyegit()
Selection.End(xlUp).Select
End Sub

Klavye kısayolu ise Ctrl+yukarı ok tuşuna basın

Teşekkürler - Kolay gelsin.

Ya arkadaşım olmadı. Çünkü sayfanın başında başlık var ve bölmeler dondurulmuş durumda. Bir de ben bu sayfada en son boş değere git makrosu
Sub sonboşdeğer()
Range("A65535").End(xlUp).Offset(1, 0).Select
End Sub

kullanmıştım. Dolayısıyla sizin verdiğiniz makro en sonun bir üstündekine gidiyor. İkinci tıklamada ancak sayfa bölmelerini çözersem ilk hücreye gidiyor. Yani işimi görmedi. Başka öneri bekliyorum.

 

[Selçuk1]

sn gardas58;

aşağıdaki kodu denermisiniz:

Cells(1, 1).Activate

butona tıkladığınızda, a1 hücresine gidecektir otomatik olarak.. bunu kendinize uyarlayabilirsiniz.. umarım istediğinizi doğru anlamışımdır ve işinize yarar..

 

[gardas58]

İlk satırda başlık kısmını pencereler>bölmeleri dondur kullandığım için ancak sizin verdiğiniz kodu

Sub ilkhücreyegit()
Selection.End(xlUp).Select
Cells(2, 2).Activate
End Sub

yapark sorunu çözdüm teşekkürler.

 

[Ali]

Sub ikincihücreyegit()
Selection.End(xlUp).Offset(1, 0).Select
End Sub

Sanırım makrolara yeni başladınız Offset kullanımı öğrenmenizi tavsiye ederim.

 

[nihattt]

Sheets("Sayfa1").[A1].Select