Hola Maku.
Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁
Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo
Por
DiegoPC, · publicado
Buenas tardes, perfecto la macro que me ha ayudado Riddle :
Sub Imprimir_Vistaprevia_seleccion()
'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.Orientation = xlLandscape 'xlPortrait es vertical xlLandscape es horizontal
.PaperSize = xlPaperA5 'formato A5
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = 1 'centrar horizontalmente
.CenterVertically = 1 'centrar verticalmente
End With
Selection.PrintPreview
End Sub
una vez configurada en tamaño, doy a imprimir y perfecto.
Pero necesito la alternativa de guardarlo en Pdf. para mandarlo por correo esa misma seleccion:
en = G:\Factura\Pedidos\Wakonda
con el nombre = Range("B333").Select