Dependent Drop down list with DEPENDENT DEFAULT VALUE (e.g. Blank)

Hello, all

There was a similar example given in the forum with Country (US, Canada) and Regions. As a solution the VBA code was provided.

************************************************************

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A2") Then
Target.Offset(0, 1).Value = ""
End If

End Sub

*************************************************************
I am more or less struggeling with adopting the code to my specific case.

Problem Statement:
I have two drop down lists 1) Finance Bucket and 2) Finance Request Type

Finance Bucket has list: [GENERAL, SPECIFIC]

If "GENERAL" is selected, [Warranty, Warranty_LU] is listed in the 2nd drop down list
If "SPECIFIC" is selected, [WARRANTY_NU, WARRANTY_RS] is listed in the 2nd drop down list

I am just using some dummy wordings due to privacy reasons.

Scenario:
First, I select "GENERAL" and choose the Finance Request Type to "Warranty". This is correct!
Next I change the Finance Bucket to "SPECIFIC" and forget to update the Finance Request Type to either WARRARY_NU or WARRANTY_RS

Question:
If the primary list is changed, how can I make the 2nd drop down list to show a default value (e.g. blank)?
Could someone help? I have a serious problem with this issue. Example EXCEL file is attached below


Thanks in advance

Besides making the Cell blank, you can with code automatically drop the next cell when you change H3

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$H$3" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Target.Offset(1, 0).Select
    Application.SendKeys ("%{Down}")

End Sub

Place this in your worksheet module, select the dropdown in H3 and H4 list will automatically drop down.

Pl see the attached file.
Worksheet_change event used for "Item" Sheet.
Validation condition for H5 changed .ie If H4 is blank no drop down list for H5.
You can extend the code for how many levels you want.

Team,

I combined both the codes that were provided by you both to the following:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$3" Then
[H4] = ""
Target.Offset(1, 0).Select
Application.SendKeys ("%{Down}")
End If

If Target.Address = "$H$4" Then
[H5] = ""
Target.Offset(1, 0).Select
Application.SendKeys ("%{Down}")
End If

End Sub

This has now provided me with more than i was looking for!

I really appreciate the willingness shown here for helping others. Very much obliged!