Berlanda, poderia ser mais expecifica.

De que tipo de DropDown estamos falando ? Add em UserFom, ou inserido em uma Aba atraves do Controle Formulário ?

Qual ação quer que seja realizada ? Quando se aciona o DropDown ?
Você diz que tem uma rotina para limpar aTabela, mas o drop-down não acontece nada ? Você quer Limpar o conteúdo do DropDown ?

Supondo que o Controle DropDown está na Plan1 :
As rotinas abaixo, uma preenche com os dados que estão na no Range (A1:A10) e a outra Limpa o DropDown :

Sub CriaListaDropDown()
    'Define o range para preenchimento
    Sheets(1).Shapes("Drop-down 3").ControlFormat.ListFillRange = "Plan1!$A$1:$A$10"
End Sub

Sub LimpaListaDropDown()
    'Limpa o DropDown
    Sheets(1).Shapes("Drop-down 3").ControlFormat.ListFillRange = ""
End Sub

Se não for isto, favor detalhar melhor.

[]s

Esta tudo em uma planilha só, um exemplo é os clientes, eu seleciono o cliente, fecho o pedido, criei um macro para que limpasse a tela que eu preciso, mas o drop-down não muda, está em anexo a planilha, se puder dê uma olhada.

Berlanda, troque sua rotina Limpar pela a abaixo :

Sub Limpar()

Sheets("PEDIDO").Range("G12:H31").ClearContents

Sheets("PRODUTOS").Range("A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1").ClearContents
   
End Sub

Não precisamos selecionar a célula antes e depois Limpar, é só referenciar diretamente na rotina.

Qualquer duvida retorne.

[]s

Valeu, muito obrigado mesmo.

Boa noite Berlanda
Com esta macro que o Mauro enviou , como volta o pedido apagado com todas as linha sem branco no corpo ou aparece #N/D?
Estou precisando algo parecido.

Proeletrica, não sei se entendi, mas para não retornar

altere a formula em "I12" para :
=SE(PRODUTOS!A1="";"";PROC(PRODUTOS!A1;PRODUTOS!A1:D50;PRODUTOS!C1:C50))

Se for isto, é só ajustar as demais.

[]s

Bom dia Mauro
Alterei a formula em I12, funcionou legal. Mas a coluna J , retorna com #N/D após apagar.
abraços

Bom dia Mauro
Alterei a formula em I12, funcionou legal. Mas a coluna J , retorna com #N/D após apagar.
abraços

Pro, como eu citei, ajustei somente em uma celula, para as demais terá que ajustar todas as formulas, veja que cada uma se refere a um Range diferente :
Range("A1,F1,K1,P1,U1,Z1,AE1,AJ1,AO1,AT1,AY1,BD1,BI1,BN1,BS1,BX1,CC1,CH1,CM1,CR1")

[]s

Na planilha os itens "clientes" e "Transportador" são itens obrigatórios, e automaticamente quando eu seleciono, a expressão #N/D, ela some, agora para os produtos, como eles não são obrigatórios, eu usei a fórmula =SE, e deu certo.
Tenho uma nova pergunta, inseri uma caixa de texto no final da planilha, mas quero saber o código dela no visual basic, para ela voltar a ter a expressão "digite aqui".
Segue em anexo a planilha, se puder dê uma olhada.

[Resolvido]

Boa noite!!

Veja como marcar seu tópico como resolvido!!

Em..viewtopic.php?f=7&t=3784
Para manter o fórum organizado faça como tal, brigado!!!
Att

Só não aprendi a compactar. poderia me mostrar e o porque?