Fazer o macro salvar arquivo com o mesmo nome de uma célula
Enviado: 26 Abr 2018 às 21:38
Boa noite gurizada!
Estou com um problema, tentando a 2 dias fazer minha macro salvar um arquivo com o mesmo nome de uma célula, porém ainda sem sucesso, até agora tudo o que consegui foi fazer isso, mas não resolveu o meu problema(Não entendo nada de VBA).
Estou com um problema, tentando a 2 dias fazer minha macro salvar um arquivo com o mesmo nome de uma célula, porém ainda sem sucesso, até agora tudo o que consegui foi fazer isso, mas não resolveu o meu problema(Não entendo nada de VBA).
Código: Selecionar todos
Eu preciso que ela faça o seguinte, salve o arquivo em extensão pdf, já renomeado com o valor da célula V3, se alguém conseguir me ajudar eu agradeço!!Sub SALVAR_ATÉ_16_MAIS_DE_48_HORAS()
'
' Salvar_16_Mais_de_48 Macro
'
Dim Lista As String
Lista = Worksheets(1).Range("V3")
Sheets("LISTA").Select
Range("A1:AZ35").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AZ$35"
ActiveWindow.SmallScroll Down:=6
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Environ("USERPROFILE") & "\Desktop\" & Lista & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveSheet.PageSetup.PrintArea = ""
Sheets("BASE").Select
End Sub