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.

Siga el debate

2 respuestas

Tengo una respuesta

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.

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida