| Descricao: |
 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
Publicidade
Compre com segurança, garantia e ótimos preços
|