• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Seçilen hücreye gelen düğme

Katılım
28 Ekim 2013
Mesajlar
29
Excel Vers. ve Dili
2010 Türkçe
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.
 

Ekli dosyalar

Bu şekilde deneyin.
Kod:
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
 
Harika! Ellerinize sağlık. Süper olmuş. Çok güzel çalışıyor.
 
Geri
Üst