N
NoodNutt
G'day Everyone
I need a work around for the following please:
Case Target.Value >= DateSerial(2008, 9, 1) And Target.Value <
DateSerial(2008, 10, 1)
ActiveCell.Offset(0, 1).Select
Selection.Value = "SEP" ' Column G, [no problem here.]
ActiveCell.Offset(0, 1).Select
Selection.Value = Target.Value 'Column H, in this case the cell is
formatted (dddd) which = Tue. [no probs here either.]
ActiveCell.Copy 'I then need to copy Column H result [Tue] to Column L
ActiveCell.Offset(0, 4).Select
Selection.PasteSpecial xlPasteValues 'Convert result, which in this case is
39707 to display [Tue] as TEXT
The reasoning behind this is that I have an array lookup, it doesn't work
unless I use the text equivalent, as it reads Column H as a date/time and
comes up as #N/A, I can then change the MATCH reference accordingly.
Look forward to your thoughts & suggestions
TIA
Mark.
I need a work around for the following please:
Case Target.Value >= DateSerial(2008, 9, 1) And Target.Value <
DateSerial(2008, 10, 1)
ActiveCell.Offset(0, 1).Select
Selection.Value = "SEP" ' Column G, [no problem here.]
ActiveCell.Offset(0, 1).Select
Selection.Value = Target.Value 'Column H, in this case the cell is
formatted (dddd) which = Tue. [no probs here either.]
ActiveCell.Copy 'I then need to copy Column H result [Tue] to Column L
ActiveCell.Offset(0, 4).Select
Selection.PasteSpecial xlPasteValues 'Convert result, which in this case is
39707 to display [Tue] as TEXT
The reasoning behind this is that I have an array lookup, it doesn't work
unless I use the text equivalent, as it reads Column H as a date/time and
comes up as #N/A, I can then change the MATCH reference accordingly.
Look forward to your thoughts & suggestions
TIA
Mark.