Encontre texto e copie para outra pasta - excel, vba, excel-vba

Eu tenho um arquivo de log que eu importei para o Excele eu filtrei Col C com base em um critério. Agora quero pesquisar no Col E por "TRUE". Para cada instância de "TRUE", quero selecionar as linhas acima para Col D, E até encontrar uma célula vazia na Col E, copiá-las e colá-las em uma nova planilha na mesma pasta de trabalho.

Conforme a imagem acima, eu quero copiar as linhas 9 para 1 na planilha1 e ignorar copiando linhas 20 a 10 (porque Col E tem falso) e copie as linhas 31 a 21 na planilha2.

Respostas:

Você pode usar .areas

Este é um caso difícil se você não tem experiência VBA e não sabe o que procurar. Aqui está uma vantagem, com base na imagem que você forneceu eu vim com isso.

Sub DoIt()
Dim sh As Worksheet, ws As Worksheet
Dim RangeArea As Range, c As Range

Set sh = ActiveSheet
Application.ScreenUpdating = 0

With sh
For Each RangeArea In .Columns("E").SpecialCells(xlCellTypeConstants, 23).Areas
Set c = RangeArea.Find(what:="TRUE", lookat:=xlWhole)
If Not c Is Nothing Then
RangeArea.EntireRow.Copy
Sheets.Add
ActiveSheet.Paste
Else
End If
.Select
Next RangeArea
End With
Application.CutCopyMode = 0
End Sub