sağ tuş ile açılır kutu oluşturmak

[tahh_74]

Merhaba,

A sütununda hangi hücreye sağ tuş ile dokunursam orada açılır box oluşturmak istiyorum bu mümkün mü acaba

Ahmet

 

[Metin Karaağaç]

Örnek bir kod;

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$1:$C$6"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    End If
End Sub

 

[tahh_74]

teşekkürler

 

[tahh_74]

Merhaba,

yukarıdaki koda bazı özellikleri eklemek istedim ama malesef başaramadım.Mesela listeyi sayfa2 den alacak ve açılır kutuda boş satırlar olmayacak.Yardımcı olabilirseniz sevinirim

Yardımlarınız için şimdiden teşekkürler.
Ahmet

 

[necmettin_tok]

Veri doğrulama

Tahh74 Tahh74