Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 20/10/2011 |
Modificado em: | 20/10/2011 |
Tamanho: | Vazio |
Downloads: | 995 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Esses macros do Aplicativo Microsoft Excel VBA, deletam determinados intervalos de células renomeadas na folha de planilha, aqui neste exemplo usaremos as folhas de planilhas como meses "Janeiro", "Fevereiro", "Março", "Abril", os macros deletarão todos dados de todas as folhas de planilhas
e também copiará os dados das folhas de planilhas para os Range Nomeados Correspondentes.
Sub sbx_deletar_todos_dados()
Dim Resposta As String
Resposta = MsgBox("Deseja apagar todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = 6 Then
sbJan.[sbx_jan].Clear 'observem que estou trabalhando somente com intervalo de células renomeados.
sbFev.[sbx_fev].Clear
sbMar.[sbx_mar].Clear
sbMar.[sbx_abr].Clear
MsgBox ("Todas as folhas de planilhas foram apagadas"), vbInformation, "Saberexcel - o site das macros"
Else
MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
End If
sbJan.Select
End Sub
Sub sbx_copiar_para_teste()
Dim Resposta As String
Resposta = MsgBox("Deseja copiar todos os dados para todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = 6 Then
[Jan].Copy [j] 'observe que estamos trabalhando com intervalo de células renomeados.
[Fev].Copy [f]
[Mar].Copy [m]
[Abr].Copy [a]
Else
MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
End If
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.
Adicionado em: | 15/11/2011 |
Modificado em: | 15/11/2011 |
Tamanho: | Vazio |
Downloads: | 980 |
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.
.
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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