Necesito que al insertar filas con la macro me sume los totales en Excel
Para Dante Amor
Al insertar la macro no me actualiza los totales incluyendo estas filas insertadas.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para actualizar las fórmulas de los totales.
Sub InsertarFila()
'Por.Dante Amor
Application.ScreenUpdating = False
Set celda = ActiveCell
If celda.Value = "" Then
MsgBox "Selecciona una celda con datos"
Exit Sub
End If
If celda.Column <> 1 Then
MsgBox "Selecciona una celda de la columna 'A'"
Exit Sub
End If
If celda.Row < 6 Then
MsgBox "Selecciona una celda de la fila 6 en adelante"
Exit Sub
End If
'
existe = False
For Each c In Range("B" & celda.Row & ":Z" & celda.Row)
If c.HasFormula Then
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "La fila seleccionada no contiene fórmulas"
Exit Sub
End If
'
filas = 0
If celda.MergeCells Then
filas = celda.MergeArea.Rows.Count - 1
End If
f = celda.Row
Do While Cells(f, "A") <> "" Or Cells(f, "A").MergeCells = True
f = f + 1
Loop
'
Rows(celda.Row & ":" & celda.Row + filas).Copy
n = f - 1 - filas
Rows(n).Insert Shift:=xlDown
For Each c In Range("A" & f & ":Z" & f + filas)
If c.HasFormula = False Then
c.Value = ""
End If
Next
Application.CutCopyMode = False
End Sub
