Seçilen hücreye gelen düğme

[ankidod]

Arkadaşlar merhaba. Sitede ararken (şimdi nereden aldığımı bulamıyorum ama her kimse var olsun) şöyle bir kod buldum. Seçtiğimiz hücrenin yanında beliriyor düğme. Benim istediğim şöyle bir şey mümkünse eğer. Mesela hücrede sayılar var. Ve bu hücreler eğer 4..... ile başlayan bir sayıysa bir düğme, 2...... ile başlayan bir sayıysa başka bir düğme ve eğer boş ya da bunlardan başka bir harf, sayı ile başlayan veri varsa tıkladığım hücrede düğme çıkmasın ya da varsayılan başka bir yere gitsin. Mümkün olur mu böyle bir şey? Saygılar. Örnek ektedir.

Tekrar aldığım arkadaşa çok teşekkürler.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveSheet.Shapes("Button 1").Visible = False
        ActiveSheet.Shapes("Button 2").Visible = False
    If Left(ActiveCell, 1) = 2 Then
        ActiveSheet.Shapes("Button 1").Visible = True
        ActiveSheet.Shapes("Button 1").Top = ActiveCell.Offset(1, 1).Rows.Top
        ActiveSheet.Shapes("Button 1").Left = ActiveCell.Offset(1, 1).Rows.Left
    ElseIf Left(ActiveCell, 1) = 4 Then
        ActiveSheet.Shapes("Button 2").Visible = True
        ActiveSheet.Shapes("Button 2").Top = ActiveCell.Offset(1, 1).Rows.Top
        ActiveSheet.Shapes("Button 2").Left = ActiveCell.Offset(1, 1).Rows.Left
    Else
        ActiveSheet.Shapes("Button 1").Visible = False
        ActiveSheet.Shapes("Button 2").Visible = False
    End If
End Sub

 

[ankidod]

Harika! Ellerinize sağlık. Süper olmuş. Çok güzel çalışıyor.