Jump to content

Archived

This topic is now archived and is closed to further replies.

albertho_hdz@hotmail.com

Ejecutar Formulario y ocultar Libro

Recommended Posts

Buen Día, 

Alguien me puede ayudar, tengo el siguiente codigo:

Private Sub Workbook_Open()
Workbooks("CorreoControlgas - Copy.xlsm").Application.Visible = False
MIFORMULARIO.Show

End Sub

 

Y lo que quiero es que al abrirlo , oculte el libro y solo me ejecute el formulario y ya lo logre, el detalle es que cuando tengo otros libros abiertos me los oculta.

 

 

Share this post


Link to post
Share on other sites

@Haplox Que tal Buen Día Amigo, muchas gracias por tu amable respuesta , te comento que no me funciono.

 

te comparto el ejemplo y es que me marca error en mi lista.

-carpeta:ejemplo ejecutando la instrucción indicada

-ejemplo sin ejecutar la instrucción.

 

Muchas gracias por el apoyo , no esperaba recibir respuesta tan pronto,

Saludos!

 

 

ejemplo.zip

Capture.PNG

Share this post


Link to post
Share on other sites
Private Sub UserForm_Activate()
Application.Windows("CorreoControlgas - Copy.xlsm").Visible = True
TEXTO.SetFocus
Me.LISTA.RowSource = "PRODUCTOS2"
Me.LISTA.ColumnCount = 4
Application.Windows("CorreoControlgas - Copy.xlsm").Visible = False

End Sub

Hola, en el userform MIFORMULARIO, al inicio coloca en true y al final en false.

Saludos,

Share this post


Link to post
Share on other sites
Hace 12 horas, albertho_hdz@hotmail.com dijo:

Y lo que quiero es que al abrirlo , oculte el libro y solo me ejecute el formulario y ya lo logre, el detalle es que cuando tengo otros libros abiertos me los oculta.

Es que no comentastes nada de formularios y demás ;)

Share this post


Link to post
Share on other sites

@rolano Muchas gracias , pero nuevamente me marca un error en el evento Texto_change, al agregarlo desde 

UserForm_Activate()

Al parecer no encuentra la hoja...para la busqueda inteligente.

 

@Haplox Una disculpa, por no especificar todo el proceso del Formulario,

Y una vez mas agradezco de su tiempo, no soy tan bueno y lo que les muestro lo fui recopilando de diferentes fuentes.

 

Gracias!

image.png

Share this post


Link to post
Share on other sites
Hace 13 horas, albertho_hdz@hotmail.com dijo:

alguien tuvo la oportunidad de revisar este tema?

Lo estoy revisando ahora ;). Solo tienes que aplicar la misma solución en esa parte del código que la que te puso @rolano
 

Private Sub TEXTO_Change()
Application.ScreenUpdating = False '<-----¡¡¡¡¡¡¡IMPORTANTE!!!!!!!'

Application.Windows("CorreoControlgas - Copy.xlsm").Visible = True

NumeroDatos = Sheets("Correos").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Correos").AutoFilterMode = False
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
y = 0
For Fila = 2 To NumeroDatos
descrip = Sheets("Correos").Cells(Fila, 1).Value
If UCase(descrip) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
Me.LISTA.AddItem
Me.LISTA.List(y, 0) = Sheets("Correos").Cells(Fila, 1).Value
Me.LISTA.List(y, 1) = Sheets("Correos").Cells(Fila, 2).Value
Me.LISTA.List(y, 2) = Sheets("Correos").Cells(Fila, 3).Value
Me.LISTA.List(y, 3) = Sheets("Correos").Cells(Fila, 4).Value

y = y + 1


Me.TextBox4 = Sheets("Correos").Cells(Fila, 1).Value
Me.TextBox6 = Sheets("Correos").Cells(Fila, 2).Value
Me.TextBox7 = Sheets("Correos").Cells(Fila, 3).Value


Me.TextBox8 = Sheets("Correos").Cells(Fila, 4).Value

End If


Next

Application.Windows("CorreoControlgas - Copy.xlsm").Visible = False

End Sub

 

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy