Luis Mondelo

Utiliza esta sentencia para que se abra un browse y puedas elegir la impresora que desees Application.Dialogs(xlDialogPrinterSetup).Show

Te mando mi solución: Te sitúas en tu hoja panel donde tendrás anotado en la celda C18 el número de copias que quieres. Después solo tienes que ejecutar esta macro y listo. Sub impresion() tope = Range("c18").Value If tope = "" Or tope = 0 Then Exit...

Te mando mi solución. En tu consulta no dices en qué hoja están los datos por lo que he supuesto que están en la hoja1 de cada libro. Primer paso: Tenemos que tener el libro CONTROL CARGOS.XLSX grabado con la información Segundo paso: Abrimos un...

Aver si te vale esto: Por ejemplo en la celda A1 ponemos: R001 Y en la celda B1 ponemos esta fórmula: ="GNRPCS0"&DERECHA(A1;3)

Te mando la solución: En el lugar donde está el primer SI pon es fórmula y cópiala hacia abajo: =SI(CONTAR.SI($F$1:F1;F1)=1;"si";"no") Recuerda finalizar y puntuar

Te mando la solución, sigue mis pasos: Escribe tus datos de ejemplo ocupando el rango J1:K6. La columna J tendrá el encabezado "artículos" y la columna K tendrá el encabezado "valor" Ahora ejecuta esta macro y todo listo Sub acumular()...

Dime tu mail y te mando un ejemplo para que lo adaptes a tu programa

La línea de código que necesitas para averiguar cual es la ultima fila con datos es esta: filalibre = range("a65000").end(xlup).row En este ejemplo tomamos como "columna clave" la columna A y le entregamos el valor a la variable filalibre....

Te mando mi solución: Con esta macro-evento grabada en el objeto hoja1 te controlará los cambios de la celda A1. Si esa celda cambia de valor, lanzará la macro que actualizará TODAS las tablas dinámicas que tengas en tu libro activo. Recuerda que...

Te mando la solución. Ejecuta esta macro y todo listo: Sub hacer_suma() Range("j65000").End(xlUp).Offset(1, 0).Select Final = ActiveCell.Offset(-1, 0).Address ActiveCell.Value = Application.WorksheetFunction.Sum(Range("j1", Final)) With...