Makroyla buton eklemek

[bykursat2]

Makroyla A1 hücresine yeni buton ve buna bağlı kod eklemek istiyorum.
nasıl yapabilirim ?
Teşekürler
Syg.

 

[veyselemre]

Hücreye ekleme gibi bir olay yok, sadece butonun koordinatlarını verebilirsiniz.
[vb:1:a6a0e270a4]Sub butonekle()
ActiveSheet.Buttons.Add(10, 5, 50, 20).Select
Selection.OnAction = "Makro1"
End Sub[/vb:1:a6a0e270a4]

 

[bykursat2]

Peki hücrenin koordinatlarını bulabilme gibi bir şansım varmı ?

 

[Haluk]

Sayın veyselemre'nin kodunu biraz revize ederek, istediğiniz herhangibir hücrenin üzerine (sol üst köşesine) butonu ekleyebilirsiniz.

Örneğin, G10 hücresi....

Sub ButonEkle2()
    Set MyButton = ActiveSheet.Buttons.Add(Range("G10").Left, Range("G10").Top, 100, 20)
    MyButton.OnAction = "Makro1"
    MyButton.Characters.Text = "Test Buton"
End Sub

 

[veyselemre]

Sayın veyselemre'nin kodunu biraz revize ederek, istediğiniz herhangibir hücrenin üzerine (sol üst köşesine) butonu ekleyebilirsiniz.

Örneğin, G10 hücresi....

Sub ButonEkle2()
    Set MyButton = ActiveSheet.Buttons.Add(Range("G10").Left, Range("G10").Top, 100, 20)
    MyButton.OnAction = "Makro1"
    MyButton.Characters.Text = "Test Buton"
End Sub

çok güzel !!

Oldu olacak hücreyi tam eşitleyelim.
[vb:1:4225e602b3] Set MyButton = ActiveSheet.Buttons.Add(Range("G10").Left, Range("G10").Top, Range("G10").Width, Range("G10").Height)[/vb:1:4225e602b3]

 

[bykursat2]

Teşekürler bu siteyi seviyoruuum :mrgreen:

 

[bykursat2]

yaaa ben bi soru daha soracağım
şimdi istediğim hücreye butonu ekledim.
ancak yeni butona basınca altında bulunan hücrenin değerini nasıl alacağım :agla:

 

[karamurselli]

MyButton.OnAction = "Makro1"

Makro1 makrosu oluşturup yapmak istediğiniz eylemin kodlarını girin.
düğmeye basınca Makro1 çalışması lazım.

 

[Haluk]

Dim MyButton As Object
'
Sub ButonEkle3()
    Set MyButton = ActiveSheet.Buttons.Add(Range("G10").Left, Range("G10").Top, 100, 20)
    MyButton.OnAction = "Makro1"
    MyButton.Characters.Text = "Test Buton"
End Sub
'
Sub Makro1()
    MsgBox MyButton.TopLeftCell.Value
End Sub

 

[bykursat2]

yok anlatamamışım

Sub Düğme1_Tıklat()
    Set MyButton = ActiveSheet.Buttons.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
    MyButton.OnAction = "Makro1"
    MyButton.Characters.Text = ActiveCell.Value
satir = ActiveCell.Row
deg = Range("A" & satir)
sutun = 1
Do
satir = satir + 1
If Cells(satir, sutun) = deg + 1 Or Cells(satir, sutun) = deg + 2 Or Cells(satir, sutun) = deg + 3 Or Cells(satir, sutun) = deg + 4 Then
Cells(satir, sutun).RowHeight = 0
Else
Exit Do
End If
Loop
End Sub

makroda bu şekilde A sütunundaki activecell.row'a buton ekleniyor ben bu butona altında bulunan hücrenin değerini aldırmak istiyorum

Resimde göründüğü üzere B3 B4 B5 hücrelerinde bulunan butona bastığımda Makro 1 kodlamasıda hangi butona bastıysam onun altında bulunan hücrenin değerini almak istiyorum

 

[Haluk]

...
Resimde göründüğü üzere B3 B4 B5 hücrelerinde bulunan butona bastığımda Makro 1 kodlamasıda hangi butona bastıysam onun altında bulunan hücrenin değerini almak istiyorum

Yukarıdaki alıntıdan anladığım kadarıyla bir dosya ekliyorum.

Kendi çalışmanıza uyarlarsınız...

 

[bykursat2]

Çok Teşekürler
Aradığım Kod buydu
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Value
Elinize Sağlık



"İnsanların en hayırlısı, insanlara faydalı olandır."
Hz.Muhammed S.A.V
Allah hayrınızı makbul kılsın