VBA to Copy Values into New Column with Consecutive Rows

[mpalesano23]

I have Data in Column D9:D21, if the value of the cell in B9:B21 equals 1, I would like the corresponding cell text in D9:D21 to be copied into Column H, starting in H9 and continuing in consecutive rows below.

Thank you!

 

[Joe4]

Welcome to the Board!

If you are indeed using Excel 365, this can be done very easily with no VBA required using the new FILTER function.
Just put this formula in cell H9:

=FILTER(D9:D21,B9:B21=1)

and Excel will do the rest!

 

[mpalesano23]

Welcome to the Board!

If you are indeed using Excel 365, this can be done very easily with no VBA required using the new FILTER function.
Just put this formula in cell H9:

=FILTER(D9:D21,B9:B21=1)

and Excel will do the rest!

Awesome, was not aware of this function. Works perfect, that's super simple!

 

[Joe4]

Awesome, was not aware of this function. Works perfect, that's super simple!

You are welcome.
Yes, it is one of my favorite new functions!