C
Corey
In my quest to perform a coded FIND i have reached the following code/s.
The first code is for the FIND.
The second is the Cell Values from 2 ComboBoxes.
_____________________________________________________________
Private Sub userform3OK_Click()
' FIND Code
Cells.Find(What:=ComboBox4&ComboBox3, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
End Sub
__________________________________________________________________
Private Sub Userform_Activate()
' ComboBoxes and Userform Code
Dim wks As Worksheet
For Each wks In Worksheets
ComboBox3.AddItem wks.Range("B3").Text
Next wks
For Each wks In Worksheets
ComboBox4.AddItem wks.Range("D3").Text
Next wks
End Sub
___________________________________________________________________
I can yet get the FIND Code to Display (Somehow) ALL Sheets that Contain
both the ComboBox3 & ComboBox4 Values in a Single WorkSheet.
Like in a Manual (CTR+F) Find All Sheets FIND.
Any idea's.
Corey....
The first code is for the FIND.
The second is the Cell Values from 2 ComboBoxes.
_____________________________________________________________
Private Sub userform3OK_Click()
' FIND Code
Cells.Find(What:=ComboBox4&ComboBox3, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
End Sub
__________________________________________________________________
Private Sub Userform_Activate()
' ComboBoxes and Userform Code
Dim wks As Worksheet
For Each wks In Worksheets
ComboBox3.AddItem wks.Range("B3").Text
Next wks
For Each wks In Worksheets
ComboBox4.AddItem wks.Range("D3").Text
Next wks
End Sub
___________________________________________________________________
I can yet get the FIND Code to Display (Somehow) ALL Sheets that Contain
both the ComboBox3 & ComboBox4 Values in a Single WorkSheet.
Like in a Manual (CTR+F) Find All Sheets FIND.
Any idea's.
Corey....