Saltar al contenido

Insertar fila cuando hay mucha fórmula en VBA

publicado

Amigos de Excel.
Después de haber hecho 52 líneas de  formulas, ahora necesito insertar una fila.
Al insertar se desubican  todas las celdas siguientes de las formulas.
La reubicación se puede hacer manual,  ejemplo lo que era "D20", luego de insertar pasaría a ser "D21".
Pregunto: Hay algún procedimiento menos engorroso que reubicar manualmente...?

Explico

Cells(10, 4) = Cells(10, 3) * 12
Cells(11, 4) = Cells(11, 3) * 12
Cells(12, 4) = Cells(12, 3) * 12
Cells(13, 4) = Cells(13, 3) * 12
Cells(15, 4) = Cells(15, 3) * 12
Cells(16, 4) = Cells(16, 3) * 12
Cells(17, 4) = Cells(17, 3) * 12
Cells(18, 4) = Cells(18, 3) * 12
Cells(19, 4) = Cells(19, 3) * 12
Cells(20, 4) = Cells(20, 3) * 12

Aquí, insertaría una fila.... ahora toca reubicar todas las siguientes celdas.... 
Range("D21") = Application.Sum(Range("D10:D20"))
Range("C21") = Application.Sum(Range("C10:C20"))
Cells(22, 4) = Cells(22, 3) * 12
Cells(23, 4) = Cells(23, 3) * 12
Range("C24") = Application.Sum(Range("C22:C23"))
Range("D24") = Application.Sum(Range("D22:D23"))
Cells(27, 4) = Cells(27, 3) * 12
Cells(28, 4) = Cells(28, 3) * 12
Range("C29") = Application.Sum(Range("C27:C28"))
Range("D29") = Application.Sum(Range("D27:D28"))
Cells(31, 4) = Cells(31, 3) * 12
Cells(32, 4) = Cells(32, 3) * 12

 

Featured Replies

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.