Hello
I have just recently been helped with code to transfer rows of information with red font (a date in column D) to a target sheet (same workbook) by a very helpful member here. It works great when i change the font manually.
However, after using conditional formatting to change the cells to a red font the code doesnt recognise it and no information gets transferred to the target sheet. (thought id give my previous expert assistant a break )
Any suggestions
Thanks
The code i am using:
Option Explicit
Sub ExtrCol()
Dim cell As Range
Dim ws As Worksheet
Sheets("Expired").Activate
ActiveSheet.UsedRange.Offset(1).Rows.Delete
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Expired" Then
ws.Activate
For Each cell In Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
If cell.Font.Color = vbRed Then
Range(cell.Offset(0, -3), cell).Copy
Sheets("Expired").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
Next
End If
Next ws
Application.CutCopyMode = False
Sheets("Expired").Activate
End Sub
Bookmarks