Excel planilha vba deletar dados planilhas celulas nomeadas

Qui, 20 de Outubro de 2011 17:07 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

E
sses 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.




   Baixe o exemplo de planilha contendo os macros com renomeção de células de acima.
Excel planilha vba deletar dados planilhas celulas nomeadas (102.66 KB)

Tags:
Última atualização em Qui, 20 de Outubro de 2011 17:37