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