Textbox2'da Son Karakteri süzmek

[Emsdmr]

eğer textbox1'in 5adet boşluktan sonra gelen karakteri 2 ise
çağır modül2

if textbox1'in 5adet boşluktan sonra gelen karakteri 5 then
call modül5


anlata bildiysem yapmayı beceremediğim budur

Yani;
Textbox1'de 5 boşluktan sonraki karakteri süz karaktere eşdeğer modülü çağır

 

[Huseyinkis]

eğer textbox1'in 5adet boşluktan sonra gelen karakteri 2 ise
çağır modül2

if textbox1'in 5adet boşluktan sonra gelen karakteri 5 then
call modül5


anlata bildiysem yapmayı beceremediğim budur

Yani;
Textbox1'de 5 boşluktan sonraki karakteri süz karaktere eşdeğer modülü çağır

textbox1 de yazan metinden bir ornek verirmisiniz.

metin içerisinden son karakterimi alıcaksınız?


Ekte bir kod ekliyorum textbox1 içerisinde 5 bosluk bulduğu zaman ondan sonra gelen karakteri A1 yazar.

Private Sub CommandButton1_Click()
For i = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, i, 1) = " " Then
Adet = Adet + 1
Else
Adet = 0
End If
If Adet = 5 Then
deger = Mid(TextBox1.Text, i + 1, 1)
i = Len(TextBox1.Text)
End If
Next i
Cells(1, 1).Value = deger
End Sub

 

[Emsdmr]

Sayın Hüseyinkis;

Evet aradığım kod budur tam olarak. Yalnız 5 boşluktan sonra gelen karakterlerin tümünü süzmesini sağlamasında yardımcı olabilirmisiniz.

 

[Huseyinkis]

Sayın Hüseyinkis;

Evet aradığım kod budur tam olarak. Yalnız 5 boşluktan sonra gelen karakterlerin tümünü süzmesini sağlamasında yardımcı olabilirmisiniz.

Merhaba aşağıdaki kodun sonundaki 1 koyu ile belirttiğim 999 yapın bütün hepsini alıcaktır.

deger = Mid(TextBox1.Text, i + 1, 1)

 

[Emsdmr]

alakanıza müteşekkirim sağolun