Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión.
Recibo Inmobiliaria 1.xlsm
Por
dorgelis, · publicado
Buenas tardes
Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150.
Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente:
Sub Inserta_1_F001 ()
Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21")
Sheets("F001").Select
Range("L10").Select
End Sub
Esto lo hago con las macros correspondientes para la 150 hojas .
Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente.
Mi pregunta es: habría alguna forma de crear una macro que haga lo mismo pero desde la hoja activa?
Es decir, que estando en cualquiera de las hojas F, y desde un botón de cada hoja F se llamara a una misma macro para copiar de P01 ?
Lo mismo para P02 y para P03 ?
(Serían 3 macros en vez de 450 en caso de ser posible).
Espero que algún experto me pueda dar alguna solución mejor que la que tengo ahora o me diga que no se puede.
Muchísimas gracias.