La Voz de su amo

hola, des !

... forma de conocer que procedimiento pone en marcha unos eventos?
... preguntar ... macro que se esta ejecutando ... Sin trucos secundarios [...]

¿SIN 'trucos secundarios'???... [lo veo dificil :((... pero voy a investigar :))]
[por lo pronto...] ¿pudiera ser a traves de una variable publica de tipo 'string'???
- iniciar la macro 'asignandole' un texto [nombre de la macro?] y 'volverlo vacio' [""] al finalizar
- pudiera ser por cada macro o... [si 'llamas' macros desde macros] solo en la que 'inicia la cadena' [p.e.]
_______
Public Macro_Running As String
Sub Macro_1()
If Macro_Running = "" Then Macro_Running = "Macro 1"
MsgBox "Macro iniciada desde: " & Macro_Running
Macro_2
If Macro_Running = "Macro 1" _
Then Macro_Running = "" _
Else MsgBox "Fin de macro llamada desde: " & Macro_Running
End Sub
Sub Macro_2()
If Macro_Running = "" Then Macro_Running = "Macro 2"
MsgBox "Macro iniciada desde: " & Macro_Running
If Macro_Running = "Macro 2" _
Then Macro_Running = "" _
Else MsgBox "Fin de macro llamada desde: " & Macro_Running
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Hola Héctor.
Gracias por la respuesta.

Es, a tu macro, justo a lo que llamo, trucos secundarios.
Es cierto que es ingeniosa, pero el ingenio lo pones tu.
( Yo busco la otra forma por... las faltas de ingenio)
Preguntaba literelmente si se puede hacer lo que tu haces figuradamente

If Is Running("Macro1") Then > Es tan solo una forma "deseada"
Msgbox "La guerra de Irak es brillante"
Else
MsgBox "Cuanto iluminao hay en este jodio planeta"
End If

Saludos
Des


"Héctor Miguel" escribió en el mensaje
news:

hola, des !

> ... forma de conocer que procedimiento pone en marcha unos eventos?
> ... preguntar ... macro que se esta ejecutando ... Sin trucos secundarios [...]

¿SIN 'trucos secundarios'???... [lo veo dificil :((... pero voy a investigar :))]
[por lo pronto...] ¿pudiera ser a traves de una variable publica de tipo 'string'???
- iniciar la macro 'asignandole' un texto [nombre de la macro?] y 'volverlo vacio' [""] al finalizar
- pudiera ser por cada macro o... [si 'llamas' macros desde macros] solo en la que 'inicia la cadena' [p.e.]
_______
Public Macro_Running As String
Sub Macro_1()
If Macro_Running = "" Then Macro_Running = "Macro 1"
MsgBox "Macro iniciada desde: " & Macro_Running
Macro_2
If Macro_Running = "Macro 1" _
Then Macro_Running = "" _
Else MsgBox "Fin de macro llamada desde: " & Macro_Running
End Sub
Sub Macro_2()
If Macro_Running = "" Then Macro_Running = "Macro 2"
MsgBox "Macro iniciada desde: " & Macro_Running
If Macro_Running = "Macro 2" _
Then Macro_Running = "" _
Else MsgBox "Fin de macro llamada desde: " & Macro_Running
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

hola Des !

... busco la otra forma ... literalmente ... hacer lo que tu haces figuradamente
If Is Running("Macro1") Then > Es tan solo una forma "deseada" [...]

[quizas 'mas adelante', pero... hasta este momento] ...
hasta donde he podido 'profundizar', [mucho 'me temo' que] SOLO es posible con 'apoyo' de 'trucos secundarios'
no existe un 'application.caller' en vba para vba [SI para objetos en excel que 'ejecutan' macros], y 'considerando' que ...
- la primer linea de cada procedimiento [sub o function] NO es 'necesariamente' el nombre del procedimiento,
- es posible 'cambiar' [por codigo] el nombre de un procedimiento,
- una macro 'pudiera' ejecutarse por un 'llamado' de otra macro, y esta 'a su vez' desde otra macro [y esta 'a su vez' ...],
- y otras 'vicisitudes' de programacion [quiza 'llegando a extremos'] ...
seria necesario un constante 'monitoreo' de 'posibles' cambios y situaciones al respecto :((

saludos,
hector.

Hola Héctor. Gracias

If Is Running("Macro1") Then > Es tan solo una forma "deseada" [...]

[quizas 'mas adelante', pero... hasta este momento] ...

No te preocupes. Llevo un porron de años esperando que me toque la primitiva, (a veces me habria conformado
con la Segismunda), así que puedo esperar.

hasta donde he podido 'profundizar... no existe un 'application.caller' en vba para vba y

'considerando' que ...

- la primer linea de cada procedimiento [sub o function] NO es 'necesariamente' el nombre del procedimiento,

Mo veo por donde andas

- es posible 'cambiar' [por codigo] el nombre de un procedimiento,

Y eso donde nos llevaría ( en este caso). Sigo sin ver

- una macro 'pudiera' ejecutarse por un 'llamado' de otra macro, y esta 'a su vez' desde otra macro [y esta

'a su vez' ...],

- y otras 'vicisitudes' de programacion [quiza 'llegando a extremos'] ... seria necesario un constante

'monitoreo' :((
Hombre no soy el ejemplo mas tipico de "esigencia" a Excel, ni el más eperto. Creo que el limite en mis malos
planteamientos son cuatro procedimientos simultaneos, y no sé porqué, pero me da la sensacion de que los
expertos, tenderán , al menos yo lo intento, disminuir las iteraciones simultaneas.
No sé por qué me da que , para mi caso, tener cuatro variables logicas asignadas más en todo excel en
ejecucion, no creo que fuera ni mucha mayor complejidad ni muchos mayores recursos necesarios.
O si lo prefieres, teniendo en cuenta que la aplicacion puede tener no mas de 100 Sub's , 100 variables
logicas declaradas ... no sería un gran impedimento... teniendo en cuento lo que es Excel

Si ves a Bill, dile que si quedamos para cenar una noche de estas y que... no sea racano con estas
menudencias.

Saludos
Des

Yo lo conocí en mi iniciada infancia, pero como sello discográfico y se
llamaba "RCA Victor", su Logo era un perro escuchando la bocina de un
"tocadiscos"

"Desastres" escribió en el mensaje
news:

Hola
Exixtia, no sé si sigue existiendo, una marca francesa de TV cuya

traduccion aprox era esa: La Voz de su amo.

Y , ya que pasamos por el Pilar, hablemos del lago Ontario.

Alguien me puede decir si hay halguna forma de conocer que procedimiento

pone en marcha unos eventos?

Algo así como preguntar por la Voz de su amo.
En lugar de prguntar Activesheet.Name, preguntar Nombre de la macro que se

esta ejecutando en este momento y

que me acaba de ejecutar, o de llamar, o de desplegar etc etc.
Sin trucos secundarios, claro está, para saber de donde se viene.
Saludos
Des