Не суммирует значение textbox с ячейкой

[Al1en]

Здравствуйте, уважаемые форумчане!

Есть форма в которую вводятся данные и затем записываются в определенные ячейки. Нужно написать алгоритм суммирования данных введенных в форму с теми данными которые уже есть в таблице после предыдущего ввода.

[Aleksandr H.]

без файла писать? невелики шансы на ответ

[Al1en]

Сообщение от Aleksandr H.

без файла писать? невелики шансы на ответ

Сорри, вот файл

[IgorGO]

в данном случае шансы были. это известные грабли: textbox.value - это текст, не смотря на то что строка 25 выглядит точно также как число 25.
чтобы сложить с чем-нибудь - нужно текст конвертировать в число
Val(textbox.value) + ...

[Al1en]

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

в данном случае шансы были. это известные грабли: textbox.value - это текст, не смотря на то что строка 25 выглядит точно также как число 25.
чтобы сложить с чем-нибудь - нужно текст конвертировать в число
Val(textbox.value) + ...

В данном случае мне нужно textbox прибавить к Cells(iLastRow, 15) и хоть с припиской в виде .value, хоть без нее у меня ничего не прибавляется

[Aleksandr H.]

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

В данном случае мне нужно textbox прибавить к Cells(iLastRow, 15)

какой текстбокс, их там много? в какой процедуре, номер строки с вашими наработками?

[Al1en]

Сообщение от Aleksandr H.

какой текстбокс, их там много? в какой процедуре, номер строки с вашими наработками?

If Not Cells(iLastRow, 15) Is Nothing Then
            Cells(iLastRow, 15) = allsumm
    Else
            allsumm_2 = Cells(iLastRow, 15)
            Cells(iLastRow, 15) = allsumm_2 + allsumm
    End If

Второе условие никак не выполняется

[IgorGO]

а Вы откройте тот файл, что выложили, и найдите в нем переменную allsumm2
или этот фрагмент

If Not Cells(iLastRow, 15) Is Nothing Then
            Cells(iLastRow, 15) = allsumm
    Else
            allsumm_2 = Cells(iLastRow, 15)
            Cells(iLastRow, 15) = allsumm_2 + allsumm
    End If

Саша, будет не просто. Удачи!

[Aleksandr H.]

Там какая-то дичь.
Если код карты уже есть - срабатывает Exit Sub в фрагменте If Not iFoundRng Is Nothing Then
а если карта новая, то она добавляется, но в фрагменте
If Not Cells(iLastRow, 15) Is Nothing Then срабатывает первый ИФ, так как еще записи о сумме нету

Диагноз: логика хромая!

[Al1en]

Ребят, если б я хотел чтобы мне диагноз поставили, то обратился бы в другое место.
Что же касается кода, то да - он плох, т.к. я вообще ни разу не писал на этом вашем vba (меня попросили помочь), и все что вы видите в коде потырено с разных форумов в основном.
По поводу if я уже давно понял, что при любых раскладах выполняется только первое условие. Почему так происходит мне не понятно.