Posts by Fluff13

I just get the 3 relevant rows from cols A, Q & R

At a guess replace all that last section with

                    With wksDest.Range("GroupImportRange")
                        .CurrentRegion.ClearContents
                        .Resize(UBound(v), UBound(v, 2)).Value = v
                    End With

Quote from Matt W

Line 125 is also a problem. Not sure how to represent the "selected item" of the combo box in the If/Then statement, as .Selected(row) doesn't work the same as for a listbox.

I have no idea what you are trying to do with that portion of the code.

Quote from Matt W

Did that piece of code work for you in the example file?

Yes it did, but I forgot to mention that you need to use

            q = Me.cbChooseGroup

Not sure how you get an error on line 25 as there is a compile error as soon as you select anything from the combo.

That said you will need to use

25:         vRws = Filter(Application.Transpose(Evaluate(Replace(Replace("if(left(#,7)=""" & q & """,row(#)-~,""X"")", "#", .Columns(37).Address), "~", .Rows(0).row))), "X", False)
            v = Application.Index(.Value2, Application.Transpose(vRws), Array(1, 17, 18)) 'column numbers from RiskDataTable to bring into the combobox

In that case can you please supply a sample file.

Maybe

vRws = Filter(Application.Transpose(Evaluate(Replace(Replace("if(#=" & r & ",row(#)-~,""X"")", "#", .Columns(37).Address), "~", .Rows(0).Row))), "X", False)

You're welcome & thanks for the feedback.

Did you try the code I posted? It works for me & I can select one or more cells on a sheet to populate the array.

As you're using type 64 try

Dim AssignmentArray As Variant
AssignmentArray = Application.InputBox(prompt:="Select Assignments from worksheet", Type:=64)

Glad you sorted it & thanks for the feedback

Can you supply a sample workbook?

You're welcome & thanks for the feedback.

How about

=COUNTIFS(D:D,A1&"*")

Glad to help & thanks for the feedback.

If the values are numbers you can use COUNT rather than COUNTA, if the values are text use

=LOOKUP(2,1/(E2:E10<>""),E2:E10)

Ok, but as you have already got a working formula on ExcelForum, I'll step out.

You might also want to have a look at the rules, both here & on EF regarding cross posting.

If you have the dynamic array functions in G3 copied right

=INDEX(SORT(FILTER($A$2:$D$294,$B$2:$B$294=G2),4,-1),SEQUENCE(10))

If the table header is # then G3 will need to be '#

Use Color, rather than ColorIndex

.DisplayFormat.Interior.Color