Texbox eğersay

[kucukdunyam]

TEXBOX1 E girdiğim verilerin içinde "-" karakterinin sayısını, Texbox3'e yazdırmak istiyorum,

texbox 3e bu sayılan sayıyı getirmek istiyorum, o halde,

TextBox3.Text = (ne yazmalıyım)

 

[asi_kral]

Merhaba

Private Sub TextBox1_Change()
With WorksheetFunction
TextBox3 = Len(TextBox1) - Len(.Substitute(TextBox1, "-", ""))
End With
End Sub

Bu kod işinizi görür sanırım.

 

[kucukdunyam]

teşekkür ederim işimi gördü, çok sağolun

 

[asi_kral]

teşekkür ederim işimi gördü, çok sağolun

Kolay Gelsin.