1.Liste den 10.Liste 10 liste Sayfası dahi
şu hatayı veriyor
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Açıklama_Ekleme As Comment
Dim strText

If Target.Column > 37 Then Exit Sub

If Cells(Target.Row, 2).Value <> "" And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
If Cells(Target.Row, Target.Column).Comment Is Nothing Then
strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _
"Açıklama_Ekleme", "Açıklama Ekler", , , , 2)