Copiar Com Critério para outra Guia

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Copiar Com Critério para outra Guia

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum