Не пойму в чем ошибка

[Snekich]

Макрос:

Sub Text_V_Chis()

For I = 5 To 16

Sheets(I).Select

EndRow = Range("C1").SpecialCells(xlLastCell ).Row

For N = 1 To EndRow
znach = Range("c" & N)
Range("c" & N).Formula = "=VALUE(" & znach & ")"
Next N
Next I


На строке
Range("c" & N).Formula = "=VALUE(" & znach & ")"
выдает ошибку...
В чем ошибка?

Может есть другой способ преобразовать текст в числа не создавая "промежуточные" значения в других ячейках?
End Sub

[kuklp]

Скопировать пустую ячейку, выделить диапазон, специальная вставка-сложить. Выделить диапазон, данные-текст по столбцам. И т.д.

[Snekich]

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

Скопировать пустую ячейку, выделить диапазон, специальная вставка-сложить. Выделить диапазон, данные-текст по столбцам. И т.д.

ячейки в столбце С не пустые (ну может только некоторые)

Суть работы:
1) определяется число строк в столбце С
2) перебираем поочередно ячейки в столбце С:
(В этих ячейках числа в текстовом формате)
- Значение ячейке копируем в переменную
- вставляем в ячейку формулу =значен(), в скобках которой переменая (с прошлым значением в ячейке)

[kuklp]

Где угодно на листе скопируйте пустую ячейку и специальной вставкой прибавьте ее к нужному диапазону. Можете записать это рекордером.
Если все же хотца циклом(самый бестолковый способ), то:

        EndRow = Range("C1").SpecialCells(xlLastCell).Row

        For n = 1 To EndRow
            Cells(n, 3).Value = Val(Cells(n, 3).Value)
        Next n

[Snekich]

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

Где угодно на листе скопируйте пустую ячейку и специальной вставкой прибавьте ее к нужному диапазону. Можете записать это рекордером.
Если все же хотца циклом(самый бестолковый способ), то:

        EndRow = Range("C1").SpecialCells(xlLastCell).Row

        For n = 1 To EndRow
            Cells(n, 3).Value = Val(Cells(n, 3).Value)
        Next n

Сначала думал что получилось, но потом заметил, что цифры после запятой обнуляются...
Но сделал так:
Cells(N, 3).Value = Cells(N, 3).Value * 1
и получилось.
Спасибо.

На счет пустой ячейки ...

[Snekich]

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

Где угодно на листе скопируйте пустую ячейку и специальной вставкой прибавьте ее к нужному диапазону. Можете записать это рекордером.

Если записать, то получится:
Range("C1").Select 'пустая
Selection.Copy
Range("C2:C10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False

Но при запуске макроса ничего не меняется (хотя если проделать операцию вручную, то все работает).

В чем может быть причина?
Могу предположить что надо как-то обновлять ячейку после "суммирования" ?