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

Escola Saberexcel VBA Estudos -  o site de quem precisa aprender macros microsoft excel VBA

Esse macro do Aplicativo Microsoft Excel VBA, seleciona determinada célula,  seleciona e desloca uma coluna.  Esse tipo de código para deslocar, selecionar, celulas, colunas e linhas,
é o menos conhecido portanto pouco usado, mas é de grande performance e precisão. Espero que gostem do exemplo. Abaixo fiz um exemplo de folha de planilha para ajudá-los.
Não deixe de ver o meu trabalho sobre (Como deslocar e ou selecionar, linhas, colunas e células em qualquer direção e também qualquer folha de planilha), matéria de extrema necessidade de conhecimento para quem deseja aprender programar.  (baixe o exemplo de planilha no final da página)
Espero que gostem do Exemplo. Fiquem com Deus, Expedito Marcondes.

' - - - - - - - - - - - - - - - - - - - - - - - - -
'maneira pouco usada.
'na mesma linha selecionando a célula A500  
Sub sbx1_seleciona_celula_a500()
 sba_mostrar_macro_1
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(1)(1).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando uma linha abaixo e selecionando a célula A501
Sub sbx2_seleciona_celula_A501()
 sba_mostrar_macro_2
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(1)(2).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando duas linha abaixo e selecionando a célula A502
Sub sbx3_seleciona_celula_A502()
 sba_mostrar_macro_3
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(1)(3).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando duas linha abaixo e selecionando a célula A503
Sub sbx4_seleciona_celula_A503()
 sba_mostrar_macro_4
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(1)(4).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna na linha 500
Sub sbx5_seleciona_ultima_coluna_linha_500()
 sba_mostrar_macro_5
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(2)(1).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca uma linha abaixo na linha 501
Sub sbx6_seleciona_ultima_coluna_linha_501()
 sba_mostrar_macro_6
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(2)(2).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca duas linha abaixo na linha 502
Sub sbx7_seleciona_ultima_coluna_linha502()
 sba_mostrar_macro_7
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(2)(3).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca duas linha abaixo na linha 503
Sub sbx8_seleciona_ultima_coluna_linha503()
 sba_mostrar_macro_8
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(2)(4).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a ultima célula na coluna(B)
Sub sbx9_seleciona_ultima_celula_usada_colB()
 sba_mostrar_macro_9
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(1).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a proxima célula em branco coluna(B) --depois da última celula usada
Sub sbx10_seleciona_ultima_proxima_vazia_colB()
 sba_mostrar_macro_10
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(2).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a segunda célula em branco coluna(B) -depois da última celula usada
Sub sbx11_seleciona_segunda_em_branco()
 sba_mostrar_macro_11
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(3).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a terceira célula em branco coluna(B) -depois da última celula usada
Sub sbx12_seleciona_terceira_em_branco()
 sba_mostrar_macro_12
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(4).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a quarta célula em branco coluna(B) -depois da última celula usada
Sub sbx13_seleciona_quarta_em_branco()
 sba_mostrar_macro_13
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(5).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a quinta célula em branco coluna(B) -depois da última celula usada
Sub sbx14_seleciona_quinta_em_branco()
 sba_mostrar_macro_14
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(3)(6).Select
  MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a última celula coluna(B)
Sub sbx15_seleciona_ultima_celula_colB()
 sba_mostrar_macro_15
 MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
 [B500].End(4)(1).Select
 MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
 [c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
VEJA BEM, caso voce interesse pelo modo com que mostrei as imagens das mensagem e macros (shapes) na folha de planilha, abaixo os macros que usei,
uso bastante esse macro em minhas lições para mostrar os passos desejeados e outras aplicações interessantes.
Espero que gostem do exemplo
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Ocultará todos os shapes que inicia-se com o nome txt,   ex: txt1,txt,2,.......
Sub Oculta_Shapes()
 For i = 1 To 60
 On Error Resume Next
  With ActiveSheet
      .Shapes("texto" & i).Visible = False
      .Shapes("saber" & i).Visible = False
  End With
 Next
[A1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_1()
 Oculta_Shapes
 Saber1.Shapes("saber1").Visible = True
 Saber1.Shapes("texto1").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_2()
 Oculta_Shapes
 Saber1.Shapes("saber2").Visible = True
 Saber1.Shapes("texto2").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_3()
 Oculta_Shapes
 Saber1.Shapes("saber3").Visible = True
 Saber1.Shapes("texto3").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_4()
 Oculta_Shapes
 Saber1.Shapes("saber4").Visible = True
 Saber1.Shapes("texto4").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_5()
 Oculta_Shapes
 Saber1.Shapes("saber5").Visible = True
 Saber1.Shapes("texto5").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_6()
 Oculta_Shapes
 Saber1.Shapes("saber6").Visible = True
 Saber1.Shapes("texto6").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_7()
 Oculta_Shapes
 Saber1.Shapes("saber7").Visible = True
 Saber1.Shapes("texto7").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_8()
 Oculta_Shapes
 Saber1.Shapes("saber8").Visible = True
 Saber1.Shapes("texto8").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_9()
 Oculta_Shapes
 Saber1.Shapes("saber9").Visible = True
 Saber1.Shapes("texto9").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_10()
 Oculta_Shapes
 Saber1.Shapes("saber10").Visible = True
 Saber1.Shapes("texto10").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_11()
 Oculta_Shapes
 Saber1.Shapes("saber11").Visible = True
 Saber1.Shapes("texto11").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_12()
 Oculta_Shapes
 Saber1.Shapes("saber12").Visible = True
 Saber1.Shapes("texto12").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_13()
 Oculta_Shapes
 Saber1.Shapes("saber13").Visible = True
 Saber1.Shapes("texto13").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_14()
 Oculta_Shapes
 Saber1.Shapes("saber14").Visible = True
 Saber1.Shapes("texto14").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_15()
 Oculta_Shapes
 Saber1.Shapes("saber15").Visible = True
 Saber1.Shapes("texto15").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




   Baixe o exemplo de planilha contendo os macros acima.
Excel planilha vba selecionar deslocando celulas linhas colunas (355.62 KB)