[Çözüldü] Hareketli Ok butonu

[yesilyurtlu]

Üstadım açıklama ekte mevcut. Yardımlarınızı bekliyorum.



(Sorun çözüldüğü için, çözüm içeren dosyalar haricindekiler silinmiştir. - Bülent)

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Sub Resim8_Tıklat()
If ActiveCell.Column = 9 Then Cells(1, "I").End(xlDown).Select
End Sub
Sub Resim9_Tıklat()
If ActiveCell.Column = 9 Then Cells(65536, "I").End(xlUp).Select

End Sub


[yesilyurtlu]

Evren Abi kızma bana ama butonu hareket ettirmedim.

[Orion1]

Yanlış anlamışım.Ben hücre seçeme anlamışım.
Dosya ektedir.

Kod: [Seç]

Sub Resim8_Tıklat()
Dim adr1 As String
adr1 = ActiveSheet.Shapes(1).TopLeftCell.Address
Cells(1, Range(adr1).Column).End(xlDown).Select
ActiveSheet.Shapes(1).Top = ActiveCell.Top
End Sub
Sub Resim9_Tıklat()
Dim adr1 As String
adr1 = ActiveSheet.Shapes(1).TopLeftCell.Address
Cells(65536, Range(adr1).Column).End(xlUp).Select
ActiveSheet.Shapes(2).Top = ActiveCell.Top - ActiveSheet.Shapes(2).Height
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Evren Abi Teşekkür Ederim. Ellerine sağlık.

"ÇÖZÜLDÜ"

[Orion1]

Evren Abi Teşekkür Ederim. Ellerine sağlık.

"ÇÖZÜLDÜ"

Rica ederim.
İyi çalışmalar.