Macros juntas
Hola Edwin:
Necesito accionar dos macro en un solo botón (tengo dos botones una para cada macro) los códigos son:
Sub sorteo()
'
' sorteo Macro
'
'
Range("C7:D39").Select
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Add Key:=Range("C7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Graficas").Sort
.SetRange Range("C8:D39")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Add Key:=Range("C7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Graficas").Sort
.SetRange Range("C8:D39")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
A partir de aqui es el segundo macro que es un userform
End Sub
Sub datos_ALHacerClik()
'
' datos_ALHacerClik Macro
'
'
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "about:
<html>
<body scroll=" & _
Chr(39) & "no" & Chr(39) & ">
<img src=" & _
Chr(39) & "C:\Documents and Settings\jose luis\Mis documentos\Mis imágenes\dados-07.GIF" & Chr(39) & "></img>
</body>
</html>
"
End Sub
Todo lo anterior lo agrupe en un modulo
De antemano gracias por tu ayuda
José Luis Barrera
Necesito accionar dos macro en un solo botón (tengo dos botones una para cada macro) los códigos son:
Sub sorteo()
'
' sorteo Macro
'
'
Range("C7:D39").Select
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Add Key:=Range("C7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Graficas").Sort
.SetRange Range("C8:D39")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Graficas").Sort.SortFields.Add Key:=Range("C7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Graficas").Sort
.SetRange Range("C8:D39")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
A partir de aqui es el segundo macro que es un userform
End Sub
Sub datos_ALHacerClik()
'
' datos_ALHacerClik Macro
'
'
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "about:
<html>
<body scroll=" & _
Chr(39) & "no" & Chr(39) & ">
<img src=" & _
Chr(39) & "C:\Documents and Settings\jose luis\Mis documentos\Mis imágenes\dados-07.GIF" & Chr(39) & "></img>
</body>
</html>
"
End Sub
Todo lo anterior lo agrupe en un modulo
De antemano gracias por tu ayuda
José Luis Barrera
1 Respuesta
Respuesta de edwinhenao
1
la macro Private Sub UserForm_Initialize() no debe ir en un módulo. Esta, es una macro de formulario y el código se ejecutará automáticamente al inicializar el formulario.
Es decir la macro
...
Sub datos_ALHacerClik()
UserForm1.Show
End Sub
...
Al inicializar el formulario también ejecuta el código de Sub UserForm_Initialize()
...
Por otro lado si quieres ejecutar dos macros que están en el mismo módulo con un solo botón, basta poner en una de las macros el nombre de la otra. Ejemplo.
...
Sub Macro1()
' Codigo de la Macro 1
' .....
Macro2
End Sub
............. Fin Macro1
Sub Macro2()
' Codigo de la Macro 2
End Sub
Es decir la macro
...
Sub datos_ALHacerClik()
UserForm1.Show
End Sub
...
Al inicializar el formulario también ejecuta el código de Sub UserForm_Initialize()
...
Por otro lado si quieres ejecutar dos macros que están en el mismo módulo con un solo botón, basta poner en una de las macros el nombre de la otra. Ejemplo.
...
Sub Macro1()
' Codigo de la Macro 1
' .....
Macro2
End Sub
............. Fin Macro1
Sub Macro2()
' Codigo de la Macro 2
End Sub
