buen dia
nesesito terminar una macro que me inserte filas pero no he logrado que me copie las formulas de la fila anterior
Selection.FIND(What:="TERMINO0001", After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
R = ActiveCell.Offset(0, 0).Cells.Row
RO = R - 1
Rows(RO & ":" & RO).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Saludos
Entiendo que lo que haces es localizar "TERMINO0001" e insertar una fila justo encima.
entonces prueba con esto:
Rows(RO & ":" & RO).select
Selection.Insert Shift:=xlDown
Rows(RO - 1 & ":" & RO - 1).select
rango = range(RO - 1 & ":" & RO).address
Selection.AutoFill Destination:=Range(rango), Type:=xlFillDefault
Saludos
Gracias Cron Funciono muy bien ,
Bendiciones Saludos..