Visual Basic Chamar macro por constante

Aron Gerd Ristow Filho · 3 de setembro de 2020

Boa tarde meus nobres clérigos,

estou com o seguinte empecilho em meu projeto de automação da cobrança nos atrasos de entrega de componentes, em resumo eu criei uma constante chamada "a" da qual ela é o texto selecionado dentro da combobox, logo a = combobox1.text, até aí tudo bem, mil maravilhas.

O problema está quando eu tento chamar a macro com os emails para cada fornecedor separado, como por exemplo tenho o fornecedor a,b,c,d.. e cada um tem sua macro, pois cada um tem seus destinatários, copiados e mensagens diferentes.

chegando ao problema eu queria que "call"asse a macro, pelo nome do fornecedor que eu selecionei na combobox, se for possível, desde já agradeço por todas as dúvidas por vocês sanadas.

Private Sub CommandButton1_Click()

col = 5
col2 = 3

a = ComboBox1.Text

While Sheets(a).Cells(2, col2) <> ""

If Sheets("Dashboard").Cells(2, 1) = Sheets(a).Cells(2, col2) Then
    Label8 = Sheets(a).Cells(55, col2)
        End If
            col2 = col2 + 1
                Wend

While Sheets(a).Cells(1, col) <> ""

If Sheets("Dashboard").Cells(1, 1) = Sheets(a).Cells(1, col) Then
    Label1 = Sheets(a).Cells(57, col)
    Label4 = Sheets(a).Cells(58, col)
    Label5 = Sheets(a).Cells(59, col)
        End If
            col = col + 5
                Wend

End Sub

Private Sub CommandButton2_Click()

Dim a As String

a = ComboBox1.Text

    Call a

End Sub