Textbox içeriğindeki boşlukları toplu sil

[meslek5]

İyi akşamlar.
Userformda yer alan tüm textbox verilerinin sağında, solunda ve metin arasındaki boşluklarını toplu olarak silebilir miyiz?

 

[Korhan Ayhan]

Hiç boşluk kalmayacak mı?

 

[meslek5]

evet hiç boşluk kalmayacak
tektboxların başına veya sonuna yanlışlıkla boşluk bırakıldığında form üzerindeki 150 adet textboxu kontrol edip tüm textbox boşluklarını silecek

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    For Each Nesne In Me.Controls
        If TypeName(Nesne) = "TextBox" Then
            Nesne.Value = Replace(Nesne.Value, " ", "")
        End If
    Next
End Sub

 

[meslek5]

Hocam çok teşekkür ederim.
Çok özür diliyorum 1 sorum daha olacak. mesela aktif/seçili hücrenin AC ve BD aralığına A1:Z1 aralığındaki verileri tek seferde aktarabilirmiyiz

 

[Korhan Ayhan]

Elbette...

Sub Aktar()
    Range("AC" & ActiveCell.Row).Resize(1, 26).Value = Range("A1").Resize(1, 26).Value
End Sub

 

[meslek5]

Korhan Ayhan hocam çok teşekkür ederim.