Auto-populate based on 2 Data Validation Options

[Unlucky-Phase]

Hello,
I'm wanting to Auto-populate a grid based on 2 data validation options. I can currently select "Product" from a list, and using VLOOKUP, I can pull criteria about this lamp into multiple cells - colour, price, warranty. But I would like to have 2 pieces of criteria so select "Product" - say Lamp - then "Month of Purchase" - say January - and it will fill out Colour, Price & Warranty for Lamps bought in January. I have 12 grids with the information for each month and product but trying to work out which formula for the cells I'm wanting to fill as VLOOKUP only allows me to have one criteria.
Thank-you!

 

[Unlucky-Phase]

Any ideas for this one? I'm still trying to figure out how to use data validation for multiple options! thanks

 

[Logit]

.
You could use FILTERING.

Sub combinationFilter()
    Dim cell As Range, tableObj As ListObject, subSelection As Range
    Dim filterCriteria() As String, filterFields() As Integer
    Dim i As Integer
    
    'If the selection is in a table and one row height
        
    If Not Selection.ListObject Is Nothing And Selection.Rows.Count = 1 Then
        Set tableObj = ActiveSheet.ListObjects(Selection.ListObject.Name)
        
        i = 1
        ReDim filterCriteria(1 To Selection.Cells.Count) As String
        ReDim filterFields(1 To Selection.Cells.Count) As Integer
        
        ' handle multi-selects
        
        For Each subSelection In Selection.Areas
            For Each cell In subSelection
                filterCriteria(i) = cell.Text
                filterFields(i) = cell.Column - tableObj.Range.Cells(1, 1).Column + 1
                i = i + 1
            Next cell
        Next subSelection
        
        With tableObj.Range
            For i = 1 To UBound(filterCriteria)
                .AutoFilter Field:=filterFields(i), Criteria1:=filterCriteria(i)
            Next i
        End With
        Set tableObj = Nothing
    End If
End Sub
Sub resetFilters()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

Download : filter-selection.xlsm