gilson_bsb

Pessoal, estou com uma dúvida simples mas não consigo desenvolve-la, o código abaixo seleciona uma linha que tem dados semelhantes na primeira coluna, gostaria apenas de pegar estes dados e copiar a linha inteira para outra planilha: Public Sub VerificaAtraso() Dim Col As Integer Dim r As Long Dim C As Range Dim N As Long Dim V As Variant Dim Rng As Range On Error GoTo EndMacro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Col = ActiveCell.Column If Selection.Rows.Count > 1 Then Set Rng = Selection Else Set Rng = ActiveSheet.UsedRange.Rows End If N = 0 For r = Rng.Rows.Count To 1 Step -1 V = Rng.Cells(r, 1).Value If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(r).Interior.ColorIndex = 36 Rng.Rows(r).Select N = N + 1 End If ' Este é o trecho que estava tentando desenvolver para colar a linha selecionada em Rng.Row(r) Selection.Copy Sheets("Plan2").Select ' Chama a "Plan2" 'Range("A1").Select 'Seleciona a Linha 1 Da primeira Coluna ActiveSheet.Paste 'Cola os valores selecionados da outra planilha EndMacro: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomaticEnd Sub Exemplo da planilha, os dados repetidos da primeira coluna são selecionados de amarelo: 25332 JOAO 456325 45 25332 JOAO 456325 45 45333 MARIA 45689 35 48632 JOSE 45899 32 12356 CARLOS 32565 25 12356 CARLOS 32565 25 Abraço

valeu Basole, abraço Fiz o teste só não está alterando o valor da primeira linha, por que?

Colegas, alguém poderia me explicar como elaborar um código aonde quando se repetissem dados da coluna A fosse copiados os dados da coluna D para a mesma coluna, porém na linha anterior, exemplo: NOME IDADE SEXO ENDERECO JOAO 30 M JOAO 30 M QUADRA 1 MARIA 32 F MARIA 32 F QUADRA 2 CARLOS 35 M CARLOS 35 M QUADRA 3 JOAQUIM 26 M JOAQUIM 26 M QUADRA 4 Valeu...