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 de Dante Amor
2
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
