Need help with VBA-generated QR Code

[YansaneYansane]

Hi Tech,

Need help with VBA-generated QR Code based on values in certain cells.........................
Series, Firstname, Lastname, Math Grade, Stat Grade, English Grade, Email, Tel, Notification.

Thank you

 

[Trebor76]

Hi Yansane,

Does it have to be code? Assuming the data starts in Row 3 you could use this:

=TEXTJOIN("",TRUE,A2:I2)

This could easily be converted into a macro if you really need it.

Regards,

Robert

 

[YansaneYansane]

Hi Yansane,

Does it have to be code? Assuming the data starts in Row 3 you could use this:

=TEXTJOIN("",TRUE,A2:I2)

This could easily be converted into a macro if you really need it.

Regards,

Robert

Hi Robert,

I'd definitely use macro as I really need it.
Yes, the data starts in row 3.

Thank you

 

[Trebor76]

Try this:

Option Explicit
Sub Macro1()

    Dim wsSrc As Worksheet
    Dim lngLastRow As Long
    
    Application.ScreenUpdating = False
    
    Set wsSrc = ThisWorkbook.Sheets("Sheet1") '<-Sheet name with the data. Change to suit if needed.
    
    On Error Resume Next
        With wsSrc
            .ShowAllData
            .Columns.EntireColumn.Hidden = False
            .Rows.EntireRow.Hidden = False
            lngLastRow = wsSrc.Range("A:I").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            If lngLastRow >= 3 Then
                .Range("J3:J" & lngLastRow).Formula = "=TEXTJOIN("""",TRUE,A3:I3)"
                'Use (uncomment) the following two lines if you want only the values of the formulas to remain
                'wsSrc.Calculate
                '.Range("J3:J" & lngLastRow).Value = .Range("J3:J" & lngLastRow).Value '<-Use this if you want the values of the formula to show only.
            End If
        End With
    On Error GoTo 0
    
    Application.ScreenUpdating = True

End Sub

 

[Peter_SSs]

Duplicate to: Need help with VBA-generated QR Code

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.

I note also that you have already been told about this recently: VLookup or Match or Index: """Trying to figure out how to use formula to enter matching value in a sheet, based on small data from another sheets"""
If you continue to post duplicate questions further action will be taken.