Como activar dos macros al mismo tiempo
Julius:
Por favor necesito me indiques como accionar dos macros conjuntamente, el primero es de aleatorio me da un sorteo para unas gráficas deportivas, el segundo es un userform de un dado (GIF), DESEO QUE AL MOMENTO DE ACCIONAR EL ALEATORIO SE MUESTRE EL GIF. Te en vio los códigos. Gracias por tu atención:
Estos Códigos son del Aleatorio
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
y Estos Codigos son del Userform
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
Por favor necesito me indiques como accionar dos macros conjuntamente, el primero es de aleatorio me da un sorteo para unas gráficas deportivas, el segundo es un userform de un dado (GIF), DESEO QUE AL MOMENTO DE ACCIONAR EL ALEATORIO SE MUESTRE EL GIF. Te en vio los códigos. Gracias por tu atención:
Estos Códigos son del Aleatorio
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
y Estos Codigos son del Userform
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
Respuesta de juliusguate
1
Julius
Gracias por la pronta respuesta, verifique los rangos y desafortunadamente no accionan conjuntamente las dos macros, intentare por ActiveCall haber si es posible que la primera macro llame a la segunda.
José Luis Barrera
Gracias por la pronta respuesta, verifique los rangos y desafortunadamente no accionan conjuntamente las dos macros, intentare por ActiveCall haber si es posible que la primera macro llame a la segunda.
José Luis Barrera
