Sonraki sayfa

[happy_spring]

Arkadaşlar

Sub gitsayfa2()
Sheets("sayfa2").Select
Range("a6").Select
End Sub

kodu ile bir sonraki sayfaya link verdim.
Fakat cursorun "a6" ya değilde sayfada sutünun sonundaki ilk boş hücreye gitmesini nasıl sağlarım?

ayrıca sayfa2 ye ise sayfa 1 e giden bir buton koydum bunu da sütun sonundaki ilk boş hücrenin altına gitmesini nasıl sağlarım?

 

[ynmcan]

Syn. happy_spring;
Aşağıdaki kodu deneyin.

Sub gitsayfa2()
Sheets("sayfa2").Select
i = Sheets("sayfa2").Range("a65536").End(3).Row + 1
Sheets("sayfa2").Cells(i, 1).Select
End Sub

 

[happy_spring]

@ynmcany bu kod istediğim gibi çalıştı.
ikinci sayfadaki butonuda her zaman cursorun bir altındaki hücreye nasıl getirebilirim*

 

[ynmcan]

@ynmcany bu kod istediğim gibi çalıştı.
ikinci sayfadaki butonuda her zaman cursorun bir altındaki hücreye nasıl getirebilirim*

Syn. happy_spring;
Aşağıdaki kodu deneyin.

Sub gitsayfa1()
Sheets("sayfa1").Select
i = Sheets("sayfa1").Range("a65536").End(3).Row + 1
Sheets("sayfa1").Cells(i, 1).Select
End Sub

 

[happy_spring]

aslında yapmak istediğim butonun 2.sayfada cursorun gittiği en son hücrenin altına gitmesi.

 

[ynmcan]

aslında yapmak istediğim butonun 2.sayfada cursorun gittiği en son hücrenin altına gitmesi.

Syn. happy_spring;
Örnek bir dosya yollarsanız yardımcı olalım.
Tam olarak ne yapmak istediğinizi anlamadım.

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla son boş hücrenin yanına butonuda konumlandırmak istiyorsunuz. Bu işlem için aşağıdaki kodu kullanabilirsiniz. Kırmızı bölümü kendi sayfanızdaki buton adına göre değiştiriniz.

Sub Git_Sayfa2()
    Sheets("Sayfa2").Select
    Range("A65536").End(3).Offset(1).Select
    ActiveSheet.Shapes("[COLOR=red]Button 1[/COLOR]").Top = ActiveCell.Top
End Sub

 

[happy_spring]

evet korhan bey.
tam olarak istediğim buydu.gayet güzel çalıştı.
İlginize teşekkür ederim.