Оператор вызова формы не видит число

[Zhnec]

Товарищи, помогите, пожалуйста, разобраться с такой проблемой.
Сразу скажу - файл целиком отправить не могу, если будут уточняющие вопросы - любой кусок кода и т.д. предоставлю.
суть программы: на отдельно создаваемый лист, который является логом записываются значения из других. Конкретно здесь - верхняя строка - значения прибыли по месяцам с одного листа, нижняя - значения прибыли с другого листа. Задумка: просуммировать строки, и выполнив вычитание одной суммы из другой, определить, имеется ли отклонение. Если оно выполняется - показывается один элемент формы, если нет - второй. Арифметические операции выполняются исправно. Что касается формы - в ней 2 элемента label (один - если условие выполнится, другой - если нет) накладываются друг на друга.
а теперь что, собственно не так: если отклонений нет - все верно выполняется. Также, если отклонение имеется в диапазоне янв-любой месяц непрерывно (т.е. в каждом месяце есть отклонение) - все верно работает. НО если в январе, например, отклонения нет, а в феврале есть - на листе лога все происходит верно, отклонение видно, а элемент формы выбирается тот, который указывает, что все в порядке, отклонений нет. UserForm1.Label2.Visible = True с чем это может быть связано? прошу прощения за бногобукв, но не знаю, как лучше объяснить суть проблемы.

Range("A2") = "выручка из БДР и Бпродаж"
Range("C3").Select
ActiveCell.Formula = "=БДР!AJ13"
Selection.AutoFill Destination:=Range("C3:N3"), Type:=xlFillDefault
Range("C4").Select
ActiveCell.Formula = "=Бпродаж!AJ19"
Selection.AutoFill Destination:=Range("C4:N4"), Type:=xlFillDefault
Range("B3").Select
ActiveCell.Formula = "=SUM(C3:N3)"
Range("B4").Select
ActiveCell.Formula = "=SUM(C4:N4)"
Range("B5").Select
ActiveCell.Formula = "=B3-B4"

i = ActiveCell.Value

Selection.Copy
Range("C5:N5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas







Дальше пробовал двумя вариантами:

1)
If i = 0 Then
UserForm1.Label2.Visible = True
Range("A2:N2").Interior.ColorIndex = 42
Else
UserForm1.Label3.Visible = True
Range("A2").Font.ColorIndex = 3
Range("A2:N2").Interior.ColorIndex = 1

End If

2)

Range("C5:N5").Select
For Each r In Selection
If r <> 0 Then
i = i + r
UserForm1.Label2.Visible = True
Range("A2:N2").Interior.ColorIndex = 42
Else
UserForm1.Label3.Visible = True
Range("A2").Font.ColorIndex = 3
Range("A2:N2").Interior.ColorIndex = 1
End If
Next r


Оба варианта не работают как следует.

[Zhnec]

Здесь все работает. А в предыдущем примере, если вывести значение переменной i, то оно совершенно не соответствует действительности. Может проблема в том, что числа имеют значения со множеством знаков после запятой?

[IgorGO]

а) все работает
б) к чему этот цирк с 2 метками?
в) оставьте одну метку

i = ActiveCell.Value  '(1)
UserForm1.Label1.Caption = IIf(i = 0, "", "не ") & "равно 0"  '(2)
UserForm1.Show     '(3)

(все что было между строками (1) и (3) - замените на (2)

[27102014]

5 минут пытался понять Ваш пример - что у Вас там работает???

[27102014]

Public Sub Test()
Dim i As Integer

Sheets("Layer3").Select
Range("A2").Formula = "=Layer1!B2"
Range("A3").Formula = "=Layer2!B3"
Range("A2:A3").AutoFill Destination:=Range("A2:G3"), Type:=xlFillDefault
Range("H2").Formula = "=sum(A2:G2)"
Range("H3").Formula = "=sum(A3:G3)"
Range("H4").Formula = "=H2-H3"

i = ActiveCell.Value  '(1)
UserForm1.Label2.Caption = IIf(i = 0, "", "не ") & "равно 0"  '(2)
UserForm1.Show     '(3)

End Sub

[Zhnec]

Спасибо за ответы, с меткой - учту, так действительно проще и лаконичнее. суть проблемы выяснил - переменная i принимает значение совершенно отличное от того, что высчитывается в логе. например в таблице лога, после расчетов, у меня в ячейке B5 стоит значение -27. А если ввести команду MsgBox (i) сразу после i=ActiveCell.Value, то программа выдает значение i = 0. При других отклонениях, иногда выдает значение -15786,7877 и т.д. При том, что формат ячеек задан числовой. Поэтому проблема именно в присваивании значения переменной. Может быть кто-то сталкивался с такой проблемой?

[Hugo121]

Выделите/активируйте ячейку с -27 - получите в сообщении -27, какие проблемы?
Что спрашиваете - то и получаете...

[IgorGO]

27102014, решил убрать все Select с вашего макроса - это правильно, только в этом случае

i = ActiveCell.Value

в i может попасть что угодно, потому активной в данным момент может быть любая ячейка
достаточно записать:

i = Range("H4")

чтобы уйти от неопределенности с ActiveCell

[27102014]

i у Вас присвоено значение активной ячейки, Вы уверены что на ту ячейку ссылаетесь в коде макроса?
замените

i = ActiveCell.Value

на

 i = Range("A2" - здесь поставить нужную ячейку)

[Zhnec]

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

i у Вас присвоено значение активной ячейки, Вы уверены что на ту ячейку ссылаетесь в коде макроса?
замените

i = ActiveCell.Value

на

 i = Range("A2" - здесь поставить нужную ячейку)

В том-то и дело, что я пробовал менять значение i на Range("B5"). итог такой же.

Т.е. если, например, я знаение этой ячейки B5 присвою другой, например A1:

Range("A1")=Range("B5"), то значение A1 будет -27. Но если ещё дальше дописать MsgBox(Range("A1")) , то выдаст значение 0. Я этого в принципе не понимаю.