Veri Doğrulamada Hücrede birden fazla seçim mümkün mü?

[Hakan ERDOST]

Veri Doğrulamada Hücrede birden fazla seçim mümkün mü?Dosya ekte

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit
Dim Veri
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If Target = "" Then GoTo Son
    If Veri <> "" Then Target = Veri & "-" & Target
Son:
    Veri = Target
    Application.EnableEvents = True
End Sub

 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = True
    Veri = Target
End Sub