Este fórum está sendo desativado

[Choicekiller]

Olá galera,

Sou iniciante em VBA e não compreendi ainda o laço de repetição.

Acredito que neste problema seria necessário utilizar 2 ou mais laços de repetição.

Procurei nas 63 páginas dos tópicos de VBA aqui no fórum, porém não encontrei nada semelhante.

Sendo assim, venho solicitar a ajuda de vocês.

Problema:

Preciso transferir os dados da planilha "Dados" para a planilha "Backup", desde que, o "ID" não seja duplicado.

Caso exista a duplicidade, transferir o referido "ID" para a planilha "Já cadastrado" (Planilha anexo)

Desde já, agradeço.

[gfranco]

Bom dia.
Veja se entendi bem seu objetivo.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub TransfereDados()
 Dim ID As Range, r As Long
  For Each ID In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   If Application.CountIf(Sheets("Backup").[A:A], ID.Value) = 0 Then
    Sheets("Backup").Cells(Rows.Count, 1).End(3)(2).Resize(, 8).Value = ID.Resize(, 8).Value
   Else: r = Sheets("Backup").[A:A].Find(ID, lookat:=xlWhole).Row
    Sheets("Já cadastrado").Cells(Rows.Count, 1).End(3)(2).Resize(, 8).Value = ID.Resize(, 8).Value
    Sheets("Já cadastrado").Cells(Rows.Count, 9).End(3)(2) = Sheets("Backup").Cells(r, 2)
   End If
  Next ID
  Range("A2:H" & Cells(Rows.Count, 1).End(3).Row) = ""
End Sub

[Choicekiller]

Gfranco e Osvaldomp, boa tarde.

Agradeço a atenção de vocês!

Os códigos disponibilizados, atenderam minha necessidade, ficaram perfeitos.

Obrigado por compartilharem seus conhecimentos.

Vou estudar os códigos e tentar compreender a lógica dos laços de repetição.

Valeu.

Tópico Resolvido