Copiar planilha para outra aba, excluindo linhas

Bom dia!

Peço socorro aos mestres.

Tenho uma planilha na qual lanço pautas de reunião.
Nela há uma coluna AC, onde, ao final de cada reunião é preenchido o “status” de cada pauta.
Gostaria de melhorar essa planilha com uma função que a copiasse para outra aba, ou seja, para a reunião seguinte, mas que na caixa pauta fossem copiados apenas as pautas com “status” EM ANDAMENTO e EM ANÁLISE.

Não consigo anexar o arquivo, então, deixo o link para baixa-lo aqui.

Desde já agradeço a ajuda.

scamaru
Boa Tarde!
teste esta macro

Sub Tranportar()
Dim i As Long, lrow As Long

   Application.ScreenUpdating = False
   'Nome da plan a copiar
   With Worksheets("Plan1")
   lrow = .Range("A" & .Rows.Count).End(xlUp).Row
   For i = lrow To 18 Step -1
If .Range("AC" & i).Value = "EM ANDAMENTO" Then
   'Nome plaan colar
   .Rows(i).Copy Worksheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
   .Rows(i).Delete

ElseIf Range(“AC” & i).Value = “EM ANÁLISE” Then
'Nome plaan colar
.Rows(i).Copy Worksheets(“Plan2”).Range(“A” & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i).Delete
End If

Next i
End With
Application.ScreenUpdating = True
End Sub

Olá SPP!

Primeiramente, grato por sua disposição em me ajudar.

Criei um botão para ativar sua macro (correto?), mas ao salvar retorna erro de sintaxe na linha:

ElseIf Range(“AC” & i).Value = “EM ANÁLISE” Then

Alguma sugestão de como tratar o problema?

Confere se o valor EM ANÁLISE esta igual

Mudei as aspas e aceitou a compilação.
No entanto, ao clicar no botão, nada ocorre.

Fiz um exemplo

SPP Copiar Linha para outra plan por ststus.xlsm (26,7,KB)

O exemplo que anexou, faz parcialmente o que necessito.
Está transportando as linhas para a PLAN2 e apagando essas linhas na PLAN1, isso não pode ocorrer.

Preciso que:

  • seja feita um cópia de todo o conteúdo (imagens, textos, estrutura, tudo) da planilha PLAN1 para a PLAN2, sem alterar nada na PLAN1
  • remover da PLAN2 os itens da coluna AC que não forem “Em andamento” e “Em análise”.

scamaru
Retira esta linha do código
.Rows(i).Delete

Obrigado por toda paciência e ajuda.
:slight_smile:

Scamaru
Boa noite!
O importante e ter te ajudado.
Se precisar e só postar para que possamos te ajudar