Soru Comment Açıklama Bilgisi Kodunu Revize Etmek

[TURKOLOG]

Merhaba herkese
Aşağıdaki kod ile hangi hücreyi tıklarsam açıklama ekleyebiliyorum. Ama açıklama var olan hücreyi tıkladığımda mevcut açıklama gelmiyor inputbox boş geliyor .
Benim yapamadığım B2:B aralığında 6 haneli rakam olmak şartı ile b2 b aralığında 6 haneli rakam bulunan satırların B:AK Satır aralığına tıklarsam inputbox açılsın başka aralık ta açılmasın
Bir de hücrede açıklama var isevi hücreye tıkladığımda inputbox mevcut açıklamayı mutlaka göstersin. Değiştirmek istersem ben inputbox içindeki metni silip yenisini yazayım.
Yardım edebilecek olan varsa çok sevinirim .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açıklama_Ekleme As Comment

Dim strText As String

a = 2

If Cells(a, 1) > 0 Then

  strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _

    "Açıklama_Ekleme", "Açıklama Ekler", , , , 2)

         If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then

    ActiveCell.Comment.Delete

      End If

  ActiveCell.AddComment

  Set Açıklama_Ekleme = ActiveCell.Comment

    With Açıklama_Ekleme

      .Text Text:=strText

      With .Shape.TextFrame.Characters.Font

        .Name = "Arial"

        .Size = 8

        .Bold = False

      End With

    End With

    End If

End Sub

 

[TURKOLOG]

Yardımcı olacak arkadaşlar için dosyayı ekliyorum.
B2:B aralığında 6 haneli rakam olmak şartı ile b2 b aralığında 6 haneli rakam bulunan satırların B:AK Satır aralığına tıklarsam inputbox açılsın başka aralık ta açılmasın
Bir de hücrede açıklama var isevi hücreye tıkladığımda inputbox mevcut açıklamayı mutlaka göstersin. Değiştirmek istersem ben inputbox içindeki metni silip yenisini yazayım.

 

[TURKOLOG]

Yardım edebilecek olan var mı acaba