Compumakro

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

JassallBcn, muchísimas gracias. Perfecto....!!

Hola

Amigos de Excel. El cao es: La celda A3 de la hoja CUOTAS, toma el valor de otra celda E56 de la hoja ADMINISTRACION. (Mismo Libro) Está así ahora: =ADMINISTRACION!E56 Esa simple fórmula quiero pasarla a VBA. _______________________________________________________________________________________________________________ Consulté a PILOT y me dio el siguiente código como Macro. El problema es que cuando cambia cifra, tengo que ejecutar la macro. (CopiarValor). No quiero así. Lo quiero automático Gracias anticipadas por su cooperación Sub CopiarValor() Dim Libro As Workbook Dim HojaCuotas As Worksheet Dim HojaAdmin As Worksheet ' Establece el libro activo (el mismo libro en este caso) Set Libro = ActiveWorkbook ' Establece las hojas de trabajo Set HojaCuotas = Libro.Sheets("CUOTAS") Set HojaAdmin = Libro.Sheets("ADMINISTRACION") ' Copia el valor de E56 en la celda A3 HojaCuotas.Range("A3").Value = HojaAdmin.Range("E56").Value End Sub

Muchas gracias a todos, quienes me hicieron su aporte. Conclusión:

Gracias Torquemada. Lo cambié, pero me dio un disparate.... muchos ceros. Y en el cuadro de contenido no muestra el número real que está en la celda B7 Otro procedimiento...? Saludos

Amigos de Excel Porqué se altera la cifra en Excel...? Yo digito, o pego una cifra, ejemplo: 5236598412574 Y se convierte en 9,40010820549849E+21 Ahí pierdo la información Qué tengo que hacer para evitar eso...? Gracias y saludos