Home Excel - Dicas Microsoft Excel VBA Excel VBA - Datas Excel planilha vba datas loop deleta dados anteriores data desejada

Excel planilha vba datas loop deleta dados anteriores data desejada

E-mail Imprimir PDF

Saberexcel - site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletará todos os dados após determinada data,
um Loop(laço) identificará a primeira data e deletará os dados anteriores à determinada data.
Essa data será determinada por meio de uma entrada de dados (InputBox)

Essa macro rola a tela até a data de hoje
vamos montar o exemplo copie os dados acima e cole na celula A1 na abertura do wkb
rolará a tela e selecionará a primeira célula com a data de hoje()

Sub auto_open()
  p = Application.Match(CDbl(Date), [A1:A100], 1)
  Application.Goto [A1].Offset(p - 1 + IIf(Cells(p, 1) = Date, 0, 1)), scroll:=True
End Sub

Sub localizar_data_hoje()
   On Error Resume Next
  Sb = Application.Match(CDbl(Date) - 1, [A1:A100], 1)  'deletará data hoje -1
  Application.Goto [A1].Offset(Sb - 1 + IIf(Cells(Sb, 1) = Date, 0, 1)), scroll:=True
 
  ActiveCell.Select
  ActiveCell.Offset(-1, 0).Select
  Do While IsEmpty(ActiveCell.Offset(0, 0)) = False 'faça enquanto houver dados na coluna(A)
     ActiveCell.Value = ""
     ActiveCell.Offset(0, 1).Value = ""
     ActiveCell.Offset(0, 2).Value = ""
     ActiveCell.Offset(0, 3).Value = ""
     ActiveCell.Offset(0, 4).Value = ""
     ActiveCell.Offset(-1, 0).Select
   Loop
   '  If Err <> 0 Then MsgBox "Data nao encontrada!"
End Sub

Sub Deletar_selecao()
   For i = [A65000].End(xlUp).Row To 1 Step -1
      If Application.CountA(Rows(i)) = 0 Then
         Rows(i).Delete
      End If
   Next i
End Sub


Sub Macro1()
    Range("L1:L16").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2").Activate
    'SendKeys ("{Esc}")
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 contendo os macros e acima
Excel vba datas loop deleta dados anteriores data desejada (33.66 KB)

Última atualização em Sáb, 13 de Agosto de 2011 17:36  

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_counterHoje572
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32627
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9869
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432698
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