Catégorie : Excel VBA Course

Creating dynamic data validation lists in Excel using VBA can be a very useful technique, especially when the lists change frequently based on other data or user selections. Below is a detailed explanation and code on how to achieve this.

Objective:

We will create dynamic data validation lists that update automatically based on changes in the source data.

Steps Involved:

1. Create the Source Data: The source data is typically a range or list of items from which the dynamic list will be populated.
2. Create the Data Validation: This involves defining a data validation rule in Excel, which will use the source data as the list.
3. Use VBA to Update the List: The VBA code will dynamically adjust the data validation list based on changes in the source data range.

Example Scenario:

Let’s assume we have a list of product categories in Sheet1!A2:A10, and we want to create a dynamic data validation list in Sheet2!B2, which will update automatically as items are added or removed from the source list.

Step-by-Step Code Explanation:

1. Set up the VBA Code: We will write a VBA code to automatically create a dynamic data validation list.

VBA Code:

Sub CreateDynamicDataValidation()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim validationRange As Range
    Dim validationFormula As String
    ' Set worksheets
    Set wsSource = ThisWorkbook.Sheets("Sheet1") ' Source data sheet
    Set wsTarget = ThisWorkbook.Sheets("Sheet2") ' Target data validation sheet
    ' Find the last row of the source list (assuming data starts from A2)
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    ' Set the dynamic range for validation (we assume data is in column A)
    Set validationRange = wsSource.Range("A2:A" & lastRow)
    ' Create the formula for dynamic data validation
    ' The formula uses OFFSET to define the dynamic range
    validationFormula = "=OFFSET(Sheet1!$A$2, 0, 0, COUNTA(Sheet1!$A$2:$A$" & lastRow & "), 1)"
    ' Apply the data validation to the target cell (Sheet2!B2)
    With wsTarget.Range("B2").Validation
        .Delete ' Remove any existing validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:=validationFormula
        .IgnoreBlank = True
        .InCellDropdown = True ' Show the dropdown arrow in the cell
        .ShowInput = True
        .ShowError = True
    End With
    MsgBox "Dynamic Data Validation List Created!"
End Sub

Explanation of the Code:

1. Define Worksheets:
   • wsSource refers to the worksheet where the source data is located (in this case, « Sheet1 »).
   • wsTarget refers to the worksheet where the data validation will be applied (in this case, « Sheet2 »).
2. Find the Last Row:
   • The lastRow variable is determined by finding the last row in column A of the source sheet. This ensures the range is dynamic and will adapt as more data is added or removed.
3. Define the Validation Range:
   • The range for data validation is defined dynamically using wsSource.Range(« A2:A » & lastRow). This means the range for data validation will include all rows from A2 to the last row with data.
4. Create the Validation Formula:
   • The formula uses the OFFSET function to create a dynamic range. OFFSET(Sheet1!$A$2, 0, 0, COUNTA(Sheet1!$A$2:$A$ » & lastRow & « ), 1) creates a dynamic range that adjusts as rows are added or removed in the source list.
   • COUNTA(Sheet1!$A$2:$A$ » & lastRow & « ) counts the non-empty cells in the source list and adjusts the range size accordingly.
5. Apply the Data Validation:
   • .Validation.Delete removes any existing validation rules from the target cell (if any).
   • .Add adds a new validation rule of type xlValidateList (for a drop-down list).
   • .Formula1 is where we apply the dynamic validation formula.
   • .InCellDropdown = True makes sure that the drop-down arrow appears inside the target cell.
   • .ShowInput and .ShowError ensure that input and error messages are shown when needed.
6. Completion Message:
   • A message box is displayed to let the user know that the data validation list has been successfully created.

How the Code Works:

• Every time the macro is run, it checks the source list (Sheet1!A2:A10), finds the last row with data, and updates the data validation list in Sheet2!B2 accordingly. If rows are added or removed in the source list, the drop-down list will automatically adjust to reflect the changes.

How to Use the Code:

1. Open your workbook.
2. Press Alt + F11 to open the VBA editor.
3. Insert a new module by right-clicking on the « VBAProject » pane, selecting Insert > Module.
4. Paste the code into the module.
5. Close the VBA editor and run the macro by pressing Alt + F8, selecting CreateDynamicDataValidation, and clicking Run.

Additional Notes:

• The code assumes that the source data begins at cell A2 and goes down to the last filled cell in column A. Adjust the ranges as needed if your data is located elsewhere.
• You can modify the target cell for the data validation (currently Sheet2!B2) to any cell or range that you wish to apply the validation.

Conclusion:

This VBA code allows you to create a dynamic data validation list that automatically updates as the source data changes. This is useful for situations where you have regularly updated lists, and you want to avoid manually adjusting data validation rules each time new data is added.

Voici un exemple détaillé pour créer des listes de validation de données dynamiques avec VBA dans Excel.

To create dynamic data validation drop-downs in Excel using VBA, you’ll typically want to populate the drop-down list based on a range of values that might change over time. Using VBA, you can automate the process of updating these lists dynamically. Below is a detailed guide on how to achieve this, along with a sample VBA code.

Steps to Create Dynamic Data Validation Drop-Downs in Excel with VBA

1. Basic Setup in Excel

Before we begin with the VBA code, make sure you have:

• A source list from which you want to create the drop-down options (it could be in a separate sheet or within the same sheet).
• A cell where you want to apply the data validation (for the drop-down).

2. VBA Code for Creating Dynamic Drop-Down

The key to creating a dynamic drop-down is to use the Data Validation feature in Excel, which allows you to specify a list of values that a user can select from. We’ll dynamically adjust this list using VBA.

Below is a step-by-step explanation of the code, along with the complete VBA solution.

VBA Code:

Sub CreateDynamicDropDown()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sourceRange As Range
    Dim validationCell As Range
    Dim validationFormula As String
    ' Set the worksheet and range for the source list
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' Adjust the sheet name as needed
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row  ' Get the last row with data in column A
    Set sourceRange = ws.Range("A2:A" & lastRow)  ' Adjust the range if necessary
    ' Set the target cell for data validation (where the drop-down will appear)
    Set validationCell = ws.Range("B2")  ' Adjust to the cell where the drop-down should appear
    ' Create a dynamic data validation formula
    validationFormula = "=OFFSET(Sheet1!$A$2, 0, 0, COUNTA(Sheet1!$A$2:$A$" & lastRow & "), 1)"
    ' Clear any existing validation
    validationCell.Validation.Delete
    ' Apply the data validation to the target cell with the dynamic range
    validationCell.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=validationFormula
    ' Optionally, you can add an input message or error alert
    validationCell.Validation.InputMessage = "Select from the list"
    validationCell.Validation.ErrorMessage = "Invalid selection"
    ' Confirm that the validation is created
    MsgBox "Dynamic Drop-down created successfully!", vbInformation
End Sub

Explanation of the Code:

1. Worksheet and Source Range Setup:

• We start by defining the worksheet (ws) and the source range (sourceRange) where the list values are located.
• The lastRow variable is calculated using Cells(ws.Rows.Count, « A »).End(xlUp).Row to find the last row of data in column A (adjust the column as needed).
• The sourceRange is defined from A2 to the last row with data.

2. Validation Formula:

• The OFFSET formula is used to create a dynamic range. The formula =OFFSET(Sheet1!$A$2, 0, 0, COUNTA(Sheet1!$A$2:$A$lastRow), 1) ensures that the drop-down list expands or contracts as data in the source range changes.
  • Sheet1!$A$2: This is the starting point of the list.
  • COUNTA(Sheet1!$A$2:$A$lastRow): This counts the number of filled cells in column A (adjust if your list contains blanks or other criteria).
  • 1: This represents the width of the range, so only one column is considered.

3. Data Validation Setup:

• We specify the target cell (validationCell) where the drop-down will appear (in this case, B2).
• validationCell.Validation.Add is used to add data validation, where:
  • Type:=xlValidateList: Specifies that the validation type is a list.
  • Formula1:=validationFormula: Uses the dynamic formula we created for the list.

4. Optional Customization:

• You can customize the input message and error message to guide the user.
• validationCell.Validation.InputMessage and validationCell.Validation.ErrorMessage can be set to display helpful messages when the user selects the cell.

5. Running the Macro:

• When you run this macro, it will automatically create a dynamic drop-down in the target cell (B2 in this case). The drop-down will adjust automatically based on the number of items in the source range (column A).

Testing and Adjustments:

• Make sure your source range is correctly populated. The dynamic drop-down will automatically reflect any changes made to the source list (additions or deletions).
• You can change the target cell or the source range by modifying the validationCell and sourceRange variables in the code.

Conclusion:

Using VBA to create dynamic drop-downs in Excel helps automate the process of updating lists. This method works well when the list of values changes frequently and ensures users always have up-to-date options in their drop-down menus.

If you need further customization or face issues, feel free to ask!

This form will allow users to input data into a worksheet through a user-friendly interface.

Step 1: Design the Data Entry Form

Before writing any VBA code, you need to design the user form.

1. Open Excel and press Alt + F11 to open the Visual Basic for Applications (VBA) editor.
2. In the VBA editor, go to Insert > UserForm to create a new user form.
3. On the right side of the VBA editor, the Toolbox should appear. If it’s not visible, go to View > Toolbox.
4. From the Toolbox, drag and drop the following controls onto the form:
   • TextBoxes for user input (e.g., for Name, Age, Address, etc.)
   • Labels next to each TextBox to specify the field (e.g., “Name”, “Age”).
   • CommandButton to submit the data (e.g., “Submit”).
   • CommandButton to cancel the form or close it.
   • Optionally, you can add ComboBoxes, DatePickers, etc., depending on your requirements.

Step 2: Add a Button to Launch the Form

Now, you need to create a button on the Excel worksheet that will launch the form.

1. Go to your Excel workbook.
2. On the Developer tab, click Insert, and under Form Controls, choose Button.
3. Draw the button anywhere on the worksheet.
4. When you release the mouse, the Assign Macro dialog box will appear. You can either create a new macro or assign an existing one.

Step 3: Write VBA Code

Now it’s time to write the VBA code that will handle user input and store it into the worksheet.

1. In the VBA editor, double-click on the UserForm to open its code window.
2. Write the code to initialize the form and handle user input. Here’s an example code structure:

Code for the UserForm:

Private Sub UserForm_Initialize()
    ' Initialize the form with default values or settings if needed
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    ' Additional setup code here
End Sub

Private Sub btnSubmit_Click()
    ' Handle the data submission
    Dim lastRow As Long
    lastRow = ThisWorkbook.Sheets("Data").Cells(ThisWorkbook.Sheets("Data").Rows.Count, 1).End(xlUp).Row + 1    
    ' Write data to the worksheet (example: write Name, Age to Sheet1)
    ThisWorkbook.Sheets("Data").Cells(lastRow, 1).Value = Me.TextBox1.Value ' Name
    ThisWorkbook.Sheets("Data").Cells(lastRow, 2).Value = Me.TextBox2.Value ' Age
    ' Add more fields as necessary
    ' Clear the form after submission
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
End Sub

Private Sub btnCancel_Click()
    ' Close the form without saving
    Me.Hide
End Sub

Explanation of the code:

• UserForm_Initialize(): This subroutine runs when the form is initialized. It can be used to set initial values for the controls.
• btnSubmit_Click(): This subroutine is triggered when the « Submit » button is clicked. It retrieves the values from the TextBoxes and writes them to the specified worksheet (in this case, « Data »).
• btnCancel_Click(): This subroutine is triggered when the « Cancel » button is clicked. It simply hides the form without saving any data.

Step 4: Assign Macros to the Button

Go back to the Excel worksheet, and link the button to a macro that will launch the form.

1. Right-click the button you created earlier and click Assign Macro.
2. Create a new macro like this:

Sub ShowDataEntryForm()    ‘ Show the data entry form    DataEntryForm.ShowEnd Sub

1. In the Assign Macro window, choose the macro ShowDataEntryForm and click OK.

Step 5: Test the Form

Now, test your form by doing the following:

1. Go back to the worksheet.
2. Click the button you created to open the form.
3. Enter data into the TextBoxes and click « Submit ». Your data should be saved into the worksheet in the corresponding columns.
4. You can also test the « Cancel » button to ensure it closes the form without saving data.

Final Notes:

• Make sure to handle error cases, such as if a user leaves a required field blank.
• Customize the form layout as needed for better user experience.
• You can add additional features like drop-down menus, date pickers, or validation to improve functionality.

This is a simple and effective way to create a dynamic data entry form in Excel using VBA. By customizing the form’s fields and adding more complex logic, you can create a powerful data entry solution for your projects!

Creating dynamic filtering in Excel with VBA allows you to automate the process of applying filters based on certain criteria, which can be especially useful in scenarios where your data changes frequently or when you need to quickly analyze different subsets of data without manually applying filters each time.

Below is a detailed explanation and an example of how to create dynamic filtering with VBA.

Objective:

We will create a VBA script that dynamically applies a filter to an Excel range based on a specific condition, such as filtering data based on a value in a certain column. The example will focus on a dataset where we filter records based on values in the « Department » column.

Steps to Create Dynamic Filtering with VBA:

1. Understand the Data Layout: Before starting, make sure your data is in a tabular format. Each column should have a header, and there should be no empty rows or columns within the range of data. Let’s assume our data starts at cell A1 with headers in row 1.
2. Create a User Interface for Filtering: You can set up an input area on the worksheet where the user can input the criteria. For instance, let’s assume the user will input the department name they wish to filter in cell G1 (you can customize this to your needs).
3. Write the VBA Code: Now, let’s write the VBA code that will automatically apply a filter based on the user’s input.

VBA Code Example:

Sub ApplyDynamicFilter()
    Dim ws As Worksheet
    Dim filterCriteria As String
    Dim lastRow As Long
    Dim dataRange As Range
    Dim headerRow As Range
    ' Set the worksheet where the data is located
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Get the filter criteria from a cell (e.g., G1)
    filterCriteria = ws.Range("G1").Value
    ' Check if the filter criteria is empty
    If filterCriteria = "" Then
        MsgBox "Please enter a filter criteria in cell G1.", vbExclamation
        Exit Sub
    End If
    ' Find the last row of data in column A (assuming there are no gaps in data)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' Set the data range (assuming the data starts at A1 and goes to the last row of data in column D)
    Set dataRange = ws.Range("A1:D" & lastRow)
    ' Clear any existing filters
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ' Apply the filter based on the user input in G1
    dataRange.AutoFilter Field:=3, Criteria1:=filterCriteria ' Field 3 corresponds to the "Department" column
    MsgBox "Filter applied for Department: " & filterCriteria, vbInformation
End Sub

Explanation of the Code:

1. Setting the Worksheet (ws): The worksheet where the data is located is set using Set ws = ThisWorkbook.Sheets(« Sheet1 »). You should replace « Sheet1 » with the actual name of your worksheet.
2. Getting the Filter Criteria: The filter criteria (e.g., department name) is obtained from cell G1 on the worksheet with the line:

3. filterCriteria = ws.Range(« G1 »).Value

If the cell is empty, the code shows a message prompting the user to enter a filter criteria.

1. Identifying the Last Row: We determine the last row of data in column A (assuming there are no gaps in the data) using:

5. lastRow = ws.Cells(ws.Rows.Count, « A »).End(xlUp).Row

This ensures the dynamic filtering works even if the number of records changes.

1. Setting the Data Range: The data range to be filtered is defined as A1:D (assuming your data spans columns A to D). The line:

7. Set dataRange = ws.Range(« A1:D » & lastRow)

sets the range of data that will be filtered.

1. Clearing Existing Filters: If there are any existing filters applied, they are cleared with:

9. If ws.AutoFilterMode Then ws.AutoFilterMode = False

1. Applying the Filter: The filter is applied to the data range, specifically on the « Department » column (which is column C in this example). The filter criteria are passed as follows:

• AutoFilter Field:=3, Criteria1:=filterCriteria

Field:=3 refers to the « Department » column (column C) since it is the third column in the range. Criteria1:=filterCriteria applies the condition set in cell G1.

1. Displaying a Message: After the filter is applied, a message box shows the user which department the filter was applied to:

• MsgBox « Filter applied for Department:  » & filterCriteria, vbInformation

How to Use the Code:

1. Enter the department name (or whatever your filter criterion is) into cell G1 on your worksheet.
2. Run the macro ApplyDynamicFilter by either:
   • Pressing Alt + F8, selecting the macro, and clicking Run.
   • Assigning the macro to a button for easier access.

Customizing the Code:

• Multiple Criteria Filtering: You can modify the code to filter by multiple columns. For example, you can add another filter condition to filter by « Location » in another column.
• Dynamic Range: If your dataset changes in terms of the number of columns, adjust the range dynamically by using the .CurrentRegion method to capture all the data.

Conclusion:

This VBA script provides a dynamic way to filter your data based on user input. By using this approach, you can avoid manually applying filters each time and automate the process, saving you time and reducing the potential for error in larger datasets.

Let me know if you need further modifications or examples!

To create a dynamic dashboard in Excel using VBA, you’ll need to focus on several key aspects: data extraction, chart creation, dynamic updates, and interactive controls. Below is a detailed explanation and a VBA code to help you set up a dynamic dashboard.

Overview of the Dynamic Dashboard

A dynamic dashboard in Excel can display charts, tables, and other visual elements that update based on user input or changes in the data. With VBA, we can automate the creation and updating of these elements, which enhances the interactivity and user experience.

Steps to Create the Dashboard

1. Organizing Data:
   • Ensure your data is structured in a way that VBA can easily read and manipulate it. Typically, data should be organized in rows and columns, with headers for each data category.
2. Setting Up the Dashboard Sheet:
   • A separate sheet for the dashboard where your charts, tables, and interactive controls (e.g., dropdowns, buttons) will be placed.
3. Creating Interactive Controls:
   • You can use combo boxes, scroll bars, or buttons to allow users to interact with the dashboard. These controls will be linked to VBA code to trigger updates.
4. Creating Charts:
   • Charts can be created using the ChartObjects method in VBA. You will link these charts to your data and update them dynamically based on user input.
5. Automating Updates with VBA:
   • VBA will be used to automate the data fetching, chart creation, and updating process.

Detailed VBA Code to Create a Dynamic Dashboard

Sub CreateDynamicDashboard()
    Dim ws As Worksheet
    Dim dashboardSheet As Worksheet
    Dim chartObj As ChartObject
    Dim dataRange As Range
    Dim dynamicRange As Range
    Dim userChoice As String   
    ' Create or clear the dashboard sheet
    On Error Resume Next
    Set dashboardSheet = ThisWorkbook.Sheets("Dashboard")
    On Error GoTo 0
    If dashboardSheet Is Nothing Then
        Set dashboardSheet = ThisWorkbook.Sheets.Add
        dashboardSheet.Name = "Dashboard"
    Else
        dashboardSheet.Cells.Clear
    End If   
    ' Set the data range
    Set ws = ThisWorkbook.Sheets("Data") ' Change "Data" to your data sheet name
    Set dataRange = ws.Range("A1").CurrentRegion ' Assuming data starts from A1   
    ' Add interactive controls (ComboBox for filtering)
    With dashboardSheet.Shapes.AddFormControl(xlDropDown, 50, 20, 150, 30)
        .ControlFormat.AddItem "Option 1"
        .ControlFormat.AddItem "Option 2"
        .ControlFormat.AddItem "Option 3"
        .OnAction = "UpdateDashboard"
    End With   
    ' Create a dynamic range for charts
    Set dynamicRange = dataRange.Offset(1, 0).Resize(dataRange.Rows.Count - 1, dataRange.Columns.Count)   
    ' Create the first chart (e.g., Column chart)
    Set chartObj = dashboardSheet.ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)
    chartObj.Chart.SetSourceData Source:=dynamicRange
    chartObj.Chart.ChartType = xlColumnClustered
    chartObj.Chart.HasTitle = True
    chartObj.Chart.ChartTitle.Text = "Sales Overview"   
    ' Customize chart appearance
    chartObj.Chart.Axes(xlCategory).CategoryNames = ws.Range("A2:A" & dataRange.Rows.Count) ' X-Axis labels
    chartObj.Chart.Axes(xlValue).HasTitle = True
    chartObj.Chart.Axes(xlValue).AxisTitle.Text = "Sales ($)"   
    ' Add more charts as needed, following the same process above
    ' Add a dynamic table (if needed)
    dashboardSheet.Range("A20").Value = "Sales Data Summary"
    dashboardSheet.Range("A21").Formula = "=SUM(Data!B2:B100)" ' Example summary formula for total sales   
    MsgBox "Dashboard created successfully!"
End Sub

Sub UpdateDashboard()
    Dim dashboardSheet As Worksheet
    Dim userChoice As String
    Dim dataRange As Range
    Dim dynamicRange As Range
    Dim chartObj As ChartObject
    Dim filteredData As Range   
    Set dashboardSheet = ThisWorkbook.Sheets("Dashboard")
    Set dataRange = ThisWorkbook.Sheets("Data").Range("A1").CurrentRegion
    userChoice = dashboardSheet.Shapes(1).ControlFormat.Value ' Get user selection from ComboBox   
    ' Filter data based on user choice
    Select Case userChoice
        Case 1 ' Option 1 - Filter sales by a specific region
            Set filteredData = dataRange ' Add your filter logic here
        Case 2 ' Option 2 - Filter by product category
            Set filteredData = dataRange ' Add your filter logic here
        Case Else
            Set filteredData = dataRange ' Default, show all data
    End Select   
    ' Update charts dynamically
    Set dynamicRange = filteredData.Offset(1, 0).Resize(filteredData.Rows.Count - 1, filteredData.Columns.Count)
    Set chartObj = dashboardSheet.ChartObjects(1)
    chartObj.Chart.SetSourceData Source:=dynamicRange   
    ' Add further updates to the table, charts, or other visual elements here  
    MsgBox "Dashboard updated successfully!"
End Sub

Explanation of Key Components:

1. Data and Dashboard Sheets:
   • ws refers to the data sheet where your raw data resides.
   • dashboardSheet is where the dashboard is created.
   • Ensure your data sheet has headers (e.g., « Date », « Sales », « Region »).
2. Interactive Controls (ComboBox):
   • A ComboBox is added to the dashboard for user interaction. The user can choose an option, and the dashboard will update accordingly.
3. Creating Charts:
   • Charts are created using ChartObjects.Add and linked to the dynamicRange. The chart updates when the data changes.
   • You can create multiple charts (e.g., bar, line, pie) depending on the data you want to display.
4. Dynamic Range:
   • The dynamicRange is determined based on the user’s interaction. This allows for dynamic updates as the user changes options.
5. Updating the Dashboard:
   • The UpdateDashboard subroutine filters the data based on the user’s choice and updates the charts and tables accordingly.

Customizing the Code:

• Add more charts: You can add more charts by repeating the chart creation steps.
• Add more controls: Add scroll bars, option buttons, etc., to make the dashboard more interactive.
• Advanced Filtering: Implement more complex filters or pivot tables depending on your needs.

Conclusion:

This code provides a basic structure for creating a dynamic Excel dashboard using VBA. You can extend it by adding more controls, improving the UI, or implementing advanced features like drill-downs or conditional formatting based on user inputs.

Goal:

We want to create a dynamic filter that updates automatically based on the unique values from a specific column in the source data. For example, let’s say you have a dataset with a « Region » column and want to create a PivotTable that allows the user to dynamically filter by Region.

Steps:

1. Prepare Your Data: Ensure your source data is organized as a table (not a simple range). This makes it easier for PivotTables and filtering.

Example:

1. Create the Pivot Table: Manually create a PivotTable, or use VBA to create it. In this example, let’s assume the PivotTable will be created in a new worksheet.
2. Dynamic Filter: We will write VBA code to automatically create a filter for the PivotTable based on the unique values from the “Region” column.

VBA Code:

Sub CreateDynamicFilterForPivotTable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pRange As Range
    Dim filterField As PivotField
    Dim sourceData As Range
    Dim uniqueRegions As Collection
    Dim region As Variant
    Dim i As Long
    ' Set the worksheet and range of source data
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Change to your sheet name
    Set sourceData = ws.Range("A1:C5") ' Adjust to your actual data range
    ' Create Pivot Table
    Set pRange = ws.Range("E1") ' Top-left cell where Pivot Table will be placed
    Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=sourceData, TableDestination:=pRange)
    ' Add fields to the Pivot Table (adjust accordingly)
    With pt
        .PivotFields("Region").Orientation = xlPageField
        .PivotFields("Sales").Orientation = xlDataField
        .PivotFields("Date").Orientation = xlRowField
    End With
    ' Create a collection to hold unique regions
    Set uniqueRegions = New Collection
    ' Loop through the source data to get unique regions
    On Error Resume Next ' Ignore errors when adding duplicates
    For i = 2 To sourceData.Rows.Count ' Skip header row
        uniqueRegions.Add sourceData.Cells(i, 2).Value, CStr(sourceData.Cells(i, 2).Value)
    Next i
    On Error GoTo 0 ' Turn back on regular error handling
    ' Set the Pivot Field for Region
    Set filterField = pt.PivotFields("Region")
    ' Clear existing filters
    filterField.ClearAllFilters
    ' Loop through unique regions and apply as dynamic filter
    filterField.EnableMultiplePageItems = True
    For Each region In uniqueRegions
        filterField.PivotItems(region).Visible = True
    Next region
    ' Optional: Apply an initial filter (e.g., first region)
    filterField.CurrentPage = uniqueRegions(1)
    MsgBox "Dynamic filter for PivotTable created successfully!"
End Sub

Explanation of the Code:

1. Setting Variables:
   • We define variables for the worksheet (ws), the PivotTable (pt), the source data (sourceData), and other necessary elements like the filter field and unique regions.
2. Source Data Range: The range sourceData holds the data that we’ll use to build the PivotTable. You can adjust this range to fit your dataset.
3. Creating the Pivot Table: The PivotTableWizard method is used to create a new PivotTable. We specify the source data and the destination for the PivotTable. Then we add the fields to the PivotTable:
   • « Region » is added as a filter field (i.e., for dynamic filtering),
   • « Sales » is added as a data field,
   • « Date » is added as a row field.
4. Unique Values Collection: A Collection is used to store unique values from the « Region » column. This ensures that only distinct values are added to the filter.
5. Clearing Filters: Before applying new filters, we clear any existing filters with ClearAllFilters.
6. Applying Dynamic Filters: We loop through the collection of unique regions and apply them as filters on the PivotTable. If you want multiple filter options, the EnableMultiplePageItems property allows it.
7. Initial Filter: Optionally, you can set an initial filter by setting CurrentPage to a specific region (e.g., the first region in the collection).
8. Final Message: After applying the dynamic filter, a message box notifies the user that the process is complete.

Notes:

• Ensure that the PivotTable is correctly created and that your data range is dynamic. You can replace the hardcoded ranges with dynamic ranges if needed.
• The code applies the filter directly to the PivotTable on the “Region” field. You can modify the logic if you need more fields or filters.
• To improve the user experience, consider adding error handling, especially when the PivotTable already exists, or the data range is not set correctly.

This code should work dynamically to update the filter options on your PivotTable based on the unique values from your data.