Bom dia,

estou a tentar criar uma macro que permita:

- percorrer uma range sem fim determinado de linhas nem colunas.. e sempre que encontrar uma célula amarela (ColorIndex = 36), para e copia essa célula (Exemplo: A1) e cola noutro worbook, na mesma célula (A1), o valor que essa célula contem

Exemplo:

workbook - Teste1
Sheet - Sheet1
Copia célula A1
Workbook - Teste2
Sheet - Sheet2
Cola célula A1 na célula A1 do Teste2

O que já fiz:
Sub CopiarColar()

'Dim Linha, Coluna As Integer
'Dim cel As Range
Dim FinalRow As Integer
Dim i As Integer
i = 0
FinalRow = Range("A65536").End(xlUp).Row

Coluna = Range("A65536").End(xlLeft).Column

Workbooks("Teste1.xlsm").Worksheets("Sheet1").Activate

Do While Linha <= FinalRow
If Cells(i + 1, 6).Interior.ColorIndex = 36 Then
Workbooks("Teste1.xlsm").Worksheets("Sheet1").Activate
Cells(i + 1, 6).Select
Selection.Copy
Workbooks("Teste2.xlsm").Worksheets("Sheet1").Activate
Cells(i + 1, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

i = i + 1

Loop

End Sub

agora falta-me percorrer por colunas, mas estou com duvidas

Alguém pode ajudar?

Obrigada