Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Formulario en VBA aplicado a la creación de una Agenda telefónica

| 3 comentarios

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.

Imagen-02

(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.

Imagen-03

(Para mayor visualización de la imagen, hacer click en la misma)

 

Formulario Registro Telefónico

 

Karla Luyo.

3 comentarios

  1. 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

  2. Diseñe un use form para una hoja .este mismo lo puedo utilizar en otras hoja del mismo libro

  3. Es posible utilizar un formulario userform para varias hoja de u n libro

Deja una respuesta

Los campos requeridos estan marcados con *.