Correr range através de ColorIndex

[joanas]

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

Editado Janeiro 19, 2015 por joanas