Soru Hareketli Buton

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki kod ile aktif sayfada tıkladığım hücreye düğme7 hareketleniyorr, ben sadece A1:C27 aralığında gezindiğimde hareket etmesini istiyorum. A1:C27 aralığın dışında tıkladığımda hareket etmesini istemiyorum. yardımcı olabilirseniz sevinirim. şimdiden teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Shapes("düğme 7").Top = ActiveCell.Offset(2, 2).Rows.Top

End Sub

 

[TiOr]

Selam,
Tam istediğiniz gibi değil ama bir denersiniz;
Sayfanın kod kısmına;

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100 "BURALARI KURCALAYIN"
            CommandButton1.Left = .Left + 300 "BURALARI KURCALAYIN"
        End With
End Sub

 

[bulentkars]

Selam,

Malesef uyarlayamadım, daha basit bir uyarlama olursa süper olur..

 

[YUSUF44]

ActiveSheet satırından önce aşağıdaki satırı ekleyip deneyin:

If Intersect (Target, [A1:C27]) is Nothing Then Exit Sub

 

[bulentkars]

ActiveSheet satırından önce aşağıdaki satırı ekleyip deneyin:

If Intersect (Target, [A1:C27]) is Nothing Then Exit Sub

Yusuf Bey,

Çok Çok teşekkür ederim. elinize emeğinize sağlık

 

[Leoncio]

Yusuf Bey,

Çok Çok teşekkür ederim. elinize emeğinize sağlık

Alternatif olması açısından;

N sütunu ile AG sütunları arasında sınırlandırmak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)​

ActiveSheet.Shapes("düğme 27").Top = ActiveCell.Offset(1, 1).Rows.Top​

ActiveSheet.Shapes("düğme 27").Left = ActiveCell.Offset(1, 1).Rows.Left​

End Sub​