none
nome dinamico com valores de 2 celulas? RRS feed

  • Pergunta

  • ola, estou tentando criar uma macro para salvar arquivos com informações de duas celulas

    uma celula fica a data nesse formato dd mm aa e a outra o nome 

    preciso q o arquivo salvo fique assim: dd mm aa nome

    estou usando o seguinte codigo mas só consigo capturar informação de uma das celulas

    Sub Salvando()
    Dim Nome As String
    Dim SDate As String
    Dim MyLocal As String
    MyLocal = "D:\Documents\samsung\"
    Nome = Range("B9").Value
    SDate = Now
    If Nome <> vbNullString Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
    MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
    Else
    MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
    End If
    End Sub

    domingo, 22 de setembro de 2013 07:44

Respostas

  • Para buscar informações de duas células, concatene a expressão:

    Nome = Range("B9") & " - " & Range("C9")

    Para dar o formato desejado de data, utilize a função Format:

    SDate = Format(Date, "dd mm yy")

    Dica: sugiro que utilize a formatação yy mm dd, pois dessa forma o Windows classificará corretamente por ordem cronológica as pastas de trabalho, e com o formato dd mm yy isso não ocorre.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 22 de setembro de 2013 16:12
    Moderador