Jump to content

howling

Members
  • Content Count

    9
  • Joined

  • Last visited

About howling

  • Rank
    Newbie

Converted

  • Campos Array
  1. buenos dias ya he resuelto el problema gracias por la ayuda saludos
  2. hola leopoldo gracias por tu apoyo en mi consulta y disculpa la tardanza deja que me explique un poco mejor con respecto a lo anterior, no es que al filtrar con el combobox3 me de error si no que todo lo contrario me filtra sin ningun problema pero ademas de filtrar los datos nesecito que sume la columna del listbox en donde estan los totales y que el resultado que en el textbox1 y es ahi en donde me sale el error y me dice que los tipos no coinciden saludo
  3. al seleccionar el combobox3 por ejemplo si yo filtro con el con el que tiene la fecha y en la hoja 1 me filtra perfectamente y ademas me suma los valores de la columna 5 del listbox en el texbox pero si a eso le añado el filtro del del combobox 3 que deberia ser el de seccion ahí es donde ocurre el error y me dice que los tipos no coinciden agradezco de ante mano tu orientacion
  4. buenos dias leopoldo gracias por tu pronta respuestas en si es el mismo archivo que el anterior solamente que le agrege un textbox, pero igual lo subo PRUEBA1.xlsm
  5. gracias digitalboy he resuelto mi problema con las columnas del listbox, gracias por tu tiempo pero me ha surgido otro problema cuando trato de calcular la columna 5 del listbox me da error en donde dice que no coinciden los tipos es posible arreglar esto este es el codigo que estoy usando Private Sub ComboBox3_Change() Dim Final As Long, Fila As Long With Sheets("Hoja1") Final = .Range("A" & Rows.Count).End(xlUp).Row ListBox1.RowSource = "" i = 0 For Fila = 2 To Final If Trim(UCase(.Cells(Fila, "B"))) = Trim(UCase(ComboBox3)) Then ListBox1.AddItem .Cells(Fila, "A") ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(Fila, "B") ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(Fila, "C") ListBox1.List(Me.ListBox1.ListCount - 1, 3) = .Cells(Fila, "D") ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Format(.Cells(Fila, "E"), "$ ##0,000") ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Format(.Cells(Fila, "F"), "$ ##0,000") ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Format(.Cells(Fila, "G"), "h:mm") ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Format(.Cells(Fila, "H"), "m/d/yyyy") End If Next End With For IndiceLis = 0 To ListBox1.ListCount - 1 VTotal = VTotal + CDbl(ListBox1.List(IndiceLis, 5)) Next IndiceLis TextBox1 = Format((VTotal), "$ ##0,000") End Sub
  6. buenas tardes genios de la programación vuelvo otra ves al foro por ayuda otra ves mi problema es el siguiente tengo un formulario que me filtra desde un combobox por fecha pero cuando lo filtro con con el segundo combobox me filtra pero me desordena las columnas del listbox y me quita las cabecera del filtrado me podrian guiar con este problema y explicarme porque pasa espero haberme explicado subo el archivo PRUEBA.xlsm
  7. genial antoni gracia por tu aporte y ayuda
  8. hola buenas tardes primero que todo gracias a los don por responder tan rápido las dos opciones son buenas, pero también quisiera pedirles que me ayudaran a filtrar con las fechas que están en uno de los combobox dentro del listbox una vez mas gracias por la ayuda
  9. hola necesito ayuda con una macro que estoy adaptando a mis necesidades, pero no logro hacerlo ya que soy nuevo en esto, lo que necesito es: 1- que el listbox carge los datos de una hoja especifica que tengo en un combobox en listada por ejemplo si en el combobox dejo la hoja 1 que cargue los datos de la hoja 1 y si es la hoja 8 los de la hoja 8 y así sucesivamente 2- que cuando se filtre desde el listbox queden los títulos de las cabecera de antemano gracias por la ayuda y espero también poder ayudar en lo posible a quien lo necesite PRUEBA.xlsm
×
×
  • Create New...

Important Information

Privacy Policy