Pasar variable entre macros
Hola,
Quería pasar una variable entre macros y no soy capaz:
En concreto quería pasar la variable por del inputbox a la macro NuevaMacro pero necesito que esta última macro se ejecute a los 30 minutos de ahí lo de Application. Ontime
Sub AutoOpen()
Dim x As String
x = prompt:="lo que sea"
Application.OnTime When:=Now + TimeValue("00:30:00"), _
Name:="NuevaMacro"
End Sub
Sub NuevaMacro()
' Aquí quiero obtener el valor de la variable x procedente de la macro AutoOpen
End Sub
¿Podrías ayudarme por favor, gracias?
Quería pasar una variable entre macros y no soy capaz:
En concreto quería pasar la variable por del inputbox a la macro NuevaMacro pero necesito que esta última macro se ejecute a los 30 minutos de ahí lo de Application. Ontime
Sub AutoOpen()
Dim x As String
x = prompt:="lo que sea"
Application.OnTime When:=Now + TimeValue("00:30:00"), _
Name:="NuevaMacro"
End Sub
Sub NuevaMacro()
' Aquí quiero obtener el valor de la variable x procedente de la macro AutoOpen
End Sub
¿Podrías ayudarme por favor, gracias?
1 respuesta
Respuesta de Victor Perdomo
1
Sub AutoOpen()
Dim x As String
x = prompt:="lo que sea"
Application.OnTime When:=Now + TimeValue("00:30:00"), _
Name=NuevaMacro(x)
End Sub
Function NuevaMacro(ByVal x As String) As String
NuevaMacro = "lo que sea"
End Function
Dim x As String
x = prompt:="lo que sea"
Application.OnTime When:=Now + TimeValue("00:30:00"), _
Name=NuevaMacro(x)
End Sub
Function NuevaMacro(ByVal x As String) As String
NuevaMacro = "lo que sea"
End Function
