locked
Copiar Plan1 para Plan2 com condição RRS feed

  • Pergunta

  • Pessoal, bom dia!

    No Plan1, tenho as seguintes colunas abaixo:

    Projeto | Quantidade de atividades | Atividades concluídas | Atividades Atrasadas | Atividades pendentes | Atividades em andamento

     

    A idéia é copiar apenas os projetos que não estão concluídos no Plan2. Ou seja, no Plan1 estarão todos os projetos (concluídos ou não). E no Plan2 estarão apenas os projetos que não estão concluídos.

    Portanto, gostaria de saber como faço para copiar os dados do Plan1 para o Plan2, respeitando a condição citada acima.

     

    Desde já, obrigado.

    quinta-feira, 7 de abril de 2011 14:05

Respostas

  • Pessoal,

     

    Problema solucionado!

    Segue o código abaixo:

     

    Sub Copiar()
      Dim i As Integer, k As Integer
      Dim rngOrigem As Range, rngDestino As Range
      
      k = 2
      For i = 2 To Sheets("Plan1").[A1].CurrentRegion.Rows.Count
        If Sheets("Plan1").Cells(i, "B").Value <> Sheets("Plan1").Cells(i, "C").Value Then
          Set rngOrigem = Sheets("Plan1").Range("A" & i & ":F" & i)
          Set rngDestino = Sheets("Plan2").Range("A" & k & ":F" & k)
          rngDestino.Value = rngOrigem.Value
          k = k + 1
        End If
      Next
      MsgBox "Fim de execução da macro"
    End Sub

    Isso aí!

    Abraço

    • Marcado como Resposta marcelpsaraiva quinta-feira, 7 de abril de 2011 17:06
    quinta-feira, 7 de abril de 2011 17:05