Shocker.Pro,
в TextBox ввожу цифры 0,2, потом по нажатию CommndButton происходит событие
Worksheets("Recept").Cells(tbScet_row, 12).NumberFormat = "0.00" (преобразует ячеку к чиловому формату)
Worksheets("Recept").Cells(tbScet_row, 12).Value = tbKolUPak.Text (вводится текст в определенную ячейку)
это число вставляется в ячейку с пометкой как текст и при это формат у ячейки остается числовой, если ввести 0.2 т.е. через точку то вставляется нармально = 0,20
необходимо вводить в TextBox число 0,2 или 0,55 и чтобы оно как число записывалось в ячеку как число
Неподскажешь в чем проблема ?

Shocker.Pro,
Я дописал функцию
Worksheets("Recept").Cells(tbScet_row, 12).Value = CSng (tbKolUPak.Text)
но теперь когда вводишь 2.5 или символ форма закрывается и выдает ошибку несоответствие типов.
Я так полагаю надо написать проверку, что нужно вводить только цифры и запятую ?

Shocker.Pro,

Большущие Спасибо!!!

нашел код корый проверяет, что бы можно было вводить цифры, пробел и -
он работает только на половину т.е. вводишь циры ошибка не выходит вводишь символ на английской расскладке выдает ошибку, но если ввести символ на русской раскладке вывалется по ошибке (Invalid procedure call or argument (Error 5)).
Private Sub tbSnils_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Errors
If InStr("0123456789- ", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Errors = MsgBox("1")
End If
End Sub

Shocker.Pro,
Что можете посоветовать ?

Shocker.Pro,

Написал код для проверки:
Private Sub tbSnils_Change()
If Pr = True Then
Pr = False
Exit Sub
End If
Proverka
End Sub

Private Sub tbSnils_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 46 Then
Pr = True
End If
End Sub

Sub Proverka()
Dim P As Variant
For i = 1 To Len(UserForm.tbSnils.Text)
P = Mid(UserForm.tbSnils.Text, i, 1)
If P < Chr(48) Or P > Chr(57) Then
If P < Chr(150) Or P > Chr(150) Then
If P < Chr(32) Or P > Chr(32) Then
If P < Chr(160) Or P > Chr(160) Then
If P < Chr(45) Or P > Chr(45) Then
MsgBox ("Вводить можно только цифры и - (шаблон ###-###-### ##)")
Exit Sub
End If
End If
End If
End If
End If
Next
'UserForm.tbSnils.SetFocus
End Sub

Shocker.Pro,

Написал код для проверки:
авторPrivate Sub tbSnils_Change()
If Pr = True Then
Pr = False
Exit Sub
End If
Proverka
End Sub

Private Sub tbSnils_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 46 Then
Pr = True
End If
End Sub

Sub Proverka()
Dim P As Variant
For i = 1 To Len(UserForm.tbSnils.Text)
P = Mid(UserForm.tbSnils.Text, i, 1)
If P < Chr(48) Or P > Chr(57) Then
If P < Chr(150) Or P > Chr(150) Then
If P < Chr(32) Or P > Chr(32) Then
If P < Chr(160) Or P > Chr(160) Then
If P < Chr(45) Or P > Chr(45) Then
MsgBox ("Вводить можно только цифры и - (шаблон ###-###-### ##)")
Exit Sub
End If
End If
End If
End If
End If
Next
End Sub
Проверка работает, но елси происходит событие KeyDown и после етого ввести символ или что то скопировать, то ошибка не выходит если не попробовать еще раз. Подскажите как можно поправить или почему так происходит ?

Shocker.Pro, Pr

глобальная переменная которая позволяет отлавливать нажатия KeyCode=8 (BackSpace) и KeyCode=46 (Del) что бы можно было удалять введнный текст и проверка в этот момент не работала.