populate cells based on condition

[dave92]

So this might have already been answered.
I'm trying to populate the blank rows in column B with the value in the previous row. But when the field is already populated (ie 123), don't do anything. In the next blank cell, use 123 value to populate. below is an example. Thanks in advance!

Col A Col B Col C
Feature ABC description of feature
Story <blank> description of story
Story <blank> description of story
Feature 123 description of feature
Story <blank> description of story
Story <blank> description of story

Into this
Col A Col B Col C
Feature ABC description of feature
Story ABC description of story
Story ABC description of story
Feature 123 description of feature
Story 123 description of story
Story 123 description of story</blank></blank></blank></blank>

 

[My Aswer Is This]

From looking at your example I'm having trouble knowing what is in column A and what is in column B and column C

So are you saying if George is in Row(1) column B
And Row(2) column B is empty Then Row(2) Column B should now have George

 

[dave92]

From looking at your example I'm having trouble knowing what is in column A and what is in column B and column C

So are you saying if George is in Row(1) column B
And Row(2) column B is empty Then Row(2) Column B should now have George

correct. row 2 col B is empty and it needs to be populated with what is in row 1 col B which is George.

 

[My Aswer Is This]

Try this:

Sub Test()
'Modified 6/20/2018 2:59 PM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To Lastrow
        If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i, 2).Offset(-1).Value
    Next
Application.ScreenUpdating = True
End Sub

 

[Fluff]

Another option

Sub filldownBlank()
   With Range("B:B")
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

 

[dave92]

Try this:

Sub Test()
'Modified 6/20/2018 2:59 PM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To Lastrow
        If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i, 2).Offset(-1).Value
    Next
Application.ScreenUpdating = True
End Sub

this works. How does the macro change if it's the column I'm trying to copy is in column C and not B? thanks again

 

[My Aswer Is This]

Try this:

See the C

Sub Test_New()
'Modified 6/20/2018 4:20 PM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To Lastrow
        If Cells(i, "[COLOR=#ff0000]C[/COLOR]").Value = "" Then Cells(i, "[COLOR=#ff0000]C[/COLOR]").Value = Cells(i, "[COLOR=#ff0000]C[/COLOR]").Offset(-1).Value
    Next
Application.ScreenUpdating = True
End Sub

Script assumes there are always values in column A
It continues looking till it finds no more values in column A