acasegra

No entiendo el problema si usas algo así: Range("c9").select selection.copy Range("c10").select ActiveSheet. Paste Al pegar las fórmulas de c9 se actualizan. Solo que si la fila (11)de totales llega suma por ejemple de la fila 1 a la 9 y tu insertas...

En la funcuion que me presentas siempre de tras de la palabra balance existe el espacio en blanco, en Repalcement debes quitarlo

Para eso no hace falta macros basta que uses las fórmulas, te aconsejo que las hagas de la siguiente manera, en la hoja1, en la celda destino te pongas y pulses igual luego con el ratón vallas a la hoja 2 y hagas click en la celda del dato pulses el...

Debes condicionar las fórmulas para que no den na por ejemplo =si (a2>0;a2*7;0)

¿Tienes las hojas de balance en la carpeta abril? Si es así puedes usar una variable y reemplazar marzo por la variabley lo mismo en el balance

Tendrás que sustituir Replacement:="[BALANCE 040309" por algo así Replacement:="[BALANCE"&day(tb.text)& month(tb.text)& year(tb.text) Donde también es el textbox

Cambia tu código por este Sub Botón54_AlHacerClic() If Range("AS41") <> 0 & MsgBox("DISTRIBUCIÓN DE PAYLOAD DIFIERE DE LO MANIFESTADO, Desea Continuar?", vbInformation + vbYesNo, "ATENCIÓN") = vbOK Then Application.ScreenUpdating = False...

Eso se llama validación, Posiciónate en la celda que desees validar y luego haz click en datos validar, y configura se gun lo necesites

If MsgBox("Imrimir?", vbOKCancel, "Aviso") = vbOK Then PrintOut Copies:=3, Preview:=False End If Con este macro se imprime 3 copias cuando de da a ok fíjate porque PrintOut permite más cosas como From y To, ActivePrinter y más...

=SI(B1="";"";mes(B1))