help with filling in dates

[Sean15]

Hi:

My apologies for presenting a screenshot but this is all I have access to.

I am trying to fill dates in column A. The expected results are shown in screenshot.

The simplest way to explain:

For every blank cell or group of blank cells, copy date above the blank cell into the blank cell or cells. All other data must remain as is.

Could you help please.


Regards,

Sean

 

[Exceladd1ct]

If i correctly understood, you want to fill all the blank cells with the value above them.

In order to achieve this, you can take the following steps:
1. Select the column/s you want to fill in the blanks
2. Press CTRL+G on Windows and press "Special" button or go to Home tab -> Find and Select -> Go To Special
3. Make sure "Blanks" is selected and press OK button
4. Click in the formula bar and write "=A1" (supposing A1 is the first value above the blank cells)
5. Click CTRL+Enter

 

[Fluff]

How about

Sub Sean15()
   With Range("A3", Range("B" & Rows.Count).End(xlUp).Offset(, -1))
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

If A3 is blank then it will populate the word"Date" from the header to the first blank cells.
@Exceladd1ct
Please do not quote entire posts as it just clutters up the thread.

 

[Exceladd1ct]

Sorry and Thanks.

 

[Sean15]

Hi:

Thank you very much Exceladd1ct and Fluff.

I went with post #2 .


Regards,

Sean