Sayfanın Sonuna Gitmek Fakat!

[ins4n4ce]

Merhabalar a sütununda sütun sonuna hızlı gitmek istiyorum bunun için ctrl+home tuşunu kullandığımda b9 hücresine geliyorum a7 hücresine nasıl hızlı bir şekilde gelebileceğim konusunda yardımcı olursanız sevinirim.

 

[Emir Hüseyin Çoban]

. . .

A sütunu sabit mi yoksa imlecin bulunduğu sütunda mı en sonra gitmek istiyorsunuz.
Bütün excel tablolarında mı yoksa bir tanesinde mi bu şekilde kullanmak istiyorsunuz.

. . .

 

[ins4n4ce]

Sadece A sütununda en sona gitmek istiyorum. Saygılar.

 

[Emir Hüseyin Çoban]

. . .

Boş bir modül açın ve kodları içine yapıştırın.
Tablonuzu kaydedip, kapatın.
Tekrar açtığınızda klavyeden END tuşuna bastığınızda A sütunu en son hücreye gidecektir.

Home tuşu için kodları {HOME} olarak değiştirin.

Sub Auto_Open()
    On Error Resume Next
    Application.OnKey "{END}", "KOD"
End Sub
Sub Auto_Close()
    Application.OnKey "{END}"
End Sub

Sub KOD()
    Range("A" & [A65536].End(3).Row).Select
End Sub

. . .

 

[Erdem Akdemir]

Biraz enteresan bir yöntem ama paylaşmak istiyorum.

A sütununu seçin shift+enter yapın.

Sonra ctrl+yukarı ok .

 

[ins4n4ce]

Teşekkürler beyler.

 

[Erdem Akdemir]

Hüseyin bey'in müsadesiyle, biraz değişiklik yapmak istedim.

Aşağıdaki şekilde kullanırsanız, aktif sütundaki son hücreye gidersiniz.

Sub Auto_Open()
    On Error Resume Next
   Application.OnKey "{END}", "KOD"
End Sub
Sub Auto_Close()

  Application.OnKey "{END}"
End Sub

Sub KOD()
   Cells(65000, ActiveCell.Column).End(3).Rows.Select
End Sub

 

[nsertoglu]

(65000) veya (65536) ifadesi içeren komutlar yerine

rows.count

ifadesi daha genel olabilir düşüncesini paylaşmak isterim,

Cells(rows.count, ActiveCell.Column).End(3).Rows.Select

 

[Necdet]

(65000) veya (65536) ifadesi içeren komutlar yerine

rows.count

ifadesi daha genel olabilir düşüncesini paylaşmak isterim,

Cells(rows.count, ActiveCell.Column).End(3).Rows.Select

Aynen katılıyorum.