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