Este fórum está sendo desativado

[lucianol]

Olá caros!
Estou utilizando uma macro para criar pasta e salvar, porém gostaria que fosse criado também a subpasta, quando for detectado que não existe nem a pasta, nem a subpasta, e, em seguida salvar o arquivo.
Segue abaixo a rotina utilizada:

Sub CriarPasta()

' Criar Pasta de Armazenamento
'
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "C:\Users\Luciano\Documents\Excel\Envio email\Teste Salvar"
: ActiveWorkbook.SaveAs FileName:=Range("B1").Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [B1].Value & ".xlsm"
End Sub

B1 é a célula onde especifico o nome do arquivo que varia de acordo com a modalidade de orçamento que faço, se Elétrica, Civil, Serralheria, Pintura..para cada modalidade atribuo uma sigla, exe: ELE010, CIV023, SER035...e assim por diante.

Espero ter conseguido esclarecer bem minha dúvida para uma possível ajuda.

Grato

Luciano

[mprudencio]

Criar a pasta nao é o problema, precisa saber o nome da pasta a ser criada.

Os mesmos valem para as Subpastas

Pessoalmente como vc so cria as pastas e subpastas apenas 1 vez por mes eu ja deixaria as pastas criadas no local correto.

Acho que o principal ajuste é no local onde salvar. Mas para isso é preciso responder as perguntas acima.

[lucianol]

Criar a pasta nao é o problema, precisa saber o nome da pasta a ser criada.

Os mesmos valem para as Subpastas

Pessoalmente como vc so cria as pastas e subpastas apenas 1 vez por mes eu ja deixaria as pastas criadas no local correto.

Acho que o principal ajuste é no local onde salvar. Mas para isso é preciso responder as perguntas acima.

Caro "MPrudencio".
Obrigado pela atenção. Porém, creio que não cosnegui explicar exatamente o que estou tentando fazer.
Estou enviando anexo o arquivo específico com comentários a respeito do que estou tentando fazer.
Mas o que ocorre é o seguinte.
Eu já terei uma pasta chamada ORÇAMENTO e dentro dela vou fazer todas as gravações dos demais arquivos.
Ao salvar o arquivo, preciso de uma rotina que crie com o nome do cliente célula "C10", em seguida que seja criado outra pasta com o nome da cel "C12" que será variável, dependendo da modalidade que for escolhida na caixa de listagem, e por último o nome do arquivo que será o conteúdo que será uma concatenação das células "J13" e "K13".
Então, a estrutura ficará da seguinte forma:
C:\Orçamento\"Nome Cliente C10\C12\J13&&K13&.

Espero assim ter deixado mais esclarecido o que estou tentando.

Grato pela ajuda.

Luciano