Veri Doğrulama (Giriş İletisi) otomatik

[uzmanamele]

Merhaba

Veri girişinde, verinin girdi iletisi olarak başka hücrede yer almasını istiyorsanız kod aşağıdaki gibi olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Intersect(Target, Range("V:V")) Is Nothing Then Exit Sub

 With Target.Offset(0, -1).Validation
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = "" & Chr(10) & Target.Text & Chr(10) & "."
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub