Hello. I use the Filter Function below to filter a column in a Table and then populate a List Box with the results. I have found that I must activate the worksheet with the table in order for the function to filter correctly. But activating the worksheet causes the screen to flicker. Is there a way to avoid activating the worksheet yet have the Filter Function still filter correctly? Alternatively, can I avoid the screen flicker caused by activating the worksheet?
- Dim v, ws As Worksheet
- Dim vRows As Variant
- Set ws = ThisWorkbook.Worksheets("Sheet1")
- With ws.ListObjects("Table1").DataBodyRange
- vRws = Filter(Application.Transpose(Evaluate(Replace(Replace("if(#=FALSE,row(#)-~,""X"")", "#", .Columns(35).Address), "~", .Rows(0).row))), "X", False)
- v = Application.Index(.Value2, Application.Transpose(vRws), Array(1, 14, 15)
Thanks for any assistance!