Home Excel - Dicas Microsoft Excel VBA Excel VBA - Celulas Excel planilha vba celulas seleciona celulas usando instrucao select case

Excel planilha vba celulas seleciona celulas usando instrucao select case

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Qua, 10 de Agosto de 2011 08:17  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje614
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32669
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9911
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432740
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA