Saberexcel - site das macros
Esse procecimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), salva_como determinado livro(workbook) com os nomes atribuidos às células: (D2); (A15); (B13), formando um nome, concatenando os valores desta célula e atribuindo o nome a Salvar_Como:
Neste caso, 'exemplo feito', celulas D2-A15-B13- resulta em: SABEREXCEL_DESCRICAO_FATURA-00092.xls, salvando no Path(Diretorio) ativo.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [D2].Value & "_" & [A15].Value & "_" & [B13].Value & ".xls"
MsgBox ("Planilha Salva Como : ") & [D2].Value & "_" & [A15].Value & "_" & [B13].Value & ".xls" _
, vbInformation, "Saberexcel - site das macros"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo os procedimentos acima.
Excel planilha vba salvar como nome celulas predeterminadas (67.37 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
Comentários
Minha duvida é na hora de anexar este arquivo no email, pois tenho uma planilha de orçamentos e fiz a macro pra salvar como o nome do código, usando este seu vba. Mas qnd vou anexar ao email da erro.
Você teria alguma idéia de como solucionar este problema?
Att
Vou te enviar algumas planilhas exemplos para ajudá-lo.
Caso não for nada disso, explique-me com um exemplo de planilha.
Fique com Deus,
Expedito Marcondes
Assine o RSS dos comentários