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

|