Excel Avanzado

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

Excel Avanzado

Formulario para el Registro de datos de contacto de clientes

| 15 comentarios

Los formularios de Excel, pueden ayudar a las empresas, pues ahorran mucho tiempo en cuanto al registro de datos de datos, además facilitar el llenado de determinadas bases de datos. Así se puede evitar muchos errores en la captura de información, ademas de poder tener cierto control sobre la manipulación de datos.

Siendo el caso, el formulario presentado a continuación, solicita información esencial para tener control de los datos de contacto de los diversos clientes que pueda tener una empresa , asimismo los ordena de manera adecuada para que estos puedan ser ubicados de una manera mas rápida.

Imagen1

Para llamar al mencionado formulario de registro de datos se tiene un botón de activación, el cual te permite cargar el formulario para empezar a llenar os datos.

Una vez con el formulario en pantalla se procede al llenado de los datos correspondientes los cuales pasaran a ser guardados en una tabla la cual los ordenara, siguiendo el orden de los campos de llenado.

Imagen2
Imagen3

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

De este modo ya con la tabla finalizada se tiene una base de datos ordenada para un mejor manejo, sea para cualquier motivo requerido.

Editado por Joseph Rengifo

Registro de clientes - Joseph Rengifo

15 comentarios

  1. Si se deja el campo "Cliente Numero" vacío se produce un error, ¿de que manera se podría corregir el error para que en caso se deje vacío te avise que falta ese dato y se coloque el cursor en el textBox correspondiente?. Lo que he podido hacer que te muestre un MsgBox donte te advierte que falta llenar ese campo. Por ejemplo:

    If TextBox1 = "" Then
    MsgBox "Debe completar el campo Cliente Numero"
    End If

    De todas formas es un interesante formulario.

    Saludos

  2. Hola, Buen dia, disculpa las molestias, espero que me puedas ayudar, he buscado ayuda y nadie me quiere echar la mano.
    Este ejemplo que pones, es algo similar a lo que ocupo pero sin Formulario.
    Te explico.

    Tengo Hoja1 con 15 columnas en la primera columna tengo numero de Alumno y en la segunda el nombre del Alumno y asi con mas información hasta la Columna O. (Es una tabla con información de mis Alumnos)

    En la Hoja2, celda A1 Pongo el numero del Alumno
    Y en la B1, C1 y D1 tengo la formula BuscarV para que me ponga la información que ocupo de dicho alumno.

    Pero me gustaría con un botón y me supongo que con un macro.

    Esa información de la B1, C1 y D1 me la ponga
    Abajo apartir de la Fila 3 Columna A (A3, B3, C3) (no la quiero concatenada)
    Si yo consulto otro alumuno en la celda A1
    Que se registre con el botón en la siguiente Fila 4 (A4, B4, C4)
    Y asi sucesivamente cuando yo consulte un alumno me registre con el botón ese alumno en la siguiente Fila.
    Gracias y espero que me puedas ayudar.
    Saludos.

  3. Hola Fernando.
    Ya resolví mi problema anterior, gracias a este ejemplo que pusiste.
    Pero ahora estoy con otro archivo, casi igual al tuyo solo que me hace falta agregarle la foto al cliente dentro del mismo formulario, están todos los campos, claro que hay 2 o 3 que no ocupo y ya los borre como DNI, CE, No. de RUC, Persona de Contacto. Pero ocupo un campo para agregar la foto del cliente.
    Tendrás algún ejemplo ?? que me pueda ayudar...
    Gracias Fernando por tu apoyo. Tu pagina web me ha servido mucho.
    Saludos.

  4. Hola a todos, buenas tardes. Necesito una ayuda. Esta muy bueno el formulario, pero me interesaria saber como se puede hacer para no sobreescribir la fila. Supongamos que me equivoco el numero de cliente, que el formulario me avise que ya exste o que automaticamente me ponga solo el nuemro de cliente. Se entiene: Que me ponga el numero siguiente de cliente y yo lleno los siguientes datos

    Abrazo

  5. buenas tardes
    me gusto mucho el modelo de listado de proveedores pero para poner el encabezado de mi empresa, agrego mas columnas y filas y cuando registro a los proveedores me salen en la columna 4, como hago para configurar desde que celda tienen que salir la información?

  6. Con este tipo de formulario es posible validar el registro de un cliente, es decir, si el cliente ya esta registrado se podría mostrar un mensaje indicando "cliente ya registrado"? como podría hacer esto para evitar duplicar información.

    • Hola Andrea:

      Lo que tu comentas es exactamente lo que yo nesecito, quisiera saber si ya encontraste la solucion a este problema, y de ser asi, si es posible que me ayudes con ello??

      saludos

  7. me gustaria personalizarlo con lo sgt
    razon social
    nro ruc
    direccion
    nombre cliente
    tipo documento
    numero contacto
    tipo habitacion
    precio habitacion
    me parece una gran plantilla para controlar el registro de mis huespedes y los precios que pagan x habitacion

  8. Hola!
    Muchísimas gracias por la planilla creada, está realmente buena...

    M e gustaría saber si existe alguna forma para editar el ingreso de datos, por ejemplo;
    - si llegase a querer cambiar "razón social" por "nombre", o "dirección" por "observaciones", etc..

    De ante mano, muchas gracias!
    Quedo mas que atenta

    Magda

  9. con este excel me a ayudado bastante mi trabajo

  10. ahora mi profesora me a puesto 20+5 puntos gracias a excel

  11. Esta muy bien el material........................saludos

  12. Hola,

    Como se podría exportar los datos del formulario a un word (con un marcador)?
    Es decir poner el Cliente Numero, Razon Social...a un word indicando que el TextBox1 = bookmark "Cliente", TextBox2 = bookmark "social", etc

    Muchas gracias

    Saludos,

  13. Que tal buen día.

    esta muy padre esa base de datos, quisiera modificarla para una lista de material de electrónica con descripción, precio, etc.

    como le hago para modificarla se los agradecería mucho.

    gracias.

  14. hola me ayudas??

    no se como puedo resolverlo, me siento atascado quiero aprender, he usado tu plantilla Registro de Cliente, la modifique a mi manera, poniendo: N°, Nombre Empresa, Persona de Contacto, Numero de Contacto, Direccion, Email.
    en la macro use tus codigos solo que los modifique y quedo asi: Private Sub CommandButton1_Click()

    Cells(5, 1) = "N°"
    Cells(5, 2) = "Nombre de la Empresa"
    Cells(5, 3) = "Persona de Contacto"
    Cells(5, 4) = "Direccion"
    Cells(5, 5) = "E-mail"

    Range("A5:I5").Select

    With Selection.Font
    .Name = "Calibri"
    .Size = 12
    End With
    With Selection.Interior
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.399975585192419
    End With
    With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    End With

    UserForm1.Show

    End Sub
    ----------------------------------------------------------------------------------
    USERFORM
    Private Sub CommandButton1_Click()
    Cells(x, 1) = TextBox1.Text
    Cells(x, 2) = TextBox2.Text
    Cells(x, 3) = TextBox3.Text
    Cells(x, 4) = TextBox4.Text
    If OptionButton1.Value = True Then
    Cells(x, 5) = OptionButton1.Caption
    End If
    If OptionButton2.Value = True Then
    Cells(x, 5) = OptionButton2.Caption
    End If
    Cells(x, 6) = TextBox5.Text
    Cells(x, 7) = TextBox6.Text
    Cells(x, 8) = TextBox7.Text
    Cells(x, 9) = TextBox8.Text

    Cells(x, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    End With

    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""

    End Sub

    Private Sub CommandButton3_Click()

    Unload UserForm1

    End Sub

    Private Sub Label10_Click()

    End Sub

    Private Sub Label9_Click()

    End Sub

    Private Sub TextBox1_Change()

    End Sub

    Private Sub TextBox2_Change()

    End Sub
    -------------------------------------------------------
    Sin embargo me sale un mensaje: se ha producido el error "1004" en tiempo de ejecucion: Error Definido por la aplicacion o el objeto, le hago click en Depurar y me marca la linea: Cells(x, 1) = TextBox1.Text......

    No se que hacer...! Help me PLease

    Gracias...!

Deja una respuesta

Los campos requeridos estan marcados con *.