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