Добрый день всем служителям цифрового бубна )))) , есть такой макрос :
У меня есть список, из него выбираю макросом уникальные элементы в отдельный диапазон. Далее в форме есть комбобокс который заполняю из списка уникальных элементов. Запускаю макрос, выбираю в комбобоксе элемент, и соответствуэщие строки копируются на отдельный лист.
В ручном режиме, при запуске из VB код работает идеально, как только присваиваю его кнопке, и запускаю с кнопки, цикл обрывается на 2, 3 I. FirmUnic это публичная переменная, которй присваивается значение из комбобокса.
Собственно вопрос, почему это происходит ???? И что нужно изменить в макросе ? Помогите, а ?
| Код |
|---|
Dim iLastRowNal As Long, I As Long
Dim iLastRowArhiv As Long
Dim Ip As String
iLastRowNal = Cells(Rows.Count, 12).End(xlUp).Row
MsgBox iLastRowNal
For I = 3 To iLastRowNal
If Cells(I, 12) = FirmUnic Then
iLastRowArhiv = Sheets("Dog1").Cells(Rows.Count, 12).End(xlUp).Row + 1
MsgBox iLastRowArhiv
Range(Cells(I, 1), Cells(I, 12)).Copy
Sheets("Dog1").Cells(iLastRowArhiv, 1).PasteSpecial Paste:=xlPasteValues
' Range(Cells(i, 2), Cells(i, 7)).ClearContents
End If
' MsgBox FirmUnic
Next I
Application.CutCopyMode = False
|
В ручном режиме, при запуске из VB код работает идеально, как только присваиваю его кнопке, и запускаю с кнопки, цикл обрывается на 2, 3 I. FirmUnic это публичная переменная, которй присваивается значение из комбобокса.
Собственно вопрос, почему это происходит ???? И что нужно изменить в макросе ? Помогите, а ?
