O que eu já fiz até agora:
Sub colardados()
Dim lastRow As Long
Dim lasColumn As Integer
lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
lastcolumn = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For i = 1 To lastRow
For Column = 1 To lastcolumn
If Cells(i, Column).Interior.ColorIndex = 36 Then
Cells(i, Column).Select
Selection.Copy
celula = Cells(i, Column)
Workbooks("Book2.XLS").Sheets("Sheet1").Select
ActiveSheet.Paste
Workbooks("Book1.XLS").Sheets("Teste1").Select
End If
i = i + 1
j = j + 1
Next
Next
End Sub
Postado : 16/01/2015 10:23 am