SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

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(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 Baixe o exemplo de planilha com as macros e procedimentos acima
  Excel planilha celulas seleciona celulas usando instrucao select case (27.98 kB )

Publicidade
Compre com segurança, garantia e ótimos preços