Makro ile temiz formülü

[kelkitli]

Selamlar,
Ekteki dosyada textboxtan sayfaya yapılan kayıtta kare şeklinde bir karakter çıkıyor. Temiz formülü iş görüyor ama makro ile hücredeki veriye uygulanabilirmi?
Yani aynı hücrede veriyi arıtacak.
Selamlar

 

[mancubus]

merhaba.

şöyle bir şey mi?

Sub karakter_temizle() 

Dim hcr As Range 

For Each hcr in Range("A1:G500") 'bu aralığı kendi verilerinize uyarlayın 
    hcr.Formula = WorksheetFunction.Clean(hcr.Formula) 
Next 

End Sub

 

[kelkitli]

Cevabınız için teşekkür ederim.
Ben de şöyle bir çözüm buldum.

Sub islem()
SAT = Sheets("İSİM").Cells(65536, "A").End(xlUp).Row
For X = 1 To SAT
Sayfa5.Cells(X, 1) = Application.WorksheetFunction.Clean(Sayfa5.Cells(X, 1).Value)
Sayfa5.Cells(X, 1) = Application.WorksheetFunction.Trim(Sayfa5.Cells(X, 1).Value)
Next
End Sub