Insertar celdas, borde y sumar celdas
Saludos Dam, en mi trabajo tengo una hoja de excel con muchas registros que la exporto de un sistema el problema es que tengo que a todas las que considan en el nombre y el id, insertar 2 filas y un rallita (borde inferior) y auto suma para saber el total, le mande un registro con 4 ejemplos como debería quedar entera la hoja.
Gracias de antemano
1 respuesta
Respuesta de Dante Amor
1
Esta es la macro
Sub Macro2()
'Por.DAM
i = 1
s = 0
d1 = Cells(i, "A")
d2 = Cells(i, "B")
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
Do While i <= uf
If d1 = Cells(i, "A") And d2 = Cells(i, "B") Then
s = s + Cells(i, "H")
Else
Rows(i & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i - 1, "H").Borders(xlEdgeBottom).LineStyle = xlContinuous
Cells(i, "H") = s
i = i + 2
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
s = Cells(i, "H")
End If
d1 = Cells(i, "A")
d2 = Cells(i, "B")
i = i + 1
Loop
End SubSaludos.DAM
