Consolidar fecha y totales en la misma posicion

Necesito una macro para consolidar fecha y totales en la misma posicion

O sea que quede asi

Muchas graciasssss

1 Respuesta

Respuesta
2

¿Por qué no realizas la captura en otras celdas o en un formulario y que la macro realice la consolidación en esta hoja?

O si los datos ya están así y hay que consolidar, tendría que ocupar una hoja temporal, realizar las sumatorias, borrar esta información y colocar la nueva, ¿es correcto?

Así es dante hay que ocupar una hoja temporal o un sector de la hoja y actualizar los dato así es

Te anexo la macro, antes de ejecutarla crea una hoja con el nombre "TEMP"

Sub Consolidar()
'Por.Dante Amor
    Set h1 = Sheets("TOTALES")
    Set h2 = Sheets("TEMP")
    h2.Cells.Clear
    h2.Columns("A").NumberFormat = "dd/mm/yy;@"
    u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
    If u1 < 4 Then Exit Sub
    For i = 4 To u1
        Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole)
        If b Is Nothing Then
            u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
            h2.Cells(u2, "A") = h1.Cells(i, "A")
            h2.Cells(u2, "B") = h1.Cells(i, "B")
            h2.Cells(u2, "C") = h1.Cells(i, "C")
            h2.Cells(u2, "D") = h1.Cells(i, "D")
            h2.Cells(u2, "E") = h1.Cells(i, "B") + h1.Cells(i, "C") + h1.Cells(i, "D")
        Else
            h2.Cells(b.Row, "B") = h2.Cells(b.Row, "B") + h1.Cells(i, "B")
            h2.Cells(b.Row, "C") = h2.Cells(b.Row, "C") + h1.Cells(i, "C")
            h2.Cells(b.Row, "D") = h2.Cells(b.Row, "D") + h1.Cells(i, "D")
            h2.Cells(b.Row, "E") = h2.Cells(b.Row, "B") + h2.Cells(b.Row, "C") + h2.Cells(b.Row, "D")
        End If
    Next
    h1.Range("A4:E" & u1).ClearContents
    h2.Range("A2:E" & u2).Copy h1.[A4]
    MsgBox "Consolidación terminada"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas