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 = ""
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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