Este fórum está sendo desativado

[SINESIOML]

Boa Tarde aos colegas

Desejo uma ajuda em uma macro para salvar a planilha, sou seja "salvar como" esta planilha,,,
a macro salvaria com um nome copiado de uma celula e salvaria com uma extenção que tambem tem na célula e o local

agradeço desde já

[alexandrevba]

Boa tarde!!

Tente...

Código: Selecionar todos

Sub AleVBA_3132()
'Não testado
Dim fileName As String

fileName = Range("B2").Value & strClean(Range("B1").Value) & Range("B3").Value
ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Código: Selecionar todos

Function strClean(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Pattern = "[\[\]|\/\\:\*\?""<>]"
    .Global = True
    strClean = .Replace(strIn, vbNullString)
End With

Caso houver algum problema nos testes, tente esse:

Código: Selecionar todos

Sub AleVBA_3132V2()
'http://www.ozgrid.com
    Dim FName           As String
    Dim FPath           As String
    Dim FExtention      As String
    
    FName = ActiveWorkbook.Sheets("Plan1").Range("B1")
    FPath = ActiveWorkbook.Sheets("Plan1").Range("B2")
    FExtention = ActiveWorkbook.Sheets("Plan1").Range("B3")
    ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName & FExtention
     
End Sub

Att

[SINESIOML]

Infelizmente não deu certo amigo

[SINESIOML]

Colega Alexandre deu certo esta ultima macro... do modo que eu queria....muito obrigado....