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$

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$

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

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$

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$

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