if value if text !

[mavisachal]

Arkadaşlar acaba şöyle birşey yapabilir miyiz?

Eğer textbox1 de sayı varsa şu formulü kullan( yani herhangi bir formul)

Eğer Sayı değilde harf varsa yani harf ile başlıyorsa bu formulü kullan.

Yani kısacası textbox içerisinde yazılanın sayı ile başlaması ya da harf ile

başlaması koşullarına göre Eğer kullanabilir miyim?

Teşekkürler.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox1_Change()
On Error Resume Next
If TextBox1 = "" Then Exit Sub
If TextBox1 <> WorksheetFunction.IsText(TextBox1) Then
MsgBox "Metin Girdiniz", vbInformation
Else
MsgBox "Sayı Girdiniz", vbInformation
End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide kullanabilirsiniz.

if isnumeric(textbox1)=true then
.....sayı ise çalışacak kod
else
.....metin ise çalışacak kod
end if