Добрый день. Уважаемые форумчане нужна помощь в написании макроса ( VBA до этого не изучал ). Суть проблемы есть файл с данными ( Продукция, наименование организации и остаток) Необходимо обнулить все отрицательные значения для данной продукции и занести в столбец рядом. Я понимаю , что функцию ЕСЛИ никто не отменял. Часть макроса я написал и цикл организовал перебора значений, а вот переход к другому виду продукции мозгов пока не хватает.
Так можно это дело сделать сразу в сводной и никаких макросов не нужно.
Далее по коду - зачем вам вообще наименования?
Код
Sub разброс()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row ' количество строк в диапазоне
' цикл перебора значений в диапазоне и действий над ними
For i = 1 To LastRow
If Cells(i, 3).Value < 0 Then
Cells(i, 4) = 0
Else
Cells(i, 4) = Cells(i, 3).Value
End If
Next i
End Sub
Чтобы макрос пропускал строки с Итогами еще 1 IF добавил
Код
Sub perebor()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 1) Like "*Итог" Then GoTo Line1
If Cells(i, 3).Value < 0 Then
Cells(i, 4) = 0
Else
Cells(i, 4) = Cells(i, 3).Value
End If
Line1:
Next i
End Sub