| Descricao: |
 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 o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade:
Compre com qualidade, garantia e preços baixos nas lojas SubMarino 
|