Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Copiar Com Critério para outra Guia

Ir para baixo

 Copiar Com Critério para outra Guia Empty Copiar Com Critério para outra Guia

Mensagem por alexandrevba Sex Out 04, 2013 8:59 am

Bom dia!!
Uma forma de copiar os dados para outra Guia baseado em critérios.
Código:
Sub CopiaComCriterio()
'Copia os dados comparando as colunas (A:D), copia para Plan2.
For Each cell In Range("A2:A250")
    If cell.Value <> "" And cell.Offset(, 1).Value <> "" And cell.Offset(, 2).Value <> "" And cell.Offset(, 3).Value <> "" Then
        If cell.Offset(, 1).Value <> "Criterio_1" And cell.Offset(, 1).Value <> "Criterio_2" And cell.Offset(, 1).Value <> "Criterio_3" Then
            cell.EntireRow.Copy Sheets("Plan2").Range("A" & Rows.Count).End(3)(2)
        End If
    End If
Next cell
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos