Saberexcel - o site de quem precisa aprender macros MS Excel VBA

Esses macros usando a instrução Select Case, chama determinada macro de acordo com o nome atribuido ao botão renomeado(Shapes),
objeto botão da barra de formulario do Aplicativo do Excel

Sub sbx_botao_clique()
[D:D].ClearContents
Select Case Application.Caller
       Case "btnUM"
            MsgBox ("Botão 1 - Numeros Pares"), vbInformation, "Escola Saberexcel VBA Estudos®"
            sbx_inserir_autonumeracao_pares
        Case "btnDOIS"
            MsgBox ("Botão DOIS - Numeros Impares"), vbInformation, "Escola Saberexcel VBA Estudos®"
            sbx_inserir_autonumeracao_impares
     End Select
End Sub

Sub sbx_inserir_autonumeracao_pares()
vLinha = 0
[D:D].ClearContents
For vLinha = 0 To 20
    [d45000].End(xlUp).Offset(1, 0).Value = vLinha
    vLinha = vLinha + 1
Next
End Sub

Sub sbx_inserir_autonumeracao_impares()
vLinha = 1
[D:D].ClearContents
For vLinha = [F1].Value To 20 Step 1
    [d45000].End(xlUp).Offset(1, 0).Value = vLinha
    vLinha = vLinha + 1
Next
End Sub

Sub sbx_limpar_teste()
[D:D].ClearContents
[G1].Select
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba botao chama macro case select (86.99 KB)