Разделитель целой и лробной части числа, запятая

[Робин]

Добрый день!
Пытаюсь подпилить работающий макрос и не выходит,
Суть проблемы заключается в разлелительной запятой, между целой и дробной частью, вводимого в столбец Е числа (суммы денег), посредством формы,
Так вот, если дробное число в тексбокс «Сумма», заношу через точку, тогда дробная часть числа (копейки) , переносятся в ячейки столбца Е правильно, Например, 1,54. А если это же число, вножу, в этот же текстбокс через запятую – то в соответствующей ячейке, на листе «База_счетов», в дробной части числа, тупо получаю 1,00. Хотя на самом деле, дробная часть вводимых сумм, не всегда есть 00 копеек.
Как это исправить?
Плиз, подмогните,

[nilem]

Привет, Робин
попробуйте так

.Cells(lLastRow + 1, 5).Value = Val(Replace(Сумма.Text, ",", "."))

можно и без Val

.Cells(lLastRow + 1, 5).Value = Сумма.Value

но тогда значение будет вставляться как текст

[Робин]

Сообщение от nilem

Привет, Робин
можно и без Val

.Cells(lLastRow + 1, 5).Value = Сумма.Value

но тогда значение будет вставляться как текст

Этот вариант я знаю.

А первый ваш вариант, рабротает хорошо. Именно числовой формат мне и надо.СПАСИБО!
Но если бы еще разделение числа на разряды добавить, было бы совсем великолепно.
Сам пробовал применить вот этот формат #,##0.00, но она выдает после запятой те же нули.

[nilem]

просто установите на листе для нужных ячеек числовой формат с разделителем
и все

если хотите в коде, то сначала формат, а потом значение

.Cells(lLastRow + 1, 5).NumberFormat = "#,##0.00"
.Cells(lLastRow + 1, 5).Value = Val(Replace(Сумма.Text, ",", "."))

но лучше на листе это сделать

[Робин]

Сообщение от nilem

просто установите на листе для нужных ячеек числовой формат с разделителем
и все

А что? Програмного способа разделения числа на разряды нету.
Прошу прощения! Сразу не разглядел.
Вставил, работает нормально, буду тестить дальше.
Еще раз СПАААСИБО за екстренную пощь!!!