Hello,
I have a very basic table on Excel which I use to keep contract data. I'm currently using conditional formatting to highlight the row if the contract is out of date (i have a start date & end date in different columns)
I've looked on Help and using Google to find a way of creating a list on a new tab/spreadsheet, just so its easier to read.
Surely this must be possible?
Thanks
Daron
Configuration: Windows XP Internet Explorer 7.0
16/07/2009
|
It is difficult to copy your data it comes like this
|
Ok, forget all the other stuff
|
keep original file safely somewhere
Sub test()
Dim rng As Range, r As Range, r1
With Worksheets("sheet1")
Set rng = Range(.Range("c2"), .Range("c2").End(xlDown))
For Each r In rng
r1 = Trim(r)
r1 = DateSerial(Right(r1, 4), Mid(r1, 4, 2), Left(r1, 2))
'MsgBox r1
If r1 > Date Then GoTo line1
'r.EntireRow.Interior.ColorIndex = 3
r.EntireRow.Copy
With Worksheets("sheet2")
.Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
line1:
Next r
End With
Application.CutCopyMode = False
End Sub
|