Macro to add column and insert date then in blank cells copy fromprevious cell
Hello
I hope someone could help me with what I think is a small macro. I have dates going across the rows but they do not include the weekend dates. So in column A it should have 01/01/09 all the way through to half way through the year being 30/06/09. (This should be changeable.) The problem I have is that there is no columns for the weekend and holidays. I only have business dates. We would need a macro to search along row A to find a missing date. I.e it jumps from 1 to 3 Jan. It should find that 2 Jan 09 is missing and then insert a column and insert the date. In the row immediately underneathe where the date has been inserted I think need to copy the cell immediately previous to this one. Can someone please help me with a macro for the above? Sorry if what I am saying is unclear but I have described it in a way that I think things should happen. Thanks in advance, Best etc Stuart |
Macro to add column and insert date then in blank cells copy from
Sub addcolumns()
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column ColCount = LastCol Do While ColCount 1 If Cells(1, ColCount) Cells(1, ColCount - 1) + 1 Then Columns(ColCount).Insert Cells(1, ColCount) = Cells(1, ColCount + 1) - 1 Else ColCount = ColCount - 1 End If Loop End Sub "Stuart" wrote: Hello I hope someone could help me with what I think is a small macro. I have dates going across the rows but they do not include the weekend dates. So in column A it should have 01/01/09 all the way through to half way through the year being 30/06/09. (This should be changeable.) The problem I have is that there is no columns for the weekend and holidays. I only have business dates. We would need a macro to search along row A to find a missing date. I.e it jumps from 1 to 3 Jan. It should find that 2 Jan 09 is missing and then insert a column and insert the date. In the row immediately underneathe where the date has been inserted I think need to copy the cell immediately previous to this one. Can someone please help me with a macro for the above? Sorry if what I am saying is unclear but I have described it in a way that I think things should happen. Thanks in advance, Best etc Stuart |
All times are GMT +1. The time now is 03:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com