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
|