VBA Filter PowerPivot Field, based on range cell values but skipping Errors.

countryfan_nt

Well-known Member
Joined
May 19, 2004
Messages
710
Hello Friends, Hope all is safe & Well!

The following code, filters the PowerPivot's field PatientID, based on the Range B2:B1000 of sheet DBs.

The code works provided that whatever is in B exists in the PowerPivot field, If it doesn't I get an error.
How can I have the code run anyway & skip the cells in B that don’t exist in the field.

End result, filter only whatever is in B and matches what is in the field.

Your kind support is and always appreciated please.

Code:
Option Explicit

Sub Test1()

Dim MyString As String
Dim ArrVisiblelist()
Dim fldName As String
fldName = "[Proc XLSM].[PatientID].[PatientID]"
Dim lr As Long, i As Long
lr = Sheets("DBs").Range("B" & Rows.Count).End(xlUp).Row

ReDim ArrVisiblelist(1 To lr - 1)

For i = 2 To lr

ArrVisiblelist(i - 1) = "[Proc XLSM].[PatientID].&[" & Sheets("DBs").Cells(i, 2).Value & "]"

Next I

ActiveSheet.PivotTables("PT").PivotFields(fldName).VisibleItemsList = ArrVisiblelist

End Sub
 

Attachments

Some videos you may like

Excel Facts

Get help while writing formula
Click the italics "fx" icon to the left of the formula bar to open the Functions Arguments dialog. Help is displayed for each argument.

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,175
Messages
5,509,601
Members
408,743
Latest member
leen1234

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top