Textbox'ta Boşluk Gösterme

[BedriA]

Arkadaşlar,

Textbox'a copy paste ile veri aldığımda bazen satır sonlarında boşluklar oluyor. ve bu boşluklar başka kodlarımın çalışmasına engel oluyor.

Kullanıcı copypaste yaptığında boşlukları görsün ve silsin, diye göstermek istiyorum ama nasıl?

Yardımcı olabilir misiniz?

 

[Orion1]

Buyurun.

TextBox1.Value = VBA.RTrim(TextBox1.Value)

 

[BedriA]

Buyurun.

TextBox1.Value = VBA.RTrim(TextBox1.Value)

Hocam teşekkürler.

Son satırdan sonraki boşlukları siliyor ancak
textbox içinde birden fazla satır var (Shift + Enter) ve bu satırların
sonundaki boşlukları silmiyor.

Wordde olduğu gibi gösterse de yeter.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.Value = Range("A1").Value
End Sub

 

[BedriA]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.Value = Range("A1").Value
End Sub

Boşlukları silmiyor hocam.
A1 deki metinde satır sonlarında boşluk varsa
olduğu gibi alıyor.

 

[BedriA]

"Hücre içindeki satırın en solundaki karakterden sonra eğer boşluk varsa sil" şeklinde bir kod lazım tam olarak. Yani aradığımın özeti bu.

 

[Orion1]

Bende gözüküyor sorun yok.

 

[BedriA]

Bende gözüküyor sorun yok.

A1'deki metinde boşluk yok zaten.
Satır sonlarına boşluk koyarsanız, görünür.

Başka dosyadan veya webdeb userforma kopyalayınca bazen mecburen boşlukları almak gerekiyor; işte benim sorunum bu boşluklar...

 

[Mahmut Bayram]

Aradığınız şöyle bir şey mi?

TextBox1.Text = Replace$(TextBox1.Text, Space(1), Space(0))

 

[BedriA]

Aradığınız şöyle bir şey mi?

TextBox1.Text = Replace$(TextBox1.Text, Space(1), Space(0))

Bu tüm boşlukları siliyor, bu değil.
"Hücre içindeki satırların en solundaki karakterden sonra eğer boşluk varsa sil" şeklinde bir kod lazım tam olarak. Yani aradığımın özeti bu. Mümkün mü bilmiyorum.

Boşlukları gösterse de olur aslında. Paylaştığım word örneğinde olduğu gibi.

What does she look like?

A) She has got long straight hair.
B) She has got short wavy hair.
C) She has got long curly hair.
D) She has got short straight hair.


Örneğin yukarıdaki örnekte A, B ve C şıklarında boşluklar var.
Bu metni dışarıdan alıyorum; dolayısıyla mecburen boşlukları da kopyalıyorum.

 

[Orion1]

initialize olayını silin bunu yazın.

Private Sub UserForm_Initialize()
Dim deg, i, z As String
TextBox1.MultiLine = True
deg = Split(Range("A1").Value, Chr(10))
For i = 0 To UBound(deg)
    z = z & vbCrLf & VBA.RTrim(deg(i))
Next i
TextBox1.Value = z
End Sub

 

[BedriA]

initialize olayını silin bunu yazın.

Private Sub UserForm_Initialize()
Dim deg, i, z As String
TextBox1.MultiLine = True
deg = Split(Range("A1").Value, Chr(10))
For i = 0 To UBound(deg)
    z = z & vbCrLf & VBA.RTrim(deg(i))
Next i
TextBox1.Value = z
End Sub

Evren Hocam,

Bu kod tüm boşlukları siliyor.
Mümkünse şunu yapmalı kod: Hücre içindeki 1. satırın son karakterinden sonraki boşlukları sil. Bunu 2. satır hariç 3, 4, 5, 6 ve 7. satırlar için de yapmalı (beş seçenekli bir soru için).

İlginiz için teşekkür ederim.

 

[PLİNT]

Merhaba
Alternatif olarak aşağıdaki koduda denermisiniz?
İlgili "Textbox" için:

[SIZE="2"]
Private Sub [COLOR="Red"]TextBox1[/COLOR]_Change()
Dim b, n, f As String
Dim x As Integer
Dim j, y, g As Long
b = TextBox1.Value
For j = 0 To UBound(Split(b, Chr(13)))
n = Split(b, Chr(13))(j)
If Right(n, 1) = Chr(32) Then x = 1
Next
If x <> 1 Then Exit Sub
For y = 0 To UBound(Split(b, Chr(13))) - 1
n = Split(b, Chr(13))(y)
For g = 0 To Len(n)
If Right(n, 1) = Chr(32) Or Right(n, 1) = Chr(34) Then
n = Left(n, Len(n) - 1)
Else
Exit For
End If
Next
f = f & n & Chr(13)
Next
If Left(f, 1) = Chr(34) Then f = Right(f, Len(f) - 1)
TextBox1 = f
End Sub [/SIZE]

 

[Orion1]

Evren Hocam,

Bu kod tüm boşlukları siliyor.
Mümkünse şunu yapmalı kod: Hücre içindeki 1. satırın son karakterinden sonraki boşlukları sil. Bunu 2. satır hariç 3, 4, 5, 6 ve 7. satırlar için de yapmalı (beş seçenekli bir soru için).

İlginiz için teşekkür ederim.

Bu dosyada denedim.
Her satırdaki satır sonundaki boşlukları siliyor.

 

[BedriA]

Hocam siz bu kodu niye aradığımı bildiğiniz için nokta atışı yaptınız.
Bu kod ile şık değiştiren koda yardımcı olmuş olduk, değil mi?

Çok teşekkür ederim.
Kodun çalışma mantığı hakkında, kod üzerinden biraz bilgi verme
imkanınız varsa, hem öğrenmiş olurum hem de ihtiyaç halinde
uyarlama yapabilirim.

Split fonksiyonunu hiç kullanmayı bilmiyorum.

Evren hocama da ilgisi için teşekkür ediyorum.

 

[BedriA]

Bu dosyada denedim.
Her satırdaki satır sonundaki boşlukları siliyor.

Evren Hocam,

Mahmut Hoca'nın verdiği kodu Textbox3'te denemiştim ve orda unutmuşum.
O yüzden son kodu denediğimde textbox3'e veri girdiğim anda tüm boşluklar siliniyordu.

Şimdi fark ettim ki sizin kod da tam istediğim gibi çalışıyor.
Çok teşekkür ediyorum.

Sanırım kodun mantığı şu: Dolu satırların son karakterinden sonraki tüm boşlukları siler, kaç satır olursa olsun.

Doğru mu anlamışım?

 

[Orion1]

Evren Hocam,

Mahmut Hoca'nın verdiği kodu Textbox3'te denemiştim ve orda unutmuşum.
O yüzden son kodu denediğimde textbox3'e veri girdiğim anda tüm boşluklar siliniyordu.

Şimdi fark ettim ki sizin kod da tam istediğim gibi çalışıyor.
Çok teşekkür ediyorum.

Sanırım kodun mantığı şu: Dolu satırların son karakterinden sonraki tüm boşlukları siler, kaç satır olursa olsun.

Doğru mu anlamışım?

Evet.Kaç satır olursa olsun sondaki boşlukları siler.