Серый форум — VBA: Запись результатов на другой лист

Re: VBA: Запись результатов на другой лист

null@example.com (alkhimovmet) — Tue, 02 Oct 2018 10:23:26 +0000

Уважаемый alexii! Еще раз Вам спасибо. Вставил, как Вы рекомендовали, все работает, сбрев нет. Просто супер!!!

Re: VBA: Запись результатов на другой лист

null@example.com (alkhimovmet) — Sun, 30 Sep 2018 12:12:38 +0000

Спасибо огромное! Непременно заменю

Re: VBA: Запись результатов на другой лист

null@example.com (alexii) — Sun, 30 Sep 2018 05:03:38 +0000

Я бы написал так:

ThisWorkbook.Worksheets.Item("Лист 2").Cells(i, 1).Value = ThisWorkbook.Worksheets.Item("Sheet1").Range("A1").Value

Re: VBA: Запись результатов на другой лист

null@example.com (alkhimovmet) — Sun, 30 Sep 2018 04:41:06 +0000

Sheets("Лист2").Cells(i, 1) = Sheets("Sheet1").[A1]

Написал так и работает, но меня терзают смутные сомнения , что это не совсем так правильно. Может подскажите?

Re: VBA: Запись результатов на другой лист

null@example.com (alexii) — Sat, 29 Sep 2018 12:43:09 +0000

alkhimovmet пишет:

результааты выводились не в первый столбец этого же листа

Результаты у Вас выводятся не на «этот же лист», а на активный рабочий лист, работает лишь потому, что активный рабочий лист у Вас не меняется в процессе.

alkhimovmet пишет:

а на другой лист с именем Лист 2

Видимо, речь про это (не проверялось):

ThisWorkbook.Worksheets.Item("Лист 2").Cells(i, 1).Value = [A1]

VBA: Запись результатов на другой лист

null@example.com (alkhimovmet) — Sat, 29 Sep 2018 11:57:28 +0000

Добрый день.
У меня имеется макрос, результаты которог выводятся в столбец 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