(22/11/2020, 19:41)hayalibey yazdı: 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)

Şimdiki konumuz commentler değil abey.
Dosyayı deneyiniz 1.sicil vs..
Zaten bazı kodları pasif yaptım sayfa kodlarını hata olayı için onlar sonraki iş