Is there any way that I could put multiple ranges into this and then use the results from each range to call a different "PullNumbersXXX" while using the same info from the input box?
Sub Find_Material()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("M:M")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Call PullNumbersMAT
Else
MsgBox "Nothing found"
End If
End With
End If
End Sub
Aucun commentaire:
Enregistrer un commentaire