ok here is what I've tried to use what I've gotten above along with what I've read and tried to put together with it to find the next matching range with in the given range and display its information. this is the first thing that I've tried that hasn't come back with some kind of error but it doesn't return anything at all. you click the button and nothing

Sub FindValue()

Dim c As Range

Dim firstAddress As String

With Worksheets(1).Range("A101:I")

Set c = .Find(ComboBox1.Text And Range("B" & Rng.Row).Value = ComboBox2.Text And Range("C" & Rng.Row).Value = ComboBox3.Value, LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

c.Value = Range.Select

Set c = .FindNext(c)

Loop While Not c Is Nothing

End If

End With

End Sub

Function GetColumnCRangeForCriteria() As Range

Dim LstRw As Long, Rng As Range, Result As Range

If Len(ComboBox1) = 0 Or Len(ComboBox2) = 0 Or Len(ComboBox3) = 0 Then

Err.Raise 101

End If

LstRw = Cells(Rows.Count, "A").End(xlUp).Row

For Each Rng In Range("a101:a" & LstRw)

If Rng.Value = ComboBox1.Text And Range("B" & Rng.Row).Value = ComboBox2.Text And Range("C" & Rng.Row).Value = ComboBox3.Value Then

Set GetColumnCRangeForCriteria = Range("C" & Rng.Row)

Exit Function

End If

Next Rng

Err.Raise 102

End Function

Private Sub CommandButton2_Click()

Dim Rng As Range

On Error Resume Next

Set Rng = GetColumnCRangeForCriteria

If Err.Number = 101 Then

' Not all inputs have been completed

Exit Sub

End If

If Err.Number = 102 Then

' Criteria not found

MsgBox "Unable find selected criteria"

Exit Sub

End If

With UserForm1

.OutPutLabel3.Caption = FindNext.Value

.TextBox1.Value = FindNext.Offset(0, 1).Text

.TextBox2.Value = FindNext.Offset(, 2).Text

.TextBox3.Value = FindNext.Offset(, 3).Text

.TextBox4.Value = FindNext.Offset(, 4).Text

.TextBox5.Value = FindNext.Offset(, 5).Text

.TextBox6.Value = FindNext.Offset(, 6).Text

End With

UserForm1.Show

End Sub