Necesito una macro que me copie la fila completa superior y sus fórmulas, no así las datos manuales.
Me extiendo un poco más, las columnas que tienen fórmulas son las E, F, P, R, T, V y X.
Otro dato es que la primer columna tiene como dato cargado por ejemplo "Viga 5" y necesito que la macro al ejecutarla me coloque en esa columna "Viga 6".
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Podrías enviarme tu archivo y me explicas qué rango de celdas hay que copiar, marca de amarillo lo que quieras copiar.
Y en color verde me indica en dónde hay que pegar.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ariel Benvenuto” y el título de esta pregunta.
Dante, te acabo de enviar el correo.
Desde ya muchísimas gracias.
Te anexo la macro para insertar una fila y copiar las fórmulas.
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
Rows(f).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
