This was doing my head in - the following should work
Sub test()
Dim a As Variant
Dim Cmb_First_Name As String, Cmb_Last_Name As String
Cmb_Last_Name = "Jones": Cmb_First_Name = "Adam"
a = Evaluate("=INDEX(C:C,MATCH(1,INDEX((A:A=" & """" & Cmb_First_Name & """" & ")*(B:B=" & """" & Cmb_Last_Name & """" & "),0,1),0))")
End Sub
Since I did not set up comboboxes you should just have to try
dim a as variant
a = Evaluate("=INDEX(C:C,MATCH(1,INDEX((A:A=" & """" & Cmb_First_Name.value & """" & ")*(B:B=" & """" & Cmb_Last_Name.value & """" & "),0,1),0))")
Txt_Day.value = a
'or just use
Txt_Day.Value = Evaluate("=INDEX(C:C,MATCH(1,INDEX((A:A=" & """" & Cmb_First_Name.Value & """" & ")*(B:B=" & """" & Cmb_Last_Name.Value & """" & "),0,1),0))")
I assume Cmb_First_Name and Cmb_Last_Name are comboboxes?
Let me know how you get on
Bookmarks