Olá pessoal

O código abaixo é uma adaptação que fiz do original elaborado pelo Edson ainda na comunidade no orkut.

Sub cidadania()

slin = 2
errlin = 1

Do While Sheets("LISTAGEM").Cells(slin, 1) <> ""

If Cells(slin, 7) <> "PAC" Then
slin = slin + 1
Else
ref = Cells(slin, 1)
Range("D" & slin & ":E" & slin).Copy
Windows("Quadro de municipios consolidada.xlsm").Activate
Sheets("DETALHADO").Activate

On Error Resume Next
elin = WorksheetFunction.Match(ref, Sheets("DETALHADO").Range("D:D"), 0)
If Err.Number <> 0 Then
Sheets("NLoc").Cells(errlin, 1) = ref
errlin = errlin + 1
Err.Number = 0
Else
Range("DG" & elin & ":DH" & elin).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

Windows("listagem.xls").Activate
slin = slin + 1

End If

Loop

Application.CutCopyMode = False

End Sub

-------------------------

Em resumo, a código copia os dados selecionados e cola noutra planilha desde que atenda 2 critérios, o primeiro é ser "PAC" e o segundo é uma comparação do código IBGE, se for o mesmo nas duas planilhas, ele copia e cola as informações.

Minha dificuldade é fazer com que ele localize o mesmo código noutra planilha mais de uma vez e faça a copia/cola dos dados, visto que na planilha "detalhado" cada código ibge aparece várias vezes e a informação que vem da outra planilha é a mesma.

Hoje, se eu tiver a seguinte situação:

CE - 230080 - Antonina do Norte (ele só acha o primeiro e o resto fica em branco)

CE - 230080 - Antonina do Norte

CE - 230080 - Antonina do Norte

CE - 230080 - Antonina do Norte

Essa parte eu ainda faço manual, ou seja, depois que o código roda, classifico por ordem crescente o codigo ibge (230080 , por exemplo) e vou copiando e colando pra baixo as informações ou quando tem pouca coisa; =SE(D1027=D1026;DG1027;"")

O ideal seria mesmo a macro localizar o código quantas vezes ele aparecer na planilha e fazer o copia/cola.

Obs. planilha listagem é a relação oficial do governo e só aparece um código, uma linha para cada municipio. Na pasta de trabalho quadro.... planilha detalhado é que os códigos aparecem diversas vezes.

Muito Obrigado e um ótimo final de semana.