Makroda düzenleme

[CenTay]

Arkadaşlar selam, bu buton enson hücrenin sağına geliyor, tıkladığımda sayfada g1 hücresine de gitsin istedim,yardımınız için teşekkürler.

Private Sub CommandButton1_Click()
Call satir
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.CommandButton1
        .Top = ActiveCell.Top + (Selection.Rows.Count * 12)
        .Left = ActiveCell.Left + (Selection.Columns.Count * 50)
    End With
End Sub

 

[YUSUF44]

Bu kodun

Private Sub CommandButton1_Click()
Call satir
End Sub

Kısmı sayfadaki düğmeye basıldığında satir isimli makronun çalıştırılmasını sağlıyor.

Kalan kısmı ise sayfadaki düğmeyi seçili olan hücrenin yakınına getiriyor.

"G1'e gitsin " demekle neyi kastediyorsunuz?

 

[PLİNT]

Arkadaşlar selam, bu buton enson hücrenin sağına geliyor, tıkladığımda sayfada g1 hücresine de gitsin istedim,yardımınız için teşekkürler.

Merhaba
"Tıkladığımda" dediğinize göre şöyle olabilir.

 Private Sub CommandButton1_Click()
'Call satir
 With ActiveSheet.CommandButton1
        .Top = [g1].Top + ([g1].Rows.Count * 1)
        .Left = [g1].Left + ([g1].Columns.Count * 50)
    End With
End Sub

 

[CenTay]

Selam arkadaşlar cevaplar için sağolasınız