Una duda en esta macro

Tenia F12 por una Lista desplegable 11 como realizo esta macro
Dim Ruta As String, Nuevonombre As String
Ruta = "D:\Facturas Emitidas\Factura "
Nuevonombre = Ruta & Range("W4") & " "& Range("F12") & ".pdf"
Worksheets("Factura").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nuevonombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

1 Respuesta

Respuesta
1

Reemplaza esta línea

Nuevonombre = Ruta & Range("W4") & " "& Range("F12") & ".pdf"

Por esta

Nuevonombre = Ruta & Range("W4") & " "& ListBox11.value & ".pdf"

Saludos. Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas