Realizar un userform o formulario parara imprimir

Buenos días Actualmente tengo un archivo de excel que contiene un botón donde tengo grabada una macro para imprimir hasta 100 zonas de ventas, (a continuación anexo una de las macro).

Quisiera tener una tabla (UserForm), donde se listen automáticamente las zonas de ventas que se escriban en una hoja del archivo de excel (que seria la base) y al lado derecho de esa zona contenga una casilla de validación donde yo la pueda seleccionar para que se imprima o no.

Agradeciendo tu colaboración y aporte de ante mano.

Sub Imprimir_Zonas_Inferior_1()
With Application
.Calculation = xlManual
.MaxChange = 0.58
End With
Sheets("RPV").Select
ActiveSheet.PageSetup.PrintArea = "$A$23:$AI$12146"
Range("B2").Select
Application.StatusBar = "Seleccionando Zona"
ActiveCell.FormulaR1C1 = Sheets("Impresión").Range("B4")
Range("D16").Select
Application.StatusBar = Sheets("Impresión").Range("D4")
ActiveSheet.Range("$A$25:$AH$12500").AutoFilter Field:=37, Criteria1:=Sheets("Impresión").Range("B4")
ActiveSheet.Calculate
Application.StatusBar = Sheets("Impresión").Range("D4")
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Añade tu respuesta

Haz clic para o