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