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

  • Pergunta

  • 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
    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

     

    terça-feira, 17 de maio de 2011 13:28

Respostas

  • 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

    terça-feira, 17 de maio de 2011 13:36
  • 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

    quarta-feira, 18 de maio de 2011 10:59

Todas as Respostas

  • 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

    terça-feira, 17 de maio de 2011 13:36
  • 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

    terça-feira, 17 de maio de 2011 13:45
  • 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

    quarta-feira, 18 de maio de 2011 10:59
  • 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á.

    terça-feira, 2 de fevereiro de 2016 17:42