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.
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.
(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
29/09/2013 a las 9:51 pm
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
09/04/2014 a las 11:33 am
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.
10/04/2014 a las 12:28 pm
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.
22/09/2014 a las 12:57 pm
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
05/11/2014 a las 2:12 pm
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?
01/03/2015 a las 11:06 pm
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.
02/04/2016 a las 3:24 pm
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
16/08/2015 a las 3:24 pm
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
07/09/2015 a las 11:46 am
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
09/09/2015 a las 3:34 pm
con este excel me a ayudado bastante mi trabajo
09/09/2015 a las 3:35 pm
ahora mi profesora me a puesto 20+5 puntos gracias a excel
02/10/2015 a las 8:28 pm
Esta muy bien el material........................saludos
20/12/2016 a las 8:52 am
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,
28/09/2017 a las 12:58 pm
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.
28/02/2018 a las 8:10 pm
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...!