Bom dia pessoal,

Como vocês fariam em VBA, [...]

Como eu faria?

Primeiro, usaria um filtro diretamente na "aba" transferência, sem copiar nada.

Caso fosse realmente necessário, eu simplesmente limparia as informações em "dados" e copiaria todas de novo, em vez de ficar comparando.

Boa tarde!!

Se você usar um gravador de macro ou a pesquisa do fórum, encontrará a solução!

Public Sub AleVBA_9890()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range

Set ws1 = Worksheets("Transf")
Set ws2 = Worksheets("Plan3")
Set ws3 = Worksheets("Dados")

Set rng1 = ws1.Range(ws1.Range("A1"), ws1.Range("C" & Rows.Count).End(xlUp))
ThisWorkbook.Names.Add Name:="myData", RefersTo:=rng1

Set rng2 = ws2.Range(ws2.Range("A1"), ws2.Range("C" & Rows.Count).End(xlUp))
ThisWorkbook.Names.Add Name:="myCriteria", RefersTo:=rng2

Set rng3 = ws3.Range(ws3.Range("A2"), ws3.Range("C" & Rows.Count).End(xlUp))

'rng3.ClearContents

ws1.Range("A2:C500").AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=ws2.Range("myCriteria"), _
      CopyToRange:=ws3.Range("A2"), _
      Unique:=False

End Sub

Att

Alexandre, é isso aí, eu precisaria apenas ao invés de copiar informação da coluna A copiar a linha toda ( das colunas A, B e C). Pode me ajudar? Aqui só copiou o conteúdo da coluna A.

Bom dia pessoal,

Como vocês fariam em VBA, [...]

Como eu faria?

Primeiro, usaria um filtro diretamente na "aba" transferência, sem copiar nada.

Caso fosse realmente necessário, eu simplesmente limparia as informações em "dados" e copiaria todas de novo, em vez de ficar comparando.

Obrigado pelo retorno gtsalikis, eu coloquei desta forma com pouca informação porém a planilha que preciso fazer terá neste momento mais de 18mil linhas. Então de forma automática ajudaria muito.

Boa tarde!!

Testou o anexo que eu te mandei?????

Att

Não achei anexo aqui no tópico (além do meu) mas peguei o teu código e ele só copiou a coluna A, as colunas B e C não foram transportadas para a guia Dados.

Obrigado.

Boa tarde!!

Teste direito, limpe os dados da guia Dados.

Att

Boa tarde !!

Quando eu limpo tudo da guia Dados ele copia, agora quando eu deixo algumas linhas preenchidas ele copia apenas a coluna A, e a guia Dados será continuamente preenchida, estou copiando o seu código em Modulo e fazendo este rotina com um botão comum (caixa de texto). Estou fazendo algo de errado?

Boa tarde!!!

da forma como eu fiz está pegado tudo da guia "Transf " veja

ws1.Range("A2:C500")

Como você quer que os dados sejam copiados?

Sempre acrescentado um em baixo do outro da guia dados???

Att

Isso mesmo, copiando todas as informações da linha correspondente um abaixo do outro na guia Dados. Outro erro que ocorreu é quando na guia Transf na célula A2 o valor é diferente da guia Dados A2 ele gera este erro em anexo.

Obrigado!

Boa tarde!!

Veja se é isso...
http://www.sendspace.com/file/miys8v

Att

Alexandre !!! Que show de bola!! É exatamente isso. Eu entendi que o código ele verifica inclusive todas as células se todas são iguais não copia! Só para aprimorar este código teria como em cada execução demonstrar na tela uma mensagem de quantas linhas foram copiadas com sucesso?

Agradeço sua atenção e parabéns pelo conhecimento.

Abs.

Boa tarde!!

Eu não sei se entendi....
Caso queira contar a origem

MsgBox "Foram copiadas " & Sheets("Transf").Range("A1").End(xlDown).Row & " Linhas"

Mude a guia caso queira contar apenas o reulstado.
###########

Sub Filter_Coluna()

Dim rCrit As Range
Dim aCrit
'With Sheets("Dados")
'.Range("A2:D50000").ClearContents
'End With
Application.ScreenUpdating = 0
With Sheets("Plan3")
  Set rCrit = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
  aCrit = Split(Join(Application.Transpose(rCrit), Chr(1)), Chr(1))
End With
With Sheets("Transf")
  .Range("$B$1:$B$50000").AutoFilter Field:=1, Criteria1:=aCrit, Operator:=xlFilterValues
  .Activate
  .Range(.Cells(2, "A"), .Range("C" & Rows.Count).End(xlUp)).Copy Destination:=Sheets("Dados").Range("A" & Rows.Count).End(xlUp).Offset(1)
  '.Range(.Cells(2, "A"), .Cells(10000, "C")).Copy Destination:=Sheets("Dados").Range("A" & Rows.Count).End(xlUp).Offset(1)
  .ShowAllData
  End With
  Call Duplic_AleVBA_9890
  Application.ScreenUpdating = 1
  MsgBox "Foram copiadas " & Sheets("Transf").Range("A1").End(xlDown).Row & " Linhas"
End Sub

Obs:Por favor, click na mãozinha

Att

Eu queria contar as copias para o destino, ex: "Foram copiadas XX de linhas para a plan Dados!"

Outro detalhe, desculpe minha ignorância mas se eu precisar aumentar mais colunas para confrontar(D, E, F....) como faço?