Cargar datos de un formulario o celda VBA Excel
Previamente hice un formulario en Excel donde tenia ejemplo
Nombre, Apellido, Cedula, Dirección, Referencia, Familia Etc. Etc. Etc.
Ese formulario se inserta en unas celdas en POR posición en excel
Ahora tengo otro formulario el cual necesito hacer el llamado de esa información pero por ejemplo solo de Nombre Cedula y Referencia... No de toda la información introducida... Pero NO para modificarla quiero que desde el nuevo formulario con el Numero de Cedula o un código que le asigne ejemplo 002 o cualquier texto me cargue la información de esa celda y la muestre para posteriormente usar esa información cargada al nuevo formulario para guardarla en otro lado para llevar un registro...
Osea tengo a un operador introduciendo información de los clientes todo el día, y de esa información que esta llenando solo necesito unos 3 campos para poder agregarle una acción Ejemplo compro POR producto y esa información sea despachada a otra hoja de excel y ahí pueda ser impresa...
Quiero evitar tener que estar llenando manualmente la información del usuario si ya anteriormente lo tengo en excel con un registro de toda su información.
[Hola
te paso la macro, cuando ingreses el código te volcará los datos a los textbox
Private Sub CommandButton1_Click()
'[Por Adriel ortiz
'
Set h = Sheets("Hoja1")
Set r = Columns("A")
Set b = r.Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
h.Cells(b.Row, "B") = TextBox2
h.Cells(b.Row, "C") = TextBox3
h.Cells(b.Row, "D") = TextBox4
'
'aqui el resto
'
End If
End Submi ejemplo indica que el código está en la columnas A, le aplicas a tu necesidad para el resto
1 respuesta más de otro experto
Necesitas los siguientes procesos:
1. Capturar un dato del cliente en un textbox, puede ser el nombre, el código, apellido, etc.; para cada letra que pongas en el textbox, se filtre la información de la hoja y la ponga en un listbox.
2. Una vez que tienes la información en el listbox, por ejemplo, si escribiste "Juan", puede ser que tengas varios usuarios con el nombre "Juan", entonces tienes que seleccionar uno de los registros que tienes en el listbox para el registro de productos.
3. Después de seleccionar el registro en el listbox, supongo que vas a capturar otros datos relacionados al producto.
4. Pasar los datos del registro seleccionado en el listbox y los datos relacionados al producto a la hoja.
5. Imprimir la hoja.
Entonces empecemos con los primeros 3 pasos. Envíame tu archivo con el formulario para filtrar y para capturar lo del producto, envía algunos ejemplos para poder realizar el filtro y para poder ver en dónde se tiene que realizar la búsqueda.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Josue Pacheco” y el título de esta pregunta.
¡Gracias!
Ya te envíe el formulario con un capture de la información que necesito agradezco tu Ayuda
Te anexo el código para buscar el teléfono y el chofer.
En el form hay que crear un botón para buscar el teléfono.
Private Sub ComboBox9_Change()
'Por.Dante Amor
TextBox27 = ""
TextBox28 = ""
TextBox29 = ""
TextBox30 = ""
TextBox31 = ""
'
If ComboBox9 = "" Or ComboBox9.ListIndex = "" Then Exit Sub
Set h = Sheets("RegistroC")
Set b = h.Columns("U").Find(ComboBox9, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox27 = h.Cells(b.Row, "A") 'nombres
TextBox28 = h.Cells(b.Row, "B") 'apellidos
TextBox29 = h.Cells(b.Row, "M") 'modelo
TextBox30 = h.Cells(b.Row, "N") 'color
TextBox31 = h.Cells(b.Row, "O") 'placa
End If
End Sub
'
Private Sub CommandButton6_Click()
'Por.Dante Amor
TextBox23 = ""
TextBox24 = ""
If TextBox32 = "" Then
MsgBox "Falta capturar el teléfono"
Exit Sub
End If
Set h = Sheets("RegistroClientes")
Set b = h.Columns("C:D").Find(TextBox32, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox23 = h.Cells(b.Row, "A")
TextBox24 = h.Cells(b.Row, "B")
Else
MsgBox "El teléfono no existe"
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.