Esse procediemento e macros do Aplicativo Microsoft Excel VBA, chamam uma determinada macro quando seleciona uma célula específica na folha de planilha, observe que o evento selection change foi usado, (ao selecionar)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address() = "$D$12" Then Minha_Macro1
If ActiveCell.Address() = "$D$15" Then Minha_Macro2
If ActiveCell.Address() = "$D$18" Then Minha_Macro3
If ActiveCell.Address() = "$I$12" Then ver_codigo
If ActiveCell.Address() = "$K$2" Then ocultar_codigo
End Sub

Sub Minha_Macro1()
MsgBox ("Esta macro chama a Macro Minha_Macro1"), vbInformation, "Saberexcel.com - Minha_Macro1"
End Sub

Sub Minha_Macro2()
MsgBox "Esta celula chama a macro Minha_Macro2!", vbExclamation, "Excel VBA Estudos® - Minha_Macro2"
End Sub

Sub Minha_Macro3()
MsgBox "Minha_Macro3 é chamada ao selecionar a celula C18", vbInformation, "Saberexcel.com - Minha_Macro3"
End Sub

Sub ver_codigo()
Sheets("Plan1").Shapes("cod").Visible = True
End Sub

Sub ocultar_codigo()
If Sheets("Plan1").Shapes("cod").Visible = False Then
MsgBox "Shapes oculto - tem que torná-lo visível primeiro!", vbCritical, "Saberexcel.com"
Else
Sheets("Plan1").Shapes("cod").Visible = False
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, desloca celulas baseados em valores de variáveis, atribuidos para linhas e colunas,
observe que para um melhor entendimento usei uma operação matematica (linha-1) .
Exemplo selecionará celula (L10) - uma linha = ( L9)

Sub deslocando_para_celula()

Dim AR As Integer
Dim AC As Integer

AR = 10 'Linha 10
AC = 12 'coluna 12

Cells(AR - 1, AC).Select

End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com os produtos didáticos Saberexcel

Essas macros do Aplicativo Microsoft Excel VBA, desloca células à direita e ou a esquerda usando a propriedade OffSetEssa macro descola duas linhas acima da célula ativa observe que usamos duas variáveis para referenciar a posição das linhas e ou colunas.
Observe usaremos os nomes para variaveis 'Linha' e 'Coluna'
E se usassemos um nome qualquer para a variável como "jilo" e "jurubeba", tanto faz, pode escolher qualquer nome, desde que não seja nomes que entrem em conflito com o escopo do Visual Basic, ex: if, set, then, etc..

Sub variavel_selecionar_celulas()
On Error GoTo fim:
Linha = -2
Coluna = 0
ActiveCell.Offset(Linha, Coluna).Select

mostrar_texto1
[D17].Value = "Propriedade OffSet desloca 2 células acima"
[D18].Value = ""
Exit Sub
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

'observe que Jurubeba representa as linhas e gilo as colunas.
Sub variavel_vegetal()
On Error GoTo fim:
Jurubeba = -2
Jilo = 0
ActiveCell.Offset(Jurubeba, Jilo).Select

mostrar_texto2
[D17].Value = "Veja que é a mesma macro, desloca duas células acima, mas eu nomeei essa variavel, "
[D18].Value = "como Jurubeba e Jilo, para você perceber que variável pode ter um nome qualquer"
Exit Sub 'aqui inserimos exit sub, se houver espaço sai da macro, senão vai para o erro diretamente
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

'e se caso eu invertesse a posição das variáveis,
'dentro do parentese, observe que Jilo ficou reprensentando
'as linhas e jurubeba as colunas
'porque: veja Activecell.Offset(Linha, Coluna).select

Sub variavel_vegetal_II()
On Error GoTo fim: ' se caso voce for executando até estorar o limite(coluna(A))
Jurubeba = -2
Jilo = 0
ActiveCell.Offset(Jilo, Jurubeba).Select

mostrar_texto3
[D17].Value = "veja que inverti, a ordem de linha e coluna, observe a ação do da propriedade offset(desloc) "
[D18].Value = "Vai deslocar duas células a esquerda"
Exit Sub 'aqui inserimos exit sub, se houver espaço sai da macro, senão vai para o erro diretamente
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

Aprenda tudo sobre Microsoft Excel VBA - com Saberexcel

Saberexcel_site_das_macros
Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, auxliada por um procedimento inserido na folha de código da folha de planilha usando Evento Worksheet_Change(ao digitar), ao digitar determinado número na Célula(B5) a Instrução Select Case chama uma determinada macro correspondente ao número digitado. Observe que voce poderá usar para outras aplicações, podendo chamar outro tipo de macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5]) Is Nothing And Target.Count = 1 Then
Select Case Target.Value
Case 1
ir_AA1
Case 2
ir_BX2005
Case 3
ir_CJ45000
Case 4
ir_DK32265
Case 5
ir_FY60000
Case 6
ir_GB12100
Case 7
ir_HR2100
Case 8
ir_GP16790
Case 9
ir_IV65436
Case Else
Exit Sub
End Select
End If
End Sub

ir_AA1
Application.Goto Reference:=Worksheets("Plan1").Range("A154"), Scroll:=True
se desejar ir para outra planilha
Sub voltar()
Application.Goto Reference:=Worksheets("Plan1").Range("A1"), Scroll:=True
' se desejar ir para outra planilha
End Sub

Sub ir_AA1() '1
Application.Goto Reference:=Worksheets("Plan2").Range("AA1000"), Scroll:=True
MsgBox "Aqui insira o código referente area " & Worksheets("Plan1").Range("b5").Value
End Sub

Sub ir_BX2005() '2
Application.Goto Reference:=[BX2005], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_CJ45000() '3
Application.Goto Reference:=[CJ45000], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_DK32265() '4
Application.Goto Reference:=[DK32265], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_FY60000() '5
Application.Goto Reference:=[FY60000], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_GB12100() '6
Application.Goto Reference:=[GB12100], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_HR2100() '7
Application.Goto Reference:=[HR2100], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_GP16790() '8
Application.Goto Reference:=[GP16790], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_IV65436() '9
Application.Goto Reference:=[IV65436], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Essse exemplo do Aplicativo Microsoft Excel VBA, contém macro que utilizando da Instrução Select Case, seleciona determinada células na folha de planilha e em seguida abre uma caixa de diálogo, (existem centenas de caixas de diálogo), e insere nas Células[C3] e [C4], o número do botão que foi executado como também a célula que foi selecionada pela instrução Select Case . Detalhe, observe que todos os shapes(Autoformas) que representam os botões , botão1, botão2, foram antecipadamente renomeados observem na caixa de nome.


Option Explicit

Sub Seleciona_celula_mostra_FC()
Select Case Application.Caller
Case "botao1"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão 1"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao2"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [2]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao3"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [3]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao4"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão [4] "
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao5"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [5]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao6"
Range("E2").Select
[C3].Value = "Voce Acionou o Botão [6]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao7"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [7]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao8"
Range("G2").Select
End Select
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Aprenda tudo sobre o Aplicativo Microsoft VBA com SaberExcel