Un Gran Userform

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Un Gran Userform

Notapor salvador » 20 Jul 2006 16:56

En una macro auto_open,se abre un formulario y aunque lo he diseñado todo lo grande que he podido( sabido ),no me ocupa toda la pantalla dejando ver por los extremos el fondo de la hoja de calculo....
¿Hay alguna manera de evirtar esto?....¿ Se podria eliminar la cruz ( x )del extremo superior derecho...?
Gracias a todos por vuestro interes
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Notapor opermty » 21 Jul 2006 01:39

Utiliza las propiedades with y height del mismo y adaptalo a las propiedades del sistema
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Re: Un Gran Userform

Notapor Scops » 21 Jul 2006 05:35

Q TAL SALVADOR
CON ESTE CODIGO DESACTIVAS LA " X " Q CIERRA EL FORMULARIO
ESPERO Q TE SIRVA

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = TRUE
End If
End Sub

UN SALUDO
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Scops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Nov 2005 05:43

Notapor salvador » 25 Jul 2006 09:47

Muchas gracias a los dos...me han servido vuestros aportes,....ahora , y si no fuera mucho pedir.....¿Como podria conseguir que el formulario no lo puedan mover clicando en la barra de titulo y arrastrando......?
Gracias de nuevo.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Notapor opermty » 25 Jul 2006 12:30

Si lo requieres en la parte superior izquierda seria mas o menos asi:

Private Sub UserForm_Layout()
userform1.Move 0, 0
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Notapor salvador » 26 Jul 2006 08:46

ERES UN FENOMENO OPERMTY. UN MILLON DE GRACIAS
Un saludo.
Salvador
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Notapor salvador » 27 Jul 2006 13:47

Otra vez ....... Me ha quedado de lujo con todo lo que me habeis ayudado,pero sigo viendolo como poco profesional....
Cuando se ejecuta la macro auto_open ,aparece primero una hoja del libro y al instante el formulario (quisiera que solo apareciese el formulario ) ,y lo mismo ocurre con el auto_close,antes de salir de la aplicacion,aparece siempre una hoja (aunque salga desde el formulario).....Tal vez sea mucho pedir,pero......Me podeis hechar una mano ¿?
Lo he intentado con APPLICATION.SCREENUPDATING=FALSE....PERO NI FLORES
GRACIAS.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Re: Un Gran Userform

Notapor Scops » 28 Jul 2006 04:36

Q TAL SALVADOR
PRUEBE CON ESTE CODIGO PROGRAMANDO EL BOTON Q USAS PARA SALIR DE LA APLICACION

Private Sub cmdCerrar_click() (cmdCerrar CORRESPONDE AL NOMBRE DEL BOTON DE SALIDA)
Dim Mensaje, Estilo, Titulo, Respuesta As String
Mensaje = " Está a punto de abandonar la aplicacion " + Chr(13) + Chr(13) + " Desea continuar"
Estilo = vbYesNo + cbExclamation + vbdefautbutton2
Titulo = "Salir de la aplicacion"
Respuesta = MsgBox(Mensaje, Estilo, Titulo)
If Respuesta = vbYes Then
ActiveWorkbook.Save
Unload Me
ActiveWorkbook.Close
End If
End Sub

ESPERO Q TE SEA UTIL
UN SALUDO
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Scops
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Nov 2005 05:43

Notapor salvador » 28 Jul 2006 12:37

Gracias Scops.
Si que me ha valido tu codigo para salir de la aplicacion,es lo que buscaba...¿Para que al abrir el libro no aparezca ninguna hoja antes que el formulario........?¿Que se te ocurre....? .....
Gracias por todo.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Re: Un Gran Userform

Notapor opermty » 28 Jul 2006 18:51

utiliza la propiedad visible del libro :)

Sub novisi()
Windows(ThisWorkbook.Name).Visible = False
End Sub

Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Notapor yimysys » 28 Jul 2006 22:22

por si todavia te sirve, he subido un archivo que no muestra la ventana de excel y el formulario tiene los botones de minimizar y maximizar(maxmin), y eso lo puedes convinar con otro archivo que esta aqui mismo que se llama xls to exe que no te pregutna la activacion de macros
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
yimysys
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Oct 2004 15:21
Ubicación: Montero-Santa Cruz

Notapor salvador » 02 Ago 2006 14:16

Muchas gracias a todos por vuestra gran ayuda. Gracias a vosotros he conseguido hacer un formulario como yo queria y ademas (y aun mas importante ) he aprendido mucchas cosas que ....al fin y al cabo es lo que nos hace estar aqui en este maravilloso foro.
Recibid un saludo afectuoso
Salvador
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salvador
Miembro Frecuente
Miembro Frecuente
 
Registrado: 10 Oct 2004 13:16
Ubicación: espaí±a

Re: Un Gran Userform

Notapor ST » 03 Ago 2006 00:17

tal vez algo como esto ?? :arrow:

es un "refrito" (adaptacion mia) de una aportacion del foro
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ST
Miembro Frecuente
Miembro Frecuente
 
Registrado: 06 Jun 2005 17:56
Ubicación: Acapulco

Re: Un Gran Userform

Notapor jltellez » 21 Sep 2006 04:29

Hola OPERMTY ¿Podrias ayudarme diciendome donde se tiene que escribir esa sentencia? Gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
jltellez
Miembro Frecuente
Miembro Frecuente
 
Registrado: 01 Dic 2005 14:40
Ubicación: Espaí±a


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados