Como correr dos macros mediante un botón de comando?
Necesito de su ayuda para resolver un problema alomento de correr dos macros, una y luego la otra con un botón de comando.
La dificultad que tengo es que de esta manera, no se ejecuta la segunda parte de la macro numero dos y no se por que. Lo anterior lo hace a la perfección.
3 respuestas
Te anexo la macro actualizada
Sub ImprimirResumenM()
Sheets("ResumenM").Activate
Application.ScreenUpdating = False
Set h1 = Sheets("Menu")
Set h2 = Sheets("Mayor")
Set h3 = Sheets("ResumenM")
h3.Range("A11:J" & Rows.Count).ClearContents
F_Inicio = h1.[E4]
F_Final = h1.[E6]
Z = 11
n = 0
For i = 11 To h2.Range("A" & Rows.Count).End(xlUp).Row
If h2.Cells(i, "A") >= F_Inicio And h2.Cells(i, "A") <= F_Final Then
h2.Range("A" & i & ":J" & i).Copy
h3.Range("A" & Z).PasteSpecial xlValues
Z = Z + 1
n = n + 1
End If
Next
Dim f_anterior As Date
f_anterior = F_Inicio - 1
h3.[g10] = ""
h3.[i10] = ""
h3.[j10] = ""
For i = 1 To 10
Set b = h2.Columns("A").Find(f_anterior, lookat:=xlWhole, LookIn:=xlFormulas)
If Not b Is Nothing Then
h3.[g10] = h2.Cells(b.Row, "G")
h3.[H10] = h2.Cells(b.Row, "H")
h3.[i10] = h2.Cells(b.Row, "i")
h3.[j10] = h2.Cells(b.Row, "j")
Exit For
Else
f_anterior = f_anterior - 1
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = False
Sheets("ResumenM").Visible = True
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Hola Dante.
Ya corrí la macro y pues ahora sí pega los valores en los campos señalados del saldo inicial, ahora bien la difcultad que ahora posee es que cuando pega la fecha, aparce otra de forma aleatoria no sé, por ejemplo la fecha a pegar es 03/03/2017 y aparece 29/05/1900. Ya revisé los formatos de fecha de todos los campos que las contienen y están igual, entonces no sé a qué se debe..
Prueba con el archivo que te envié
Desconozco cómo las tienes planteadas, prueba así:
Private Sub CommandButton1_Click() Macro1 Macro2 End Sub Sub Macro1() MsgBox "Corriendo la 1" End Sub Sub Macro2() MsgBox "Corriendo la 2" End Sub