seçili hücre yanında commandbutton bulunsun

[irfancantr]

İyi akşamlar.Aşağıdaki kod sayfada bulunan commandbutton'un mause ile herhangi bir seçtiğim satıra getiriyor,peki ben seçtiğim hücrenin satır sütun gözetmeksizin iki hücre yanına getirebilir miyim acaba bu butonu?

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

 

[irfancantr]

Sorumu açık bir dille ifade edemedim galiba? Örneğin sayfa1 de bir adet commandbutton1 var ve bu buton b sütunu hizasında yer almakta.Ben c8 hücresine işlem yapmak için tıkladığım zaman bu buton b8 e geliyor,aynı şekilde ben k15 hücresine gelsemde buton b15 e iniyor.Benim istediğim ben hangi hücreye gelirsem butonda benim seçtiğim hücrenin iki alt hücresinde bulunsun istiyorum solunda bulunmasından vazgeçtim şimdiden teşekkür ederim...

 

[irfancantr]

Yardımcı olabilecek yokmu acaba?

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki gibi bir kodla, istediğiniz işlemi yapmak mümkün. Örnek dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
Set hcr = ActiveCell.Offset(3, 0)
With CommandButton1
    .Left = hcr.Left
    .Top = hcr.Top
End With
Set hcr = Nothing
End Sub

 

[neo]

merhaba
sayın fpc bu butonu beli bir alanda aktif etmek mümkün mü acaba örneğin sadece B sütünü yada B1 ve D10 sütünlarında aktif olabilirmi

 

[Orion1]

Merhaba.
Yalnızca B sütununda oluyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Offset(2, 0).Top
CommandButton1.Left = Cells(ActiveCell.Row + 2, "B").Left
End Sub