Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Condicionar la ejecucion de Auto Open

03/10/2006 - 12:06 por MIEL | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :