Macro para criar pasta com valor de célula caso não exista

[Alex Ponstein]

Bom dia.

 

Preciso de uma macro que crie uma pasta dentro da pasta "orçamento", por exemplo, com o valor da célula "B7" e o valor da célula "E30" juntos.

Dentro dessa pasta preciso que crie um arquivo em pdf da planilha com o mesmo nome da pasta criada.

Se a pasta ja existir, salvar o arquivo dentro dela, com o mesmo nome, pois a célula B7 vai conter o nome do produto e a E30 vai mudar automaticamente quando eu ativar a macro.

 

Não sei se consegui ser claro, pois não manjo muito de macro.. mas qualquer coisa é só perguntarem.

Agradeço desde ja galera.

[Mateus Bodanese]

Bom dia, tente usar o comnado SaveAs("aqui vai o endereço doque voce quer salar").pdf

 

Exemplo

Range("A2).value = "teste"

saveAs(c:\\meus documentos\)

[Alex Ponstein]

Não é bem isso que quero. tirei um print para explicar melhor.

 

Essa é a planilha que quero salvar em PDF. Na hora de salvar, ela deve salvar com o nome que está na célula B7, "Tela Redonda", e o valor da célula C30, "1". No caso o arquivo deve ficar "Tela Redonda 1".

 

Vou aplicar a macro no botão "salvar", que está do lado direito da planilha. Ao clicar no botão, deve criar uma pasta no caminho "P:Orçamentos" com o nome "Tela Redonda 1", e dentro dessa pasta salvar o arquivo em PDF. Depois disso, muda automaticamento o nº do orçamento,célula C30, para 2. Porque se caso houver alguma alteração no orçamento eu possa salvar um novo arquivo, "Tela Redonda 2", com as novas informações, e ainda terei as informações do primeiro orçamento para fazer um comparativo.

 

Se eu mudar o nome para Tela Quadrada, ao clicar no botão salvar ela vai criar a pasta "Tela Quadrada" no caminho "P:Orçamentos", e fazer todas as mesmas coisas que citei anteriormente. 

[Mateus Bodanese]

Bom tente criar uma variável que recebe o valor da B7 assim na hora de você dar o saveas você coloca a variável concatenada. Pelo o que eu entendi seria isso.

[Alex Ponstein]

e a parte de criar a pasta entra aonde?