Snasui Excel Forum

Code: Select all

Dim lookup1, lookup2 As Long

With Application.WorksheetFunction
lookup1 = .VLookup(Me.cboMonth & "/" & Me.tboDay & "/" & Me.tboYear.Value, Sheet2.Range("Table"), 6, 0)
lookup2 = .VLookup(Me.cboMonth & "/" & Me.tboDay & "/" & Me.tboYear.Value, Sheet2.Range("Table"), 7, 0)
End With

With Sheet2
        .Cells(lookup1).Value = Me.tbox1.Value
        .Cells(lookup2).Value = Me.tbox2.Value
        
 End With

Code: Select all

Private Sub CommandButton1_Click()
    Dim lookup1 As Long, mRange As Range
    On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    lookup1 = Application.Match(mRange, Sheet2.Range("b:b"), 0)
    With Sheet2
        .Cells(lookup1, "g").Value = Me.tbox1.Value
        .Cells(lookup1, "h").Value = Me.tbox2.Value
     End With
     mRange.ClearContents
End Sub