Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 27 Mayıs 2010, 19:22:03

Başlık: [Çözüldü] Hareketli Ok butonu
Gönderen: yesilyurtlu - 27 Mayıs 2010, 19:22:03

Ü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)

Başlık: Ynt: Hareketli Ok butonu
Gönderen: Orion1 - 27 Mayıs 2010, 23:06:46

Dosyanız ektedir. 8)

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


Başlık: Ynt: Hareketli Ok butonu
Gönderen: yesilyurtlu - 27 Mayıs 2010, 23:56:57

Evren Abi kızma bana ama butonu hareket ettirmedim.

Başlık: Ynt: Hareketli Ok butonu
Gönderen: Orion1 - 28 Mayıs 2010, 11:37:31

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

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.]

Başlık: Ynt: Hareketli Ok butonu
Gönderen: yesilyurtlu - 28 Mayıs 2010, 16:41:36

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

"ÇÖZÜLDÜ"

Başlık: Ynt: Hareketli Ok butonu
Gönderen: Orion1 - 28 Mayıs 2010, 17:50:32

Alıntı yapılan: yesilyurtlu - 28 Mayıs 2010, 16:41:36

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

"ÇÖZÜLDÜ"

Rica ederim.
İyi çalışmalar. 8)