macro insertar fila con formulas

3 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 7 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3202
macro insertar fila con formulas

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

 

 

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 1 semana 23 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12725
Re: macro insertar fila con formulas

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


tetorin
Imagen de tetorin
Offline
última acción: Hace 7 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3202
Re: macro insertar fila con formulas

Gracias Cron Funciono muy bien ,

 

Bendiciones Saludos..