MD Tanvir Rahman

Dear Jae, You have my heartfelt gratitude. I found your queries quite distinctive and innovative. Yes, you can find out Names based on multiple data. Although there is no single functions in VBA that can extract result based on data, you must apply multiple VBA functions such as SPLIT, COUNTA, OFFSET, IF to get the job done.

Step 1: Write the VBA code in the module and hit the Run icon.

VBA Code

Sub Find_Names_Based_on_Multiple_Data()
Dim rng As Range
Dim words() As String
Dim ws As Worksheet
Dim text As String
Dim i As Long
Dim j As Long
Dim countResult As Long
Set rng = Range("A1:A8")
Set ws = ThisWorkbook.ActiveSheet

'Clearing cells of output
Range("B2:D8").Delete
Range("A13:A17").Delete

For i = 2 To rng.Rows.Count     'Executing FOR loop to consider each row
    text = Cells(i, 1).Value    'Picking up cell values from A2:A8 range
    words = Split(text, " ")    'Applying Array to split based on space
        For j = 2 To UBound(words) + 2  'Applying FOR loop for column counting
            ws.Cells(i, j).Value = words(j - 2) 'split data based on column A
        Next j
    'Counting column containing text in each row
    countResult = Application.WorksheetFunction.CountA(Range("B" & i & ":E" & i))
    If countResult = ws.Range("B10").Value Then     'matching column no to Value of B10
        If ws.Cells(13, 1).Value = "" Then  'If there is no  value then write output in A13
            ws.Cells(13, 1).Value = Cells(i, 1).EntireRow.Value
        Else    'If multiple value appears then write below the existing
            ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Cells(i, 1).EntireRow.Value
        End If
    End If
Next i
End Sub

Step 2: Obtain output as follows.

Thanks a ton. Have a good day.
Regards,
MD Tanvir Rahman
Excel and VBA Content Developer
ExcelDemy, Softeko

Hello! Peter Atallah, Thanks for the Query. It sounds like you’re encountering an issue with the “Find and Replace” feature in Microsoft 365 Apps for Enterprise, where you used to see a message box indicating the number of replacements made, but it’s no longer appearing. Here are a few steps you can try to troubleshoot and resolve this issue:
1. Check Notification Settings: Make sure that notifications are enabled in your Microsoft Office settings. Sometimes, notifications may have been disabled, which could prevent the message box from appearing.
2. Update or Repair Office Installation: Ensure that your Microsoft Office installation is up to date. Sometimes, issues can arise due to outdated software. If updating doesn’t work, you could also try repairing your Office installation. To do this, go to “Control Panel” > “Programs and Features,” select Microsoft Office, and choose “Change.” Then, select “Repair” and follow the prompts.
3. Reset Office Settings: If the issue persists, you can try resetting your Office application settings to their defaults. To do this, open any Office application (e.g., Word), go to “File” > “Options” > “Advanced,” and click the “Reset” button under the “Reset” section. Please note that this will revert all customizations back to their default settings.

Please feel free to let us know the update after trying these approaches.
Thanks a ton. Have a good day.
Regards,
MD Tanvir Rahman
Excel and VBA Content Developer
ExcelDemy, Softeko

Dear Brittany, Thank you so much for your distinctive query. Here we are setting up a sample dataset of Electronics, Fashion and Snacks category. Using the following formula containing IF function in the D5 cell, you will be able to call the value of cells of the row once it is matched to a cell of same column.
=IF(C5=C$2,D$2,IF(C5=C$3,D$3,IF(C5=C$4,D$4,”Uncategorized”)))

Now drag the Fill Handle tool to fill the cells automatically.

I hope, the solution will be fruitful to you. For any further shortcomings, don’t forget to reach us. Have a good day.
Regards,
MD Tanvir Rahman
Excel and VBA Content Developer
Exceldemy, Softeko

Hello Asmitha, Thanks for your query. I found it very fascinating. Yes, we can insert a image in the A1 cell and export it to the Outlook in the middle of the email body.
Put the following VBA code in the module and get the output like below image.

Sub Insert_Image_Into_Excel_And_Send_Email()
    Dim imagePath As String
    imagePath = "E:\tanvir\Job\Softeko\Article\Exceldemy\Comment\1\a.png" ' Replace with your directory

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with the name of your worksheet

    ' Insert the image into cell A1
    With ws.Shapes.AddPicture(imagePath, True, True, 0, 0, -1, -1)
        .Left = ws.Range("A1").Left
        .Top = ws.Range("A1").Top
        .Width = ws.Range("A1").Width
        .Height = ws.Range("A1").Height
    End With

    ' Send the email with the image attached
    Send_Email_With_Image_Attachment imagePath
End Sub

Sub Send_Email_With_Image_Attachment(imagePath As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim HTMLBody As String

    ' Create a new instance of Outlook
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)

    ' Compose the email
    With OutlookMail
        .Subject = "Email with Image Attachment"
        .To = "[email protected]" ' Replace with the recipient's email address
        .CC = "[email protected]" ' Replace with CC email addresses (if needed)
        .HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is an image attached from Excel:" & vbNewLine & vbNewLine & "<br><br>" & "<img src='" & imagePath & "'><br><br>" & _
                    "Regards," & vbNewLine & "Your Name"

        ' Attach the image to the email
        .Attachments.Add imagePath, olByValue, 0 ' olByValue is used to attach by value, not by reference

        ' Uncomment the next line if you want to send the email immediately (be careful)
        ' .Send

        ' Show the email draft for review before sending (comment this line if you want to send immediately)
        .Display
    End With
End Sub

Thanks a ton and have a good day.
Regards,
MD Tanvir Rahman
Excel and VBA Content Developer
Exceldemy, Softeko