vba help - Keep partial find while saving workbook

[Mallesh23]

Hi Team,

I want to find exact match while Running Macro, and while saving ACTIVE workbook I want find function back to Partial Match.

what is the correct way to do that.

Sub test()
Dim FoundItem As Range
On Error Resume Next
    Set FoundItem = Range("A2:a5").Find("Chicago", LookIn:=xlValues, LookAt:=xlWhole)
    Set FoundItem = Range("A2:a5").Find("xyz", LookIn:=xlValues, LookAt:=xlPart)
On Error GoTo 0
Activeworkbook.saveas thisworkbook.path & "\" & "xyz.xlsx"
end sub

End Sub

 

[Trebor76]

Maybe create a separate variable for each and only do the save if the second variable has found something i.e.

Option Explicit
Sub test()
    Dim FoundItemWhole As Range, FoundItemPart As Range
    On Error Resume Next
        Set FoundItemWhole = Range("A2:A5").Find("Chicago", LookIn:=xlValues, LookAt:=xlWhole)
        Set FoundItemPart = Range("A2:A5").Find("xyz", LookIn:=xlValues, LookAt:=xlPart)
    On Error GoTo 0
    If Not FoundItemPart Is Nothing Then
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & FoundItemPart.Value & ".xlsx"
    Else
        MsgBox "There was no partial match found to name the workbook.", vbExclamation
    End If
End Sub

Hope that helps.

Robert