Excel Transferir dados entre planilhas na pasta de trabalho

[josequali]

Bom dia! Tenho a seguinte situação

 

Tenho duas planilhas em uma pasta de trabalho nomeadas como Planilha1 e Planilha2. Gostaria de saber como automatizar uma macro para transferir da planilha1 para a planilha 2 respeitando o seguinte critério:

 

- Se na coluna STATUS tiver a informação "Realizado todas as informações da linha devem ser transferidas para a planilha2.

- As informações que foram transferidas para a planilha2 devem ser apagadas da planilha1

- As informações que ficarem na Planilha1 devem ser reorganizadas (apagados os espaços em vazio).

- A macro deve ser habilitada com o botão transferir dados.

 

Segue em anexo o modelo de planilha.

 

@Midori @Basole

 

Modelo de planilha teste.rar

[Midori]

@josequali Veja se assim resolve.

 

Sub CopiaTabela()
    Dim A As ListObject
    Dim B As ListObject
    
    Set A = [Tabela1].ListObject
    Set B = [Tabela15].ListObject
    
    Call A.Range.AutoFilter(Field:=13, Criteria1:="Realizado")
    
    If A.Range.SpecialCells(xlCellTypeVisible).Count <> A.Range.Columns.Count Then
        If A.AutoFilter.FilterMode = True Then
            A.DataBodyRange.Copy
            If B.ListRows.Count = 0 Then
                B.Range(2, 1).PasteSpecial
            Else
                B.Range(B.ListRows.Count + 2, 1).PasteSpecial
            End If
            A.DataBodyRange.EntireRow.Delete
            Call A.Range.AutoFilter(Field:=13)
            MsgBox "Dados transferidos para Planilha2"
        End If
    Else
        Call A.Range.AutoFilter(Field:=13)
    End If
End Sub

 

[josequali]

@Midori Obrigado