Soru Textbox'a trim fonksiyonunu uygulama

[seckinb]

Merhaba,

Sheets("Kimlik").oyku

isimli textbox içerisine yapıştırdığım veride çok sayıda "boşluk" var.

Trim fonksiyonu ile bunu temizlemek istiyorum.

online bulduğum birkaç örneği denedim, çalıştıramadım.

 

[u.L.a.s]

aşağıdaki örnek işinizi görür mü bilmiyorum

https://www.excel.web.tr/threads/textbox-icerigindeki-bosluklari-toplu-sil.176785/

 

[seckinb]

aşağıdaki örnek işinizi görür mü bilmiyorum

https://www.excel.web.tr/threads/textbox-icerigindeki-bosluklari-toplu-sil.176785/

malesef çalışmadı.

textbox normal excel sayfası içerisinde, userform değil. Belki bu nedenle çalışmadı.

 

[Muzaffer Ali]

Merhaba.
Şu kod ile yapabilirsiniz.

Sheets("Kimlik").oyku = WorksheetFunction.Trim(Sheets("Kimlik").oyku)

 

[seckinb]

Merhaba.
Şu kod ile yapabilirsiniz.

Sheets("Kimlik").oyku = WorksheetFunction.Trim(Sheets("Kimlik").oyku)

bu kodu sayfanın içine mi ekleyeceğiz?

 

[Muzaffer Ali]

Kod her yerde doğru çalışır, nereye yazdığınız önemli değil.
Siz ne yapınca bu kodun çalışmasını istiyorsanız oraya kopyalayın.

 

[seckinb]

Kod her yerde doğru çalışır, nereye yazdığınız önemli değil.
Siz ne yapınca bu kodun çalışmasını istiyorsanız oraya kopyalayın.

Sub oyku()
'
'
  Workbooks("2.xlsm").Worksheets("kimlik").oyku.Value = Workbooks("1.xlsm").Worksheets("kimlik").oyku.Value
  Workbooks("2.xlsm").Worksheets("kimlik").oyku = WorksheetFunction.trim(Sheets("Kimlik").oyku)

End Sub

bu kod ile 1'deki veriyi 2'ye kopyalıyorum. 2'nin içindeki veriyi trim etmek istediğimde hata alıyorum.

 

[Muzaffer Ali]

Sub oyku()
'
'
  Workbooks("2.xlsm").Worksheets("kimlik").oyku.Value = WorksheetFunction.trim(Workbooks("1.xlsm").Worksheets("kimlik").oyku.Value)

End Sub

Bu şekilde yapmanız yeterli. Eğer hata verirse ".value" kısımlarını silin.