none
Copiar e Colar RRS feed

  • Pergunta

  • 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

    quinta-feira, 17 de maio de 2012 18:55

Respostas

Todas as Respostas