Commandbuttona ait control tip text'teki kare şekilleri

[bistroboy]

Arkadaşlar;

aşağıdaki koyu renkli kodda neden commanbutton üstünde gidince text in başında ve sonunda kare işareti çıkıyor? boşluk koydum (-) koydum yine düğmeye mouse ile yaklaşınca o kare şekil çıkıyor controltiptext olarak ? bu kare şekli nasıl kaldırırız?

Dim Hücre As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim İLK As Date, SON As Date
İLK = UserForm4.Label5.Caption
SON = UserForm4.Label6.Caption
For X = İLK To SON
For Each Hücre In alt
If Hücre.Value = X Then
If Intersect(Hücre.SpecialCells(xlCellTypeComments), Hücre) Is Nothing Then
Hücre.AddComment.Text Text:=UserForm4.TextBox1.Value
Else
Hücre.Comment.Text Text:=" " & Hücre.Comment.Text & "-" & UserForm4.TextBox1.Value & " " >>>>>>>> SORUN BU SATIR SANIRIM....
End If
End If
Next
Next

 

[Recep İpek]

Hücre.Comment.Text Text:=Hücre.Comment.Text & "-" & UserForm4.TextBox1.Value

olarak denermisiniz?

 

[bistroboy]

komut şu şekilde pardon arkadaşlar:

Set cmdaaa = UserForm1.Controls("Commandbutton" & iaaa)
Set comaaa = hcraaa.Commen

cmdaaa.ControlTipText = " " & cmdaaa.ControlTipText & "-" & comaaa.Text & " " >>>>>>>> SORUN BU SATIR SANIRIM.... başına sonuna boşluk koydum olmuyor

 

[bistroboy]

Ripek sizin dediğiniz en başta yapıldı. olmadığı için boşluklar koydum başına ve sonuna.açıklamada textin başında veya sonunda kare işareti çıkıyor.

 

[Recep İpek]

Set comaaa = hcraaa.Commen

satırı ne işe yarıyor? Commen kelimesi sanırım Comment.
Fakat butonlarda comment özelliği olmaması gerekiyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Dosyanız olmadığı için nedenden çok sonucu değiştirmeye yarayan bir çözüm önereyim.

Hücre.Comment.Text Text:=replace(Hücre.Comment.Text & "-" & UserForm4.TextBox1.Value,chr(10),"")

Not: Eğer netice alamazsanız birde chr(10) yerine chr(13) olarak deneyin.