Copiar Com Critério para outra Guia
Página 1 de 1
Copiar Com Critério para outra Guia
Bom dia!!
Uma forma de copiar os dados para outra Guia baseado em critérios.
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar dados baseado em cabeçalho de uma guia para outra guia
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copiar_Colunas_Especificas de guia para outra
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Comparar celulas de guais diferentes e copiar para nova guia caso igual
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copiar_Colunas_Especificas de guia para outra
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Comparar celulas de guais diferentes e copiar para nova guia caso igual
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos