Este fórum está sendo desativado

[Santana90]

Pessoal, boa noite!

Já tentei de várias formas, mas sem sucesso...
Tenho a seguinte necessidade, ao selecionar um valor na caixa de seleção apaga um determinado Range, até ai consigo resolver o problema com o Select Case, mas quero chamar (Call) outra macro na sequência que consta no módulo 2, é possível?

Anexo arquivo de exemplo para facilitar o entendimento.

Abraço

[gfranco]

Bom dia.
Utilize o "call" para chamar a macro.

[Santana90]

boa tarde, gfranco
Inseri o "call" mas dá erro na sub ao executar.

[osvaldomp]

Worksheets("ab").Range("E2").ClearContents: mgs
Case "B"
Worksheets("ab").Range("F2").ClearContents: mgs

ou

Código: Selecionar todos

Sub TesteV2()
 Select Case [C2]
  Case "A": [E2] = "": mgs
  Case "B": [F2] = "": mgs
  Case Else:   MsgBox "Selecionar a Letra"
 End Select
End Sub

Código: Selecionar todos

Sub TesteV3()
 Select Case [C2]
  Case "A": [E2] = ""
  Case "B": [F2] = ""
  Case Else:   MsgBox "Selecionar a Letra": Exit Sub
 End Select
 mgs
End Sub

[Santana90]

Boa tarde, osvaldomp

Anexo a estrutura do select case e o erro que aparece.

O erro ocorre quando chega no "call" botao...
(Erro do compilação: O argumento não é opcional)

Obrigado!

[lucasExcel]

Vê se essa solução te atende.

[Santana90]

Bom dia, lucasExcel

Em tempo segue a imagem da estrutura do código e do erro.

Mas vou testar a sua solução!

Att,

[lucasExcel]

Não existe a possibilidade de fazer o upload em anexo da planilha ? porque assim poderíamos depurar o código linha por linha e tentar achar onde se encontra ao erro.