
Originally Posted by
Simon Lloyd
You'll need to sort your list of dates or allow direct entry by changing Match Required to False on combobox2 but this worked fine in my test:
[vba]
Private Sub CommandButton1_Click()
Dim rFound As Long, dFound As Long
Dim Rng As Range
Me.ComboBox2.Value = Format(ComboBox2.Value, "mmmm dd")
rFound = Range("C22:C" & Range("C" & Rows.Count).End(xlUp).Row).Find(What:=UserForm1.ComboBox1.Value, _
After:=Range("C22"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row
dFound = Cells.Find(What:=UserForm1.ComboBox2.Value, After:=Range("C22"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Column
Cells(rFound, dFound).Value = "Recieved"
Unload Me
End Sub
[/vba]