Galera, me deixa tirar uma dúvida:
Tenha uma planilha com mais de 27000 linhas, contendo inúmeros lançamentos contábeis. Sempre que determinada categoria de lançamento (coluna A) é finalizada, tem um "Total", na coluna D, linha imediatamente inferior à dos lançamentos. Além disso, na coluna
I, msm linha que contém o "Total" escrita na coluna D, há um valor.
Eu gostaria de copiar para uma outra planilha, todos os lançamentos desta categoria, sempre que na coluna D tiver um "Total" escrito e o valor da coluna I for diferente de zero.
Fiz o seguinte:
Sub Copiar()
Dim Ws As Worksheet
Dim backup As Worksheet
Set Ws = ThisWorkbook.Worksheets("lancamentos")
Set backup = ThisWorkbook.Worksheets("recon")
Ws.Activate
If Ws.Cells(17, 4) = "Total" Then
If Ws.Cells(17, 9) <> 0 Then
With Ws
.range("A2:O17").Copy
End With
With backup
.range("A2:O17").PasteSpecial (xlPasteAll)
End With
Else: MsgBox "Nada"
End If
Else: MsgBox "Nada"
End If
End Sub
Obviamente, não deu certo. Pq declarei o valor da célula que a macro deveria verificar, sendo que ela não verifica onde mais tem "Total" na coluna D
Alguém tem alguma saída para isso?!
Obrigado, Everton
