Salvando planilha com nome da celula

[Fechado]
Denunciar
-
 usuário anônimo -
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?

1 resposta


Veja as dicas do Kioskea sobre o assunto, espero q encontre o q procura.

https://br.ccm.net/faq/excel-584

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!