1 клик = 2 макроса

[MickMick]

Подскажите, пожалуйста, как можно нажатием одной кнопки запустить два макроса. Зараннее спасибо

[Алексей++]

эээ... Выполнить макрос, в котором выполнить 2 макроса )

[MickMick]

Дело в том, что каждый макрос передает данные с текущего листа на другой, и в обоих макросах содержатся цыклы. К сожалению у меня не получается выполнение обоих макросов: либо первый, либо второй.

[Алексей++]

вариантв такие:

1) разделить логику на 2 макроса. И запустить по почереди

2) переписать в виде одного макроса

[MickMick]

Вот первый макрос:
Sub mak_copy_post()
For n = 5 To 10000
  If Worksheets("Лист 1").Cells(n, 2) = "" Then

  Worksheets("Лист 1").Cells(n, 2).Value = ActiveSheet.Cells(2, 1).Value
  Worksheets("Лист 1").Cells(n, 3).Value = ActiveSheet.Cells(2, 2).Value
  Worksheets("Лист 1").Cells(n, 4).Value = ActiveSheet.Cells(2, 3).Value

  Sheets("Лист 1").Select
  End
  End If
Next n
End Sub

Вот второй макрос:
Sub mak_copy_post_full()
For n = 5 To 10000
  If Worksheets("Лист 2)").Cells(n, 2) = "" Then

  Worksheets("Лист 2)").Cells(n, 2).Value = ActiveSheet.Cells(4, 12).Value
  Worksheets("Лист 2)").Cells(n, 3).Value = ActiveSheet.Cells(4, 13).Value
  Worksheets("Лист 2)").Cells(n, 4).Value = ActiveSheet.Cells(4, 14).Value
  Worksheets("Лист 2)").Cells(n, 5).Value = ActiveSheet.Cells(4, 15).Value

  End
  End If
Next n
End Sub

Мне нужно, чтобы после передачи всех данных отображалась строка из Лист 1, в которую передали данные

[Алексей++]

так что ли ?

Код:

Sub mak_copy_post()
For n = 5 To 10000
  If Worksheets("Лист 1").Cells(n, 2) = ""  Then
	Worksheets("Лист 1").Cells(n, 2).Value = ActiveSheet.Cells(2, 1).Value
	Worksheets("Лист 1").Cells(n, 3).Value = ActiveSheet.Cells(2, 2).Value
	Worksheets("Лист 1").Cells(n, 4).Value = ActiveSheet.Cells(2, 3).Value
  End If

  If Worksheets("Лист 2)").Cells(n, 2) = "" Then
	Worksheets("Лист 2)").Cells(n, 2).Value = ActiveSheet.Cells(4, 12).Value
	Worksheets("Лист 2)").Cells(n, 3).Value = ActiveSheet.Cells(4, 13).Value
	Worksheets("Лист 2)").Cells(n, 4).Value = ActiveSheet.Cells(4, 14).Value
	Worksheets("Лист 2)").Cells(n, 5).Value = ActiveSheet.Cells(4, 15).Value
  End If

  Sheets("Лист 1").Select
Next n
End Sub

[Алексей++]

я только синтаксис не знаю, по моему там остались "лишние детали" в виде двух end ))

[MickMick]

Спасибо. Чуть позже проверю и отпишусь.

[Ципихович Эндрю]

в конце макроса 1 строка
mak_copy_post_full
и будет выполнять 2 макрос!

[HandKot]

если нужно параллельно запустить два макроса, то я бы сделал так

Код:

Public Sub Button_Click 
    MyButtin.Enabled = false
    Application.OnTime Now + TimeValue("00:00:01"), "Macros1"
    Application.OnTime Now + TimeValue("00:00:01"), "Macros2"
    MyButtin.Enabled = true
end sub

и еще, желательно отключить переррисовку экрана Application.ScreenUpdating, а то тормоза будут