DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 4 To [c65536].End(3).Row
Cells(i, "c").AddComment
Cells(i, "c").Comment.Visible = False
Cells(i, "c").Comment.Text Text:=Chr(10) & Cells(i, "s")
Next
End Sub
ömer bey ilginiz için teşekkür ederim açıklama ekliyerek yapıyor ancak bunun başka bir yöntemi varmı
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 4 To [c65536].End(3).Row
With Cells(i, "c").Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = Cells(i, "s")
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next
End Sub