Saltar al contenido

Guardar y buscar datos desde combobox


Macklainn

Recommended Posts

Hola, a todos estoy tratando de crear un formulario algo simple en la cual ingreso datos en textbox, y lo visualice en un listbox a traves de un boton que dice agregar, y que todos los datos agregados en el listbox, lo guarde en una hoja a traves de otro boton que dice guardar.

pero en el combobox que tengo y son dos se pueda agregar datos desde las celdas de la hoja2.

tengo otro formulario que tiene 3 combobox, que busque por fecha, codigo, nombre, indempendiente de cada uno y lo muestre en el listbox cuando precione el boton buscar. de antemano muchas gracias. estare pendiente a los resultados

post-68852-145877008496_thumb.jpg

guardar datos.zip

Enlace a comentario
Compartir con otras webs

Hola Macklain

Con mis humildes conocimientos intentare ayudarte en algo en especial con la primera parte o primer Formulario.

Primero que todo seria bueno aclarar la forma en como quieres que se comporte el listbox cada vez que grabes los registros en la hoja LLENAR DATOS.

Hay un par de detalles en los formularios, como por ejemplo el orden, ya que al desplazarse con la tecla TAB, se salta algunos campos (se salta de nombre al boton grabar y luego vuelve al combo estado civil...)

De todas formas, te envio algo de codigo, Los pasos que te dejo a continuacion, simplemente realizan lo que solicitas, sin mayores especificaiones o detalles.

El codigo para la funcion Initialize del objeto Userform1 debe decir mas o menos lo siguiente:


Sub UserForm_Initialize()
Application.ScreenUpdating = False
Me.TextBox1.Text = Date

'Seleccionamos la hoja donde estan los datos
'que se cargaran a los combobox1

Sheets("LISTADO").Select
Range("A2").Select

'con este ciclo recorremos los valores y los cargamos al combobox2
Do While ActiveCell.Value <> ""
ComboBox2.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Range("B2").Select

'con este ciclo recorremos los valores y los cargamos al combobox1
Do While ActiveCell.Value <> ""
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

'volvemos a la hoja inicial
Sheets("LLENAR DATOS").Select

Application.ScreenUpdating = True
End Sub
[/CODE]

Para que los datos ingresados en los textbox y combobox puedan ser cargados al listbox, primero,

debes cambiar la propiedad ColumnCount del objeto Listbox1 a 5 (para que te permita ingresarle los 5 datos anteriores)

El codigo para el boton AGREGAR deberia ser mas o menos asi:

[CODE]
Sub CommandButton3_Click()
Dim indice As Integer
indice = ListBox1.ListCount


With UserForm1.ListBox1
.AddItem
.List(indice, 0) = TextBox1.Value
.List(indice, 1) = TextBox2.Value
.List(indice, 2) = UCase(TextBox3.Value)
.List(indice, 3) = ComboBox1.Value
.List(indice, 4) = ComboBox2.Value
End With


TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox2.SetFocus


End Sub
[/CODE]

Para grabar los datos del Listbox a la hoja LLENAR DATOS, el botón GUARDAR deberia quedar mas o menos asi:

[CODE]Private Sub CommandButton1_Click()
Dim indice As Integer
indice = ListBox1.ListCount


If indice = 0 Then
MsgBox "El listado esta vacio", vbOKOnly + vbInformation, "Informacion"
Else
Sheets("LLENAR DATOS").Select
Range("A1000000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

For i = 0 To indice - 1
ActiveCell.Value = Format(ListBox1.List(i, 0), "dd-mm-yyyy")
ActiveCell.Offset(0, 1).Value = ListBox1.List(i, 1)
ActiveCell.Offset(0, 2).Value = ListBox1.List(i, 2)
ActiveCell.Offset(0, 3).Value = ListBox1.List(i, 3)
ActiveCell.Offset(0, 4).Value = ListBox1.List(i, 4)
ActiveCell.Offset(1, 0).Select
Next i
End If


End Sub
[/CODE]

Te quedaría debiendo la función para el botón MODIFICAR.

Saludos

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Olvide comentarte/consultarte.

En el segundo formulario, el listbox se llena con los datos que están en la hoja LLENAR DATOS??

La opción para buscar, cada combo es excluyente, es decir, si busco por fecha, no considera los otros dos combos? o necesitas que sea una combinación de dos o tres combos?

saludos

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.