Excel planilha vba datas loop deleta dados anteriores data desejada

Seg, 21 de Fevereiro de 2011 17:04 Expedito Marcondes
Imprimir

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)

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