Descricao: |
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.
|