jeudi 20 mai 2021

Is it possible to use one inputbox for multiple if statements excel?

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