Hey NICO,
Thank you for your comment. I am replying on behalf of ExcelDemy. You can use the IF function to check through every error group. The formula will be something like this:

ID=IFERROR(IF(error group = 1,TEXTJOIN(“, “,TRUE,FILTER(ID array ,error group 1 array=”x”,””)),IF(error group = 2,TEXTJOIN(“, “,TRUE,FILTER(ID array ,error group 2 array=”x”,””)),IF(error group = 10,TEXTJOIN(“, “,TRUE,FILTER(ID array ,error group 10 array=”x”,””)),””))) ,””)

I hope this will help you to solve your problem. Please let us know if you have other queries.
Regards
Mashhura Jahan
ExcelDemy.

Hi BIANKA,
Thanks for your comment. I am replying to you on behalf of ExcelDemy. If you want to get the distance in KILOMETERS then you can use the following VBA code and the rest of the procedures will be the same.

Option Explicit

Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String)

Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String

First_Value = "https://dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins="
Second_Value = "&destinations="
Last_Value = "&travelMode=driving&o=xml&key=" & keyvalue & "&distanceUnit=mi"

Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP")

mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value
mitHTTP.Open "GET", mitUrl, False
mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
mitHTTP.Send ("")
Driving_Distance = Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3) * 1.60934, 0)

End Function

I hope this will help you to solve your problem. Please let us know if you have other queries.
Regards
Mashhura Jahan
ExcelDemy.

Hi XIONG YANG,
Thanks for your comment. I am replying on behalf of ExcelDemy. You can not add a label directly in the QR Code. But, you can add a label to the cell where you are inserting the QR Code by following these simple steps.
Step-01: Write the following VBA code in the module instead of the code that is provided in this article.
Function GenerateQR(qrcode_value As String)
Dim URL As String
Dim My_Cell As Range
Set My_Cell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcode_value
On Error Resume Next
ActiveSheet.Pictures("My_QR_CODE_" & My_Cell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "My_QR_CODE_" & My_Cell.Address(False, False)
.Left = My_Cell.Left + 5
.Top = My_Cell.Top + 5
End With
GenerateQR = ActiveCell.Offset(0, -1).Value
End Function

Now, Save the code and go back to your worksheet.
Step-02: Select the cells where you want the QR Codes >> go to the Home tab >> select Bottom Align.

Step-03: Select the cell where you want the QR Code >> write the following formula in that cell.
=GenerateQR(B5)

Next, press Enter and you will get the QR Code with the Label.

Step-04: Finally, get the QR Codes for other data in the same way.

I hope this will help you to solve your problem. Please let me know if you have other queries.
Regards
Mashhura,
ExcelDemy.

Hey MARK,
Thanks for your comment. I am replying to you on behalf of ExcelDemy. For the provided practice workbook, I used the following VBA code and it solved this problem for me.

Function QR_Generator(qrcodes_values As String)

Dim Site_URL As String
Dim Cell_Values As Range

Set Cell_Values = Application.Caller
Site_URL = "https://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcodes_values
On Error Resume Next
Worksheets("Using User Defined Function").Pictures("Generated_QR_CODES_" & Cell_Values.Address(False, False)).Delete
On Error GoTo 0
Worksheets("Using User Defined Function").Pictures.Insert(Site_URL).Select
With Selection.ShapeRange(1)
.Name = "Generated_QR_CODES_" & Cell_Values.Address(False, False)
.Left = Cell_Values.Left + 2
.Top = Cell_Values.Top + 2
End With
QR_Generator = ""

End Function

Now, Save the code and go back to your worksheet. Let’s see the steps of using the function.
Step-01: Select the cells where you want the QR Codes. Here, I selected cell range D5:D7 >> write the following formula.
=QR_Generator(C5)

Step-02: Press Ctrl + Enter and you will get your desired output.

I hope this will help you to solve your problem. Please let me know if you have other queries.
Regards
Mashhura,
ExcelDemy.

Hello Alun Vaughan-Evans,
Thanks for your comment. I am replying to you on behalf of ExcelDemy. There is a way to keep the formatting and also values. You can follow these steps to do that.
Step-01: Select the range you want to copy and then copy the range by pressing Ctrl + C on your keyboard.

Step-02: Select the cell where you want to paste the range. And then go to Home > Paste > Values & Source Formatting (like the following image).

Finally, you will see that you have copied the values with formatting.

I hope this will help you to solve your problem. Please let me know if you have other queries.
Regards
Mashhura
ExcelDemy

Hi SEM,
Thanks for your comment. I am replying to you on behalf of ExcelDemy. If you want to filter dates older than a number of days from today, you can follow the steps from Method-2. But, instead of the formula used here, write the following formula.
=C5<(TODAY()-30)

Here, I wrote the formula for dates older than 30 days from today. You can change the formula according to your preference.
I hope this will help you to solve your problem. Please let me know if you have other queries.
Regards
Mashhura
ExcelDemy

Hello DQNOK,
Thank you for your feedback.