Instrucción IF en VBA

Intenta:

If ActiveSheet.Name = "Hoja1" Then
MsgBox prompt:="No se puede ejecutar desde esta hoja", Buttons:=vbOKOnly + vbCritical, Title:="Macro"
Exit Sub
Else
End If

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rafa" escribió en el mensaje news:3f9681ce$
Mostrar la cita

Hola a todos:
Tengo una macro que se puede activar desde varias hojas diferentes, pero
necesito que si se activa desde una de ellas (hoja1), salga un mensaje de
atención indicando que no se puede ejecutar desde ésta, y finalice sin hacer
nada.
Me imagino que debe ser algo parecido a esto:

If Sheet= "Hoja1" Then
MsgBox prompt:="No se puede ejecutar desde esta hoja", Buttons:=vbOKOnly
+ vbCritical, Title:="Macro"
Exit Sub
Else
End If

Muchas gracias

Perfecto, funciona, pero se me olvidó comentar que, para evitar problemas si
un usuario cambia el nombre de la hoja, en realidad la hoja la he renombrado
en VBA: wsHoja1, y entonces no me funciona. ¿Cambia en este caso el código:
If ActiveSheet.Name = "Hoja1" Then ?

Saludos
Rafa

"Fernando Arroyo" escribió en el mensaje
news:%236xSy$
Intenta:

If ActiveSheet.Name = "Hoja1" Then
MsgBox prompt:="No se puede ejecutar desde esta hoja", Buttons:=vbOKOnly
+ vbCritical, Title:="Macro"
Exit Sub
Else
End If

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rafa" escribió en el mensaje
news:3f9681ce$
Mostrar la cita

Hola a todos:
Tengo una macro que se puede activar desde varias hojas diferentes, pero
necesito que si se activa desde una de ellas (hoja1), salga un mensaje de
atención indicando que no se puede ejecutar desde ésta, y finalice sin

hacer
Mostrar la cita

nada.
Me imagino que debe ser algo parecido a esto:

If Sheet= "Hoja1" Then
MsgBox prompt:="No se puede ejecutar desde esta hoja",

Buttons:=vbOKOnly
Mostrar la cita

+ vbCritical, Title:="Macro"
Exit Sub
Else
End If

Muchas gracias

Entiendo que has cambiado el nombre de la hoja en el editor de VBA, el nombre que aparece antes del de la hoja entre paréntesis ¿Estoy en lo cierto?
Si es esto, prueba sustituyendo .Name por .CodeName
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rafa" escribió en el mensaje news:EJwlb.493318$
Mostrar la cita

Perfecto, funciona, pero se me olvidó comentar que, para evitar problemas si
un usuario cambia el nombre de la hoja, en realidad la hoja la he renombrado
en VBA: wsHoja1, y entonces no me funciona. ¿Cambia en este caso el código:
If ActiveSheet.Name = "Hoja1" Then ?

Saludos
Rafa

Solucionado, muchísimas gracias. Y...vaya rapidez
Rafa

"Fernando Arroyo" escribió en el mensaje
news:%
Entiendo que has cambiado el nombre de la hoja en el editor de VBA, el
nombre que aparece antes del de la hoja entre paréntesis ¿Estoy en lo
cierto?
Si es esto, prueba sustituyendo .Name por .CodeName
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rafa" escribió en el mensaje
news:EJwlb.493318$
Mostrar la cita

Perfecto, funciona, pero se me olvidó comentar que, para evitar problemas

si
Mostrar la cita

un usuario cambia el nombre de la hoja, en realidad la hoja la he

renombrado
Mostrar la cita

en VBA: wsHoja1, y entonces no me funciona. ¿Cambia en este caso el

código:
Mostrar la cita

If ActiveSheet.Name = "Hoja1" Then ?

Saludos
Rafa