Salvando planilha com nome da celula Fechado

Question

Bom dia, 

Estou usando esse código para salvar arquivo já com nome determinado por mim.

Sub Imagem1_Clique()

On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [a16].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [a16].Value & ".xlsm"
End Sub

mas o problema é o seguinte, eu queria que ele salvasse esse "novo" arquivo em xls sem macro, se eu altero o código de xlsm para xls, ao abrir, ele diz que a extensão é diferente, e me da uma opção de abrir, gostaria, de salvar mas que não tivesse mais o macro no outro arquivo que ele salvar e sim apenas os dados que eu coloquei.

alguém me ajuda?

usuário anônimo · Answer

Veja as dicas do Kioskea sobre o assunto, espero q encontre o q procura.

https://br.ccm.net/faq/excel-584

Salvando planilha com nome da celula

1 Respostas

Conversas semelhantes

Assine nossa newsletter!