Condicionar la ejecucion de Auto Open

03/10/2006 - 12:06 por MIEL | Informe spam
Hola Amigos:
ante todo un saludo cordial, y vaya por delante lo limitado de mis
conocimientos de Vb, pero necesito solucionar el siguiente problema:
Tengo una hoja de excel en la cual relleno de forma automatica con un
formulario, determinados datos.
El formulario en cuestion lo lanzo al abrir la hoja de excel con:

Private Sub Workbook_Open()
UserForm4.Show
End Sub

y funciona de maravilla, pero el problema viene en este punto, pues despues
de rellenar los datos necesito que no se lance de nuevo al abrir la hoja
excel en una ocasion posterior, teniendo en cuenta que una celda determinada
(H6) debe tener el valor "A".
osea quiero condicionar la ejecuciion de Auto Open a si en la celda "H6"
esta o no esta la letra "A".
Espero vuestras respuestas.
Gracias de antemano.

Preguntas similare

Leer las respuestas

#1 SoftJaén
03/10/2006 - 18:57 | Informe spam
"MIEL" escribió:

quiero condicionar la ejecuciion de Auto Open a si en la celda "H6"
esta o no esta la letra "A".



Hola:

Aunque lo normal es que hubieras efectuado tu pregunta en el grupo de
noticias propio de Microsoft Excel, te voy a contestar porque la solución es
fácil: simplemente tienes que leer el valor de la celda H6, y dependiendo
del valor que tenga, actúas en consecuencia:

Private Sub Workbook_Open()

Dim r As Excel.Range

' Referencio el rango que voy a leer.
'
Set r = ThisWorkbook.Sheets("Hoja1").Range("H6")

If UCase$(r.Value) <> "A" Then
' Mostrar el formulario
UserForm4.Show
End If

End Sub

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
Respuesta Responder a este mensaje
#2 MIEL
04/10/2006 - 09:51 | Informe spam
Estimado Amigo:
Muchisimas gracias por la respuesta, ha sido de gran ayuda.
Un afectuoso saludo.


"SoftJaén" wrote:

"MIEL" escribió:

> quiero condicionar la ejecuciion de Auto Open a si en la celda "H6"
> esta o no esta la letra "A".

Hola:

Aunque lo normal es que hubieras efectuado tu pregunta en el grupo de
noticias propio de Microsoft Excel, te voy a contestar porque la solución es
fácil: simplemente tienes que leer el valor de la celda H6, y dependiendo
del valor que tenga, actúas en consecuencia:

Private Sub Workbook_Open()

Dim r As Excel.Range

' Referencio el rango que voy a leer.
'
Set r = ThisWorkbook.Sheets("Hoja1").Range("H6")

If UCase$(r.Value) <> "A" Then
' Mostrar el formulario
UserForm4.Show
End If

End Sub

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.





email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida