Microsoft Office Forums - View Single Post - Populate Cells with info contained in other cells

EC37 · 07-16-2014, 10:55 AM

Awesome. Well. I set the ows to be ActiveSheet as you mentioned. It worked, technically speaking

What happened at the end though, was it took the value of F# (F being the task name, and # being the row # that contains "Sub-Phase") and applied it from row 24 to 248- when it should have applied it from 24 and stopped at 31 (the famous .End(xlDown)).
well, that's because I never set it to stop at the last row. So, I fixed that, and also determined another flaw I wasn't paying attention to- and that is: Some Phases have no Sub-Phases, therefore, the Phase name should be copied down. So instead of saying:

Code:

Select Case ows.Cells(jr, 16).Value
   Case "Phase"
   Case "Sub-Phase"
     ows.Cells(jr, 5).Value = col6
etc...

I edited it to do the same thing for Phase:

Code:

For jr = 2 To ec.Row
    Select Case ows.Cells(jr, 16).Value
        Case "Sub-Phase"
            col6 = ows.Cells(jr, 6).Value
        Case "Phase"
            col6 = ows.Cells(jr, 6).Value
        Case Else
            ows.Cells(jr, 5).Value = col6
        End Select
    Next jr

So, I'm fairly certain I'm all set! I will keep running through it to test and let you know.