Подсчитать сумму!

[Deman4eg]

Добрый всем день. Нужен скромненький макросик от которого зависит судьба отчета. Имеем столбцы с цыфрами, нужен МАКРОС который бы отминусовывал цыфры в ячейке столбца О от цыфр в ячейке столбца Р и писал результат в ячейку колонки Q при условии что в ячейке столбца W стоит цыфра 3. Тоесть если в ячейке столбца W пусто или другая цыфра то ничего считать не надо. Жду комментариев.

[Pavel55]

Либо формулой

=ЕСЛИ(W2=3;P2-O2;0)

ну, и если нужен макрос

Sub Макрос1()
Dim i As Long
    For i = 2 To Cells(Rows.Count, "P").End(xlUp).Row
        If Cells(i, "W") = 3 Then Cells(i, "Q") = Cells(i, "P") - Cells(i, "O")
    Next i
    MsgBox "Конец", 64, ""
End Sub

[Deman4eg]

Спасибо большое. Вроде все так как нужно, сейчас буду "внедрять".