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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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