Macro para copiar fila sin fórmula, solo formato
Para Dante Amor
Se podrá adaptar una macro que copia filas con fórmulas para que en un caso particular copie una fila que no contiene fórmula, solo formato.
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro actualizada, para copiar fórmulas o formatos
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
