Macro Question

[beckys]

I have a report that can be run for various clients, and can have anywhere between 4 and 7 lines of data. I currently have a macro that does some re-formatting, and would also like to have the macro insert a date into a column, and carry that date down as many rows are included in the report.

The report headers are in rows 1:5, the column headers are in row 6, and the data starts in row 7. The data may continue to row 10, row 13, or anywhere in between.

Cell B4 includes the date range as text -
i.e. 02/01/2011 - 02/28/2011

I would like the end date (2/28/11) to be entered in column B, and in as many rows as the report contains data.

Does anyone have any suggestions on how to make this happen?

Thanks much for your assistance!
Becky

 

[Smitty]

This might get you started:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        i = Cells(Rows.Count, "A").End(xlUp).Row<br>        <br>        Range("B7:B" & i).Value = Right([B4], 11)<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[beckys]

Worked perfectly! Thanks so much!

 

[beckys]

Actually, on a related note, I am hoping that you can help with another piece of code.

In column D (Range ("D7:D" & i), I would like to enter a value that would be a pretty simple if statement in excel:

IF(B2="FUND C", "ELP C", RIGHT(B2,2))

Do you know how to incorporate this into a macro?

Thanks!!!