ThisWorkbook.Worksheets.Item("Лист 2").Cells(i, 1).Value = ThisWorkbook.Worksheets.Item("Sheet1").Range("A1").ValueSheets("Лист2").Cells(i, 1) = Sheets("Sheet1").[A1]Написал так и работает, но меня терзают смутные сомнения , что это не совсем так правильно. Может подскажите?
]]>результааты выводились не в первый столбец этого же листа
Результаты у Вас выводятся не на «этот же лист», а на активный рабочий лист, работает лишь потому, что активный рабочий лист у Вас не меняется в процессе.
а на другой лист с именем Лист 2
Видимо, речь про это (не проверялось):
ThisWorkbook.Worksheets.Item("Лист 2").Cells(i, 1).Value = [A1]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
]]>