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

[MickMick]

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

[Teslenko_EA]

Здравствуйте MickMick.
Макрос(процедура) содержит набор инструкций, в его код можно добавить команду вызывающую другую процедуру.
и будет - 1 клик = 2 макроса
об этом и многом другом, можно узнать почитав документацию по VBA
Евгений.

[MickMick]

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

[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, в которую передали данные. Если можете, подскажите как решить проблему

[MickMick]

Форумчане, ПОМОГИТЕ
Неужели никто не может подсказать решение проблемы?

[SAS888]

В Вашем случае можно вообще обойтись без циклов. Например, так:

Sub Main()
    Dim n As Long: Application.ScreenUpdating = False
    With Sheets("Лист 2")
        n = .[B4].End(xlDown).Row
        If n <= 10000 Then
            .Cells(n, 2) = Cells(4, 12): .Cells(n, 3) = Cells(4, 13)
            .Cells(n, 4) = Cells(4, 14): .Cells(n, 5) = Cells(4, 15)
        End If
    End With
    With Sheets("Лист 1")
        n = .[B4].End(xlDown).Row
        If n <= 10000 Then
            .Cells(n, 2) = Cells(2, 1): .Cells(n, 3) = Cells(2, 2): .Cells(n, 4) = Cells(2, 3)
        End If
        .Rows(n).Select
    End With
End Sub

[IgorGO]

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
mak_copy_post_full
Sheets("Лист 1").Select
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

[SAS888]

Если я правильно понял задачу, то требуется найти первую непустую ячейку в столбце "B" в диапазоне строк 5...10000 на 1-м и 2-м листах и в найденную строку вставить соответствующие данные. Если так, тогда Вам поможет этот макрос (с небольшой доработкой):

Sub Main()
    Dim n As Long: Application.ScreenUpdating = False
    With Sheets("Лист 2")
        n = IIf(.[B5] = "", .[B4].End(xlDown).Row, 5)
        If n <= 10000 Then
            .Cells(n, 2) = Cells(4, 12): .Cells(n, 3) = Cells(4, 13)
            .Cells(n, 4) = Cells(4, 14): .Cells(n, 5) = Cells(4, 15)
        End If
    End With
    With Sheets("Лист 1")
        n = IIf(.[B5] = "", .[B4].End(xlDown).Row, 5)
        If n <= 10000 Then
            .Cells(n, 2) = Cells(2, 1): .Cells(n, 3) = Cells(2, 2): .Cells(n, 4) = Cells(2, 3)
        End If
        .Rows(n).Select
    End With
End Sub