Guardar y buscar datos desde combobox

Macklainn · el 11 de septiembre

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

guardar datos.zip

jpmercado · el 12 de septiembre

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