buenos dias amigos del foro nuevamente recurro a ustedes tengo un macro que aporto el maestro Gerson Pineda y que hemos estado adaptando a mi necesidades con ayuda de mi amigo Pajuma, el macro corre perfecto , el problema que tengo ahora es que cuando carga los datos del listbox y lo mando a imprimir lo pasa en otra hoja y necesito que me haga la suma de lo que manda y cambie los encabezados a las letras color amarrillo y el fondo en azul, este es el codigo que utilizo, adjunto el archivo
buenos dias amigos del foro nuevamente recurro a ustedes tengo un macro que aporto el maestro Gerson Pineda y que hemos estado adaptando a mi necesidades con ayuda de mi amigo Pajuma, el macro corre perfecto , el problema que tengo ahora es que cuando carga los datos del listbox y lo mando a imprimir lo pasa en otra hoja y necesito que me haga la suma de lo que manda y cambie los encabezados a las letras color amarrillo y el fondo en azul, este es el codigo que utilizo, adjunto el archivo
Private Sub CommandButton5_Click()
Worksheets.Add
Cells.Select
Selection.ClearContents
With Range("A65536").End(xlUp)
Dim fila As Integer
For fila = 0 To ListBox1.ListCount - 1
If ListBox1.List(fila, 1) <> "" Then
.Offset(fila + 1, 0).Value = ListBox1.List(fila, 0)
.Offset(fila + 1, 1).Value = ListBox1.List(fila, 1)
.Offset(fila + 1, 2).Value = ListBox1.List(fila, 2) '
.Offset(fila + 1, 3).Value = ListBox1.List(fila, 3)
.Offset(fila + 1, 4).Value = ListBox1.List(fila, 4)
Else
Exit For
End If
Next
End With
End Sub
les agradesco su ayuda
elverku
PRUEBA 2.rar