en son satır

[mcetinkaya65]

Bir excel dosyasında sayfalar arası geçişlerde her açılan sayfada yazılmış olan en son satırla açılması mümkün mü?
Selamlar..

 

[Murat OSMA]

Herhangi belli bir sütun (Örnek; A sütunu) var ise; sayfanın kod bölümüne aşağıdaki kodu yapıştırabilirsiniz;

[SIZE="2"]private sub worksheet_activate()
range("a65536").end(3).select
end sub[/SIZE]

 

[mcetinkaya65]

İlginize teşekkür ederim.
Bu kodu Bu Çalışmakitabına yapıştırıp bütün sayfalara geçerli hale getirebilirmiyiz.Yaklaşık 100 sayfa var tek tek yapıştırmak zaman alacak.
Selamalar

 

[Mahir64]

Merhaba,

Murat Beyin kodlarını ThisWorkbook içine yapıştırın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a65536").End(3).Select
End Sub

 

[Murat OSMA]

Bu kodu kullanabilirsiniz;

[SIZE="2"]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a65536").End(3).Select
End Sub[/SIZE]

 

[mcetinkaya65]

İlginize ve bilginize teşekkür ederim.
Selamlar.

 

[Murat OSMA]

Günaydın Mahir Bey,
Kusura bakmayın sizin mesajınızı görmedim.