Dim
rngA
As
Range, lngAnz
As
Long
, rngF
As
Range
Dim
WS2
As
Worksheet
Set
WS2 = Worksheets(1)
For
Each
rngA
In
Range(
"AG5:AG28"
)
If
rngA.DisplayFormat.Interior.Color = RGB(0, 255, 0)
Then
rngA.Copy WS2.Cells(Rows.Count, 1).
End
(xlUp).Offset(1, 0)
End
If
Next
Columns(
"AH:AH"
).DisplayFormat.Interior.Color = 0