Como limpar apenas os dados de várias planilhas do Excel depois de copiar usando o VBA

0

Eu sou novo no VBA e tenho algum código para transferir dados de várias planilhas para uma planilha mestre. Isso funciona bem, mas no final preciso limpar os dados dos dias de cada uma das planilhas para que os dados possam ser transferidos novamente no dia seguinte sem duplicação. Existe algo simples que eu possa adicionar ao final do meu script para limpar todos os dados que acabei de transferir? Qualquer ajuda seria muito apreciada

Aqui está o meu script até agora:

Sub LoopThroughDirectory()

Dim MyFile As String
Dim erow
Dim Filepath As String

Filepath = "C:\Users\Guy\Desktop\nichola\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
    If MyFile = "ZMASTER.xlsm" Then
    Exit Sub
    End If

    Workbooks.Open (Filepath & MyFile)
    Range("A2:E25").Copy
    ActiveWorkbook.Close

    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 5))

    MyFile = Dir
Loop
End Sub
    
por Nix 06.05.2015 / 21:25

0 respostas