Тема: VBA: Запись результатов на другой лист
Добрый день.
У меня имеется макрос, результаты которог выводятся в столбец 1 на том же листе. А что прописать в макросе, чтобы результаты выводились на другой лист?
Вот код макроса:
Public Sub Counter()
Dim CounterCell As Range, i As Long, r As Range, dest As Range
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 2674.96
Application.ScreenUpdating = False
i = 1372
Do While CounterCell.Value < 10000#
CounterCell.Value = CounterCell.Value + 0.01
If [MAX(BN6:BN1018)] > 4 Then
Cells(i, 1) = [A1]
i = i + 1
Else
If [MAX(EF6:EF1018)] > 4 Then
Cells(i, 1) = [A1]
End If
End If
Loop
Application.ScreenUpdating = True
End Sub
Надо, чтобы результааты выводились не в первый столбец этого же листа, а на другой лист с именем Лист 2