Como copiar uma linha inteira através de um critério através de VBA

Question

Pessoal,

Gostaria de saber se há a possibilidade de resolver a seguinte questão tenho a seguinte planilha

Nome	Idade	Situação
Alex	10	OK
João	20	DEVENDO
Zé	30	OK
Maria	40	OK

Gostaria de saber se existe alguma forma dele analisar a coluna situação e copiar a linha inteira dos itens com status OK para uma outra aba no excel

Desde já agradeço

 

Answer 1

Como vai Alex,

segue abaixo um snippet:

Public Sub CopyValues()

    Dim icount As Integer
    Dim irow As Integer
   
    icount = 2
    irow = 2
   
    On Error Resume Next
   
    Do While icount < 2000
   
 'SUPONDO QUE A SITUACAO É A CELULA C
        If Sheet4.Range("C" & icount) <> "OK" Then
               
                    Sheet1.Range("A" & irow) = Sheet2.Range("A" & icount)
                    Sheet1.Range("B" & irow) = Sheet2.Range("B" & icount)
                    Sheet1.Range("C" & irow) = Sheet2.Range("C" & icount)
                                                           
                    irow = irow + 1
               
                End If
            End If
        End If
   
        icount = icount + 1
   
    Loop
   
    On Error GoTo 0
   
End Sub

 

Se a resposta foi útil pra você, colabore com o fórum marcando como resposta esta sugestão, obrigado!

Júlio Cesar Cosmo, MCP, MCTS - Influenciador Sharepoint, Influenciadores Microsoft

http://juliocosmo.wordpress.com

Answer 2

Julio ficou perfeito só mais uma dúvida eu tenho alguns valores que dão #N/A tem como incluilo-los também na busca ou seja quero que em vez dele buscar OK busque os #N/A tentei mexer no código e não consegui.

 

Obrigado

Answer 3

Alex,

você não terá problemas para identificar o #N/A caso utilize o controle de exceção conforme o código acima.

On Error Resume Next - On Error GoTo 0

Pois se houver N/A ele irá suprir o possível erro que poderá acontecer.

Se a resposta foi útil pra você, colabore com o fórum marcando como resposta esta sugestão, obrigado!

Júlio Cesar Cosmo, MCP, MCTS - Influenciador Sharepoint, Influenciadores Microsoft

http://juliocosmo.wordpress.com

Answer 4

Caro Júlio,

Tentei aplicar a sua macro mas sem sucesso, mesmo usado o exemplo do Alex.

Acha que me consegue ajudar?

Obrigado desde já.