hareketli buton

[mustafateknetas]

Sayın excel ustalarım
aşagıdaki kodla buton yukarı aşagı c sutunu içerisinde hareket ediyor.
ama ben 1. satırda saga sola hareket etmesini istiyorum. kot da ne gibi degisiklik yapmalıyım. yardımlarınızı bekliyorum.
saygılar.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Rows(1).Top
End Sub

 

[meslan]

Merhaba.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Rows(1).Top
CommandButton1.Left = ActiveCell.Rows.Left
End Sub

 

[mustafateknetas]

teşekkürler sayın meslan çok sağolun.

 

[cem116]

üstadlar, peki sayfada iki tane buton varsa aynı şekilde hareket etmesini istediğimiz? koda nasıl bir ilave yapmamız gerekiyor acaba ? ben birkaç deneme yaptım ama başarılı olamadım. yardımcı olabilir misiniz?

 

[Necdet]

üstadlar, peki sayfada iki tane buton varsa aynı şekilde hareket etmesini istediğimiz? koda nasıl bir ilave yapmamız gerekiyor acaba ? ben birkaç deneme yaptım ama başarılı olamadım. yardımcı olabilir misiniz?

Kodu inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    CommandButton1.Top = ActiveCell.Offset(0, 1).Top
    CommandButton1.Left = ActiveCell.Offset(0, 1).Left
    CommandButton2.Top = ActiveCell.Offset(0, 1).Top + CommandButton1.Height
    CommandButton2.Left = ActiveCell.Offset(0, 1).Left
    
End Sub

 

[cem116]

Kodu inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    CommandButton1.Top = ActiveCell.Offset(0, 1).Top
    CommandButton1.Left = ActiveCell.Offset(0, 1).Left
    CommandButton2.Top = ActiveCell.Offset(0, 1).Top + CommandButton1.Height
    CommandButton2.Left = ActiveCell.Offset(0, 1).Left
    
End Sub

üstad teşekkürler kod çalışıyor. Ancak bir küçük sorunumuz var, nereye tıklarsam butonlar ona göre hareket ediyor ama butona tıkladığımda da aynı mantıkla yerleri değişiyor. oysa butonlara tıkladığımda yerleri değişmemeli. Bu mümkün mü ? şöyle söyleyeyim , ben sadece d sütününda işlem yapıyorum butonların ise f sütunu boyunca hareket etmesi lazım. Benim tıkladığım yerin iki hücre sağında olacaklar yani. Ama butonlara atanmış makrolar var, onlara tıkladığımda makrolar çalışıyor ama butonlar bu sefer başka sütunlara geçiyor. Oysa onların sabit kalması lazım.

 

[Necdet]

Merhaba,

Sadece belli sütunda olmasını kontrol edebilirsiniz.

Offset(SatırNo,SütunNo) ile oynayarak istediğiniz gibi ayarlayabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    CommandButton1.Top = ActiveCell.Offset(0, 2).Top
    CommandButton1.Left = ActiveCell.Offset(0, 2).Left
    CommandButton2.Top = ActiveCell.Offset(0, 2).Top + CommandButton1.Height
    CommandButton2.Left = ActiveCell.Offset(0, 2).Left
    
End Sub