Hi,
Try the following code
Sub Fill_In_The_Blanks()
Dim i As Long
For i = 1 To 10000
If Cells(i, 1) = "End" Then
Exit For
Else
If Cells(i, 1) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
End If
End If
Next i
End Sub
The above code would require you to specify where the data ends.
Additionally, this could also be done without a VBA code using autofilters
in Excel.
1. Select the Range to autofilter and press ALT+D+F+F
2. In the first blank cell below 101 in your example type a formula
referencing the top cell using relative reference (without any dollar
signs) and copy this formula.
3. In the column where you want to populate the missing values select
blanks.
4. Paste this formula in the blanks cells. (Excel would paste the formula
reference the top non blank cell for the rest of the cells).
Let me know if you need more help or if there are questions.
Regards,
Damimkader S. Meeran
On Friday, March 23, 2012 7:04:18 AM UTC+5:30, Jim Schug wrote:
>
> Hi,
> I'm nearly brain dead (tired) and can't think straight. I have a simple
> issue. A macro to fill in blank values if found with the value from the
> cell above.
>
> For example
>
> 101
>
>
>
> 1015
>
> Would fill the blank rows with 101 until the next number 1015 is found,
> then it would use 1015 until another number...
>
> A file with sample data is attached. Thanks in advance.
>
>
>
>
>
>
>
On Friday, March 23, 2012 7:04:18 AM UTC+5:30, Jim Schug wrote:
>
> Hi,
> I'm nearly brain dead (tired) and can't think straight. I have a simple
> issue. A macro to fill in blank values if found with the value from the
> cell above.
>
> For example
>
> 101
>
>
>
> 1015
>
> Would fill the blank rows with 101 until the next number 1015 is found,
> then it would use 1015 until another number...
>
> A file with sample data is attached. Thanks in advance.
>
>
>
>
>
>
>
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
