Usar valor de celula em caminho para salvar

[Fernando Barbosa]

Boa tarde pessoal. 

Sou novo aqui no clube e também em programação em vba. Estou precisando fazer que o código pegue dentro do seu caminho o valor que esta em uma célula na planilha. para compor o caminho a ser salvo

 

segue código:

 

ActiveWorkbook.SaveAs Filename:="\\server\Database\"Valor da célula"\ PEDIDO- " & Range("r6") & Range("r7") & Range("r8").Value

 

Agradeço a atenção. 

[CasaDoHardware]

Esse valor da celula é o nome da pasta?

 

Tipo o mes de referencia?

[Fernando Barbosa]

Boa noite. 

 

Isso! exatamente. Preciso que o contudo da celula seja o nome da pasta do mês. se na celular estiver fevereiro, ele salva na pasta fevereiro. já tentei muita coisa aqui e sem sucesso. estou começando agora no vba

adicionado 5 minutos depois

@CasaDoHardware

Boa noite. 

 

Isso! exatamente. Preciso que o contudo da celula seja o nome da pasta do mês. se na celular estiver fevereiro, ele salva na pasta fevereiro. já tentei muita coisa aqui e sem sucesso. estou começando agora no vba

[CasaDoHardware]

Sub SalvarPasta()

Dim Arq         As String
Dim Path        As String
Dim SMesExt     As String

Application.ScreenUpdating = False

    Arq = "Relatorio de Compras" & " - " & Format(Date, "DD.MM.YYYY") 'Defina o nome do arquivo
    Path = "C:\Backup"
    SMesExt = Format(Date, "MMMM") ' Troque aqui pela celula que precisa ser salva. 
              
    'Informa o caminho pasta do mes

If Right(Path, 1) <> "\" Then Path = Path & "\" & SMesExt
If Right(Path, 1) <> "\" Then Path = Path & "\"

 

    Arq = Path & Arq & ".xlsx

 

 

 

Application.ScreenUpdating = True

End Sub

[Fernando Barbosa]

Bom dia. 

Obrigado pela atenção. Mas, infelizmente não consegui adaptar o codigo que me enviou no meu projeto. Na verdade acho que não entendi bem ele. Se puder me orientar mais sobre ele. porque aquele que enviei esta funcionando ate  a parte de salvar na pasta de acordo com o que esta escrito na celula Ex: Celula R9. Que estaria escrito "Fevereiro" . seria possivel adaptar dentro deste codigo?

 

ActiveWorkbook.SaveAs Filename:="\\server\Database\"Valor da célula (R9)"\ PEDIDO- " & Range("r6") & Range("r7") & Range("r8").Value

 

Muito obrigado pela sua atenção.

[CasaDoHardware]

Poste o arquivo e o codigo completo. 

[Fernando Barbosa]

bom dia. Segue o projeto e codigo:

Sub Teste()
  
 Sheets("formulario").Copy
 ActiveWorkbook.SaveAs Filename:="\\server\Comercial\DEBORA\DEPTO COMERCIAL\BANCO DADOS\Database\PED-" & Range("i2") & Range("r7") & Range("r6") & Range("r7") & Range("g1") & Range("r7") & Range("r8").Value
 ActiveWorkbook.Close
End Sub

Muito Obrigado

Pedidos.rar