Descripción
Si bien es cierto, todas las personas que utilizan celular mantienen un registro telefónico al interior de este, siempre es bueno contar con una agenda adicional a manera de “back up” en alguna otra fuente de registro.
Utilizar un formulario para la creación de una agenda telefónica en Excel hace que el registro se realice de manera rápida, clara y ordenada, ya que los datos se ingresan por concepto y se almacenan de la misma forma, generando así una valiosa base de datos.
Aplicación
En la pestaña “Ingreso Datos” se encuentra tanto el botón para el inicio del registro del registro de datos. Los datos utilizados en el formulario son Nombre/Apellidos/Teléfono Fijo/ Celular.
(Para mayor visualización de la imagen, hacer click en la misma)
El formulario cuenta con 03 opciones:
Guardar: Se utiliza para grabar y almacenar en la base de datos los campos que se han llenado del registro.
Nuevo Registro: Se utiliza para pasar de un registro a otro, una vez que el anterior ya se haya guardado. Sirve también para limpiar el registro.
Salir: Sirve para salir de la ventana de formulario.
(Para mayor visualización de la imagen, hacer click en la misma)
Formulario Registro Telefónico
Karla Luyo.
22/07/2014 a las 1:18 pm
Buenas tardes,
El motivo a este mensaje es que tengo una duda, quise crear 1 label mas y un texbox mas que sería como: correo electrónico y su texbox, ahora: en el UserForm1 le agregue al código así:
Private Sub CommandButton1_Click()
Sheets("ingreso").Select
Cells(2, 1) = TextBox1.Text
Cells(2, 2) = TextBox2.Text
Cells(2, 3) = TextBox3.Text
Cells(2, 4) = TextBox4.Text
Cells(2, 5) = TextBox5.Text
Sheets("Registro datos").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Usando el grabador
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Sheets("ingreso").Select
Range("A2:e2").Select
Selection.Copy
Range("A2:E2").Select
Sheets("Registro datos").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
y en el modulo le cambie unos datos:
Sub Macro1()
'
' Macro1 Macro
'
'
Rows("10:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Range("A2:E2").Select
Range("E2").Activate
Selection.Copy
Sheets("Registro datos").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
y en excel los libros ya se le agrego la celda e que es: correo electrónico.
cuando lo corro y empiezo a poner los datos cuando llega al cel y quiero poner el de correo electrónico me lo brinca a guardar y quiero que quede en correo y terminando se vaya a guardar y lo guarde.
Me puedes explicar donde estoy fallando o donde es la falla por favor, Gracias y saludos cordiales
08/09/2014 a las 1:26 pm
Diseñe un use form para una hoja .este mismo lo puedo utilizar en otras hoja del mismo libro
09/09/2014 a las 9:16 am
Es posible utilizar un formulario userform para varias hoja de u n libro