QR-code genereren

[Cor-Assa]

Ik heb een oplossing gevonden voor het genereren van een QR -code,

https://www.extendoffice.com/documents/excel/5404-excel-create-qr-code.html Deze werkt op zich goed alleen moet ik steeds de cellen opnieuw selekteren, kan dit ook vast geprogrammeerd worden? Zodat ik alleen maar op de knop hoef te drukken? Eventueel zelfs de optie dat als ik vanuit een ander tabblad naar dit tabblad spring het helemaal automatisch gaat?   B.v.d. Cor Assa

QR-code test.xlsm

[bakerman]

In bladmodule.

Code werkt als je van een ander tabblad het werkblad met de QR-code selecteert.

 

Private Sub Worksheet_Activate()
    Dim xSRg As Range, xRRg As Range, xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Range("B9")
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Range("E3")
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

 

[Cor-Assa]

Bedankt bakerman, ga ik uit proberen.

 

Gr. Cor Assa