Tıkladığım hücreye buton gelmesi

[kemalist]

Arkadaşlar Merhaba;benim elimde makro ile çalışan birçalışma sayfası var ve ben bu makroyu bir butonla çalıştırıyorum.Bu butonu her defasında yerini değiştirmek zorunda kalıyorum.Bunu herhangi bir hücrenin üzerine tıkladığımda butonun buraya gelmesini nasıl sağlayabiliriz? İlginiz için şimdiden çok teşekkür ederim.

 

[turist]

Sayfa koduna aşağıdaki kodu ekleyip deneyin.
Herhangibir hücrede "Çift Tıklama" yaparsanız "CommandButton1" o hücreye gelecektir.
Kodu buton özelliğinize uygun şekilde değiştirebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error GoTo 0
With Target
    CommandButton1.Top = .Top
    CommandButton1.Left = .Left
End With
End Sub

 

[kemalist]

Dediğiniz gibi yaptım fakat çalımadı bakarmısınız?

 

[halit3]

Alternatif kod

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Sh = Sheets(ActiveSheet.Name)

sut = ActiveWindow.Selection.Column + 1
sat = ActiveWindow.Selection.Row + 1
Say = 1 'sh.Shapes.Count

If sut > Columns.Count Then sut = Columns.Count
If sat > Rows.Count Then sat = Rows.Count

If TypeName(Sh.Shapes(Say).OLEFormat.Object) = "Button" Then
Sh.Shapes(Say).OLEFormat.Object.Characters.Text = "verileri aktar"
Else
Sh.Shapes(Say).OLEFormat.Object.Object.Caption = "verileri aktar"
End If
Sh.Shapes(Say).OLEFormat.Object.Top = Cells(sat, sut).Rows.Top
Sh.Shapes(Say).OLEFormat.Object.Left = Cells(sat, sut).Rows.Left
Sh.Shapes(Say).OLEFormat.Object.Height = 22
Sh.Shapes(Say).OLEFormat.Object.Width = 78

End Sub

 

[Necdet]

Dediğiniz gibi yaptım fakat çalımadı bakarmısınız?

Dosyanızı inceledim, herhangi bir hücreye çift tıklayınca CommandButton geliyor. Tek sıkıntısı tıklanan hücrenin üzerine gelmesi, yan hücreye gelmesi daha mantıklı.

 

[turist]

Dediğiniz gibi yaptım fakat çalımadı bakarmısınız?

Dosyanız eklidir.
Herhangibir hücrede "çift tıklama" yapın ve Butona basarak test edin.

 

[kemalist]

Çok teşekkür ederim....

 

[halit3]

bu butona tıkladığımda Modül 1 deki makronun çalışmasını istiyorum.Bunu nasıl ilave edebiliriz?

Alternatif dosya