BUSCAR PASTA

[tiagoljr]

Olá pessoal
Consegui montar um sistema de busca de arquivos no VBA porem não consigo criar um sistema que tenha esta rotina:
1- Reconhecer termos em duas células A1=CRL B1=290
2-Retorna Concatenado = CRL 290
3 Busca em um disco ou pasta: "Abre janela perguntando o o local"
4-Retorna "pasta Inexistente" "Pasta Vazia" "Pasta Com Arquivos"

Se alguém puder me ajudar agradeço.

[Wagner Morel]

tiagoljr,

Boa tarde!

Não sei se entendi corretamente mas... vamos lá:
1 e 2 - Seria algo assim para colocar o resultado em C1 da aba chamada Plan1:

Código: Selecionar todos

Sheets("Plan1").Range("C1").Value = Sheets("Plan1").Range("A1").Value & " " & Sheets("Plan1").Range("B1").Value

3 e 4 - Seria algo assim para abrir a caixa de diálogo de procura de pastas e arquivos:

Código: Selecionar todos

    Dim Arquivo As String
    Arquivo = Application.Dialogs(xlDialogOpen).Show