Como  Datos ingresar ONU from Formulario en Excel (VBA)

UENO PRIMERO QUE NADA HAY QUE ENTRAR A LA VENTANA DE PROGRAMADOR EN EXCEL, QUE PARA ESTO TIENE LA PESTAÑA Aparecer LLAMADA "PROGRAMADOR" EN LA CINTA DE OPCIONES. SI ESTA NO Aparece HAY QUE ACTIVARLA   

• Excel 2007: Inicio >> OPCIONES de Excel >> Más Frecuentes >> Mostrar Ficha Programador en la Cinta de OPCIONES.
• Excel 2010: Inicio >> OPCIONES de Excel >> Personalizar >> buscas? Busca otros ficha programador.

AHORA QUE TENEMOS LA PESTAÑA EN SU LUGAR VAMOS A IR A DONDE DICE Visual Basic, ESTO NOS VA A ABRIR EL EDITOR DE CODIGO DE VBA. 

LUEGO EN EL EDITOR VAMOS A LA OPCION CREAR FORMULARIO COMO SE MUESTRA EN LA IMAGEN. VAN A VER QUE Aparece EL FORMULARIO CON EL QUE VAMOS A TRABAJAR. 

A EL FORMULARIO LO UNICO QUE LE FUE MODIFIQUE EL NOMBRE A Mostrar DEL FORMULARIO, LE PUSE (REGISTRO DE USUARIO T!). ESTO SE HACE DESDE LA VENTANA DE PROPIEDADES QUE ESTA A LA IZQUIERDA DE EL EDITOR.  

BUENO ES EL CASO DEL EJEMPLO QUE LES PUSE UNA IMAGEN Mostre QUE DICE (TARINGA) Y ESTO PARA QUE IR AL HAY CUADRO DE HERRAMIENTAS QUE Aparece A LA IZQUIERDA DEL FORMULARIO. DESDE AHI VAMOS A Insertar LA IMAGEN (Imagen), LAS ETIQUETAS (Etiqueta), LOS CUADROS DE TEXTOS (Cuadro de texto) Y LOS BOTONES (Botón de Comando) QUE VAMOS A UTILIZAR. LOS NOMBRES QUE LES TIENEN QUE PONER A LOS BOTONES YA LOS CUADROS DE TEXTOS SON: A LOS CUADROS DE TEXTOS DESDE LA VENTANA DE OPCIONES EN DONDE DICE (nombre) LES Cambian LOS NOMBRES POR LOS SIGUIENTES: ID NOMBRE APELLIDO SEXO EDAD USUARIO YA LOS BOTONES DESDE LA MISMA VENTANA LES PONEN ACEPTAR CANCELAR 

 

UNA VEZ QUE EL FORMULARIO Tengamos VAMOS A PreparAR LA HOJA DONDE SE VAN A GUARDAR LOS DATOS QUE CARGEMOS ES FORMULARIO. LES muestro LA QUE HICE YO. 

BUENO LO IMPORTANTE DE ESTA HOJA EN EL BOTON DESDE DONDE SE VA A INICIAR EL FORMULARIO Y LA CANTIDAD DE USUARIOS QUE LA OBTENGO MEDIANTE LA FUNCION "= CONTAR (A7: A110)" 

PARA EL CASO DEL BOTON LO QUE HICE FUE Insertar UNA FORMA SIMPLE CON UN TEXTO DENTRO Y LE ASIGNE ONU HACER PARA EL MACRO LLAMADO DEL FORMULARIO. 

TIENEN QUE HACER CLIC CON EL BOTON DERECHO DEL RATÓN EN EL BOTON Y PONER Asignar MACRO, LUEGO Escriben EL NOMBRE QUE LES QUIERAN PONER Y DAN CLIC EN NUEVO Y LES Aparece EL EDITOR PARA PONER EL CODIGO DEL MACRO. CODIGO "UserForm1.Show" 

 

DE ESTE MODO INICIAN EL FORMULARIO. 

AHORA NOS QUEDA INGRESAR LOS CODIGOS CON LOS QUE VA A TRABAJAR EL FORMULARIO Y YA ESTARA LISTO. Veamos ES EL EDITOR DEL FORMULARIO VAMOS A CLIC CON EL BOTON SECUNDARIO EN EL FORMULARIO Y VAMOS A PONER VER CODIGO 

 

COPIAMOS EL SIGUIENTE CODIGO (NO LE DEN BOLA A LOS YA QUE CUANDO emoticones DEN ES NO PEGAR Aparecen) Y LO PEGAN EN EL EDITOR. 

Private Sub ACEPTAR_Click () Con Sheets ("Hoja1" .Range ("A" & 7 + Range ("F2" .Value) .Value = Val (ID) .Range ("B" & 7 + Range ("F2". Valor - 1) .Value = NOMBRE.Value .Range ("C" & 7 + Range ("F2" .Value - 1) .Value = APELLIDO.Value .Range ("D" y 7 + Range ("F2". Valor - 1) .Value = SEXO.Value .Range ("E" y 7 + Range ("F2" .Value - 1) .Value = EDAD.Value .Range ("F" y 7 + Range ("F2". Valor - 1) .Value = USUARIO.Value Unload Me End With End Sub Private Sub CANCELAR_Click () Unload Me End Sub Private Sub UserForm_Activate () ID.Enabled = False ID.Value = Range ("f2" .Value + 1 End Sub