Добрый день. Делаю таблицу должников, хочу чтобы добавлять еще сумму к его долгу. Т.е получается у него долг 14000р, чтобы эту сумму заново не водить, хочу рядом в ячейку ввести например 1000р, и эта 1000р прибавилась к той 14000р. Вот что у меня получилось в итоге: [vba]
Код
If Not Intersect(cell, Range("G2:G10000")) Is Nothing Then With cell.Offset(0, -2) .Value = cell.Offset(0, -2) + cell.Offset(0, 0) End With With cell.Offset(0, 0) .Value = "" End With End If
[/vba]
Добрый день. Делаю таблицу должников, хочу чтобы добавлять еще сумму к его долгу. Т.е получается у него долг 14000р, чтобы эту сумму заново не водить, хочу рядом в ячейку ввести например 1000р, и эта 1000р прибавилась к той 14000р. Вот что у меня получилось в итоге: [vba]
Код
If Not Intersect(cell, Range("G2:G10000")) Is Nothing Then With cell.Offset(0, -2) .Value = cell.Offset(0, -2) + cell.Offset(0, 0) End With With cell.Offset(0, 0) .Value = "" End With End If
Oh_Nick, Да, типа того. Только ячейка в которую добавил долг к сумме чтобы очистилась. То что я сделал приложил файлом. Работает, но выдает ошибку: Method 'Value' of object 'Range' failed
Oh_Nick, Да, типа того. Только ячейка в которую добавил долг к сумме чтобы очистилась. То что я сделал приложил файлом. Работает, но выдает ошибку: Method 'Value' of object 'Range' failedfotostudiyaneo