Saberexcel - site das macros

Esta macro do Aplicativo Microsoft Excel VBA, deleta os dados de uma determinada folha de planilha a partir de uma data específica, contém um Loop (laço) que verifica a próxima linha e deleta dados enquanto houver dados.

Sub procura_data_inicial_deleta_restante()
SABEREXCEL = InputBox("Digite a data no formato dd/mm/aaaa - " & Range("M5"), "Saberexcel - site das macros")
If SABEREXCEL <> "" Then

On Error Resume Next
[A:A].Find(What:=CDate(SABEREXCEL), LookIn:=xlValues).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(1, 0).Select
Loop
If Err <> 0 Then MsgBox "Data nao encontrada!" 'se nao encontrar a data fornecida retorna msg

End If
End Sub

Sub copiar_valores_teste()
Range("M5:N28").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
Range("D3").Select
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

 
   08:55:14
Excel planilha vba loop deletar dados apos determinada data (27.18 kB)



Publicidade:
Compre com qualidade, garantia e preços baixos nas lojas SubMarino