Hi,
I've attached an example to explain what I'm trying to do.
Any help would be great.
Hi,
I've attached an example to explain what I'm trying to do.
Any help would be great.
According to your attachment as a VBA beginner starter :
PHP Code:
Sub Demo1()
Dim F$, C%, V
F = Replace("TRANSPOSE(IF(ISNUMBER(MATCH(¤,#,0)),FALSE,¤))", "¤", Range("A2", [A1].End(xlDown)).Address)
[K1].CurrentRegion.Offset(1).Clear
For C = 4 To [D1].CurrentRegion.Columns.Count + 3
V = Filter(Evaluate(Replace(F, "#", Range(Cells(2, C), Cells(C).End(xlDown)).Address)), False, False)
If UBound(V) > -1 Then Cells(2, C + 7).Resize(UBound(V) + 1) = Application.Transpose(V)
Next
End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Try this:
Please Login or Register to view this content.
Last edited by xladept; 05-08-2020 at 01:01 PM.
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
Perhaps
Please Login or Register to view this content.
Last edited by PCI; 05-08-2020 at 05:18 PM.
- Battle without fear gives no glory - Just try
Thank you all - all work great!
Much appreciated!
You're welcome and thanks for the rep!
Good news, glad to help you.
Thx for the Rep...!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks