Помогите пожалуйста исправить ошибку  
 
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   Application.EnableEvents = 0  
   If Not Intersect(Target, Range("I4:I1000,K4:K1000")) Is Nothing Then  
       With Cells(Target.Row, 8)  
           .Value = IIf(Target.Value = "", "", Format(Date, "dd.mm.yyyy"))  
           .EntireColumn.AutoFit  
       End With  
   End If  
   If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then  
       With Cells(Target.Row, 1)  
           .Value = IIf(Target.Value = "", "", Format(Date, "dd.mm.yyyy"))  
           .EntireColumn.AutoFit  
       End With  
   End If  
   Application.EnableEvents = -1  
End Sub

=ЕСЛИ(C22="+";ОТБР((D22/E22);2)*F22;"")  
 
Как добавить еще одну проверку ?  
 
У меня есть проверка на ячейку C22, хочу поставить дополнительную проверку на D22 и E22, чтобы формула работала, только когда там заполнены значения

Не могу понять, как написать функцию если для такой формулы:  
 
комиссия 4%, но не менее 50р за одну транзакцию  
 
=I4-ЕСЛИ(I4*0,04<50;50)  
 
Исправьте меня пожалуйста. К теме прикрепил пример-документ

Подскажите пожалуйста, где в настройках можно выставить общие параметры округления ?  
Хочется чтобы округляло до сотых и все последующие знаки отбрасывались.  
 
Например 2.9999 ~ 2.99

Есть несложная табличка, там данные  
 
В ней есть столбец "Результат запроса". Как сделать так, чтобы в случае проставления туда условного знака, скажем "+", выполнялись все формулы. Нужно выполнять формулы именно тогда, когда стоит условное обозначение.  
 
Итого, первоначально заполнены данные по столбцам:  
 
Время получения | Сумма Вывода  
 
Далее я вручную проставляю условный знак (скажем "+") в столбец Результат запроса и все остальные данные просчитываются в соответствии с заданными формулами.  
 
Документ прикрепил к сообщению. Заранее спасибо за ответ