Excel Forum

Code: Select all

Private Sub cboDay_Change()
Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Private Sub cboMonth_Change()
Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Private Sub cboYear_Change()

  Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Code: Select all

Private Sub cboDay_Change()
    Dim mRange As Range
    On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    If Me.cboMonth.Text <> "" And Me.cboDay.Text <> "" And Me.cboYear.Text <> "" Then
        mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    Else
        Exit Sub
    End If
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Code: Select all

Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)