filtrar fechas con un boton y dos combobox

[johao12]

Hola amigos

quisiera saber si alguien me puede ayudar con lo siguiente:

Tengo un userform con dos combobox un commandbutton, un listbox y un textbox.

de los cuales los combobox buscan fechas inicial y final de una hoja de calculo y al ejecutar el boton muestra en el listbox todos los resultados entre esas fechas incluidas las mismas, estos resultados debieran ser 4 columnas en la primera la cantidad en la segunda el articulo o producto en la tercera el precio y en la ultima el total, además en el textbox debe aparecer la suma de todos los totales el codigo que estoy utilizando es:

Private Sub CommandButton1_Click()

ListBox2.Clear

Dim fecha1 As Date

Dim fecha2 As Date

Do While ComboBox2.Value = "" Or ComboBox3.Value = ""

UserForm35.Show

Exit Sub

Loop

fecha1 = ComboBox2.Value

fecha2 = ComboBox3.Value

Sheets("INFORMES").Activate

Range("e2").Activate

Do While ActiveCell.Value <> ""

If ActiveCell.Value = fecha1 Then

Exit Do

Else

ActiveCell.Offset(1, 0).Activate

End If

Loop

Do While ActiveCell.Value <> fecha2

ListBox2.AddItem ActiveCell.Offset(0, -4).Value

c = ListBox2.ListCount - 1

ListBox2.List(c, 1) = ActiveCell.Offset(0, -1).Value

ActiveCell.Offset(1, 0).Activate

Loop

suma2 = suma2 + ActiveCell.Offset(0, -1).Value

For p = 0 To ListBox2.ListCount - 1

suma2 = suma2 + CDbl(ListBox2.List(p, 1))

Next

TextBox2.Value = suma2

TextBox2.Value = Format(TextBox2, "#,##0.00")

End Sub

Private Sub UserForm_Initialize()

Sheets("INFORMES").Activate

Range("e1").CurrentRegion.Sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("e2").Activate

Do While ActiveCell.Value <> ""

If InStr(valores, ActiveCell) = 0 Then

valores = valores & "," & ActiveCell

End If

ActiveCell.Offset(1, 0).Activate

Loop

valores = Mid(valores, 2, Len(valores) - 1)

valores = Split(valores, ",")

For X = 0 To UBound(valores)

ComboBox2.AddItem valores(X)

ComboBox3.AddItem valores(X)

Next

End Subpero solo muestra dos columnas la primera es el producto y la segunda es el valory en textbox la suma, pero no muestra nada en el listbox si las fechas son iguales, pero si muestra la suma de esa fecha. ayuda por favor

[Pablo Santos]

Saludos, no se si yo pueda ayudarte, pero por lo general como norma, los foristas y expertos de aqui necesitan que subas alguna copia del archivo en cuestión para poder ser analizado.