makro ile sayfa başı ve sayfa sonu makrosu

[coşkun79]

ekteki dosyanın "w1" hücresindeki aşağı yöne bakan butona bastığımda sağa yada sola kaymadan sadece sayfanın son satırına (mümkünse veri olan son satırdan sonraki 5 adet boş satırı da gösterecek şekilde) gitmesini istiyorum. ancak butona bastığımda sayfa sola kayıyor. "q1" hücresindeki buton ise istediğim gibi.

kısaca sayfa sonu ve başını gösteren bu butonlara atayacağım makroları çalıştırdığımda sayfa sonuna ve başına giderken sağa/sola kaymadan işlemi gerçekleştirsin istiyorum. buna göre daha uygun bir makro yazabilirmisiniz.

 

[coşkun79]

butonu kopyaladığımda yada makaroyu herhangibi excel kitapçığının herhangibir sayfasına kopyaladığımda çalışacak şekilde yazılacak bir makro çok makbule geçer

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod, aktif hücrenin sütununda olmak üzere;
son dolu hücreyi seçer (sonraki 5 satır ekranda olacak şekilde).

Yok eğer belli bir sütundaki son dolu hücreye gitmek istiyorsanız,
kod'daki ActiveCell.Column kısımlarını çift tırnak arasında olarak "W" gibi istediğiniz sütun adını yazabilirsiniz)
.

[FONT="Arial Narrow"][B]Sub SÜTUNDAKİ_SON_DOLU_HÜCREYİ_SEÇ()[/B]
For satır = Cells(65536, [COLOR="Blue"]ActiveCell.Column[/COLOR]).End(3).Row + 1 To 4 Step -1
    If Cells(satır, [COLOR="Blue"]ActiveCell.Column[/COLOR]) <> "" Then
    Cells(satır + 5, [COLOR="Blue"]ActiveCell.Column[/COLOR]).Activate
    Cells(satır, [COLOR="Blue"]ActiveCell.Column[/COLOR]).Activate: Exit For: End If: Next
[B]End Sub[/B][/FONT]