Bom dia,

estou a tentar criar um código que quando encontrar o numero 1(etc) numa linha, copie essa coluna e cole noutra sheet. mas o codigo nao esta a permitir colar.

For j = 1 To 20

For i = 0 To 40

If Cells(5, 1 + i).Value = j Then
Cells(8, 1 + i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.CutCopyMode = False
Sheets("BookAN_C").Select
Range("A8").Select
ActiveSheet.PasteSpecial xlPasteValues
Sheets("AN_C").Select

End If

Next i

Next j

podem ajudar?

obrigada