Probleem met QR code in Kolom

[Theunie1965]

Hallo

Eerst werkte alles prima nu in eens werkt kolom AT de QR code niet meer hij geeft steeds iets weer wat er voor heen heeft gestaan.
Wat is er mis gegaan ik ben geen expert ik heb hier gelukkig al goede hulp gehad.

Gr Theunie

 

[edmoor]

Dat komt omdat je iedere keer een nieuw plaatje toevoegt zonder eerst de bestaande te verwijderen.
Maak er eens dit van:

Sub Rechthoek1_Klikken()
    Dim lRow As Long
    Dim oShape As Object
    Dim oQR As Object
    With ActiveSheet
        For lRow = 2 To .[as10000].End(xlUp).Row
              Set oQR = .Cells(lRow, 46)
              If .Cells(lRow, 45) <> "" Then
[COLOR="#FF0000"]                On Error Resume Next
                ActiveSheet.Shapes("QRcodeAT" & lRow).Delete
                On Error GoTo 0[/COLOR]
                With ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & .Cells(lRow, 1).Value)
                    .ShapeRange.LockAspectRatio = msoFalse
                    .Width = oQR.Width
                    .Height = oQR.Height
                    .Top = oQR.Top
                    .Left = oQR.Left
                    [COLOR="#FF0000"].Name = "QRcodeAT" & lRow[/COLOR]
                    .Placement = xlMoveAndSize
                End With
            End If
        Next
    End With
End Sub

 

[Theunie1965]

Hoi Uhh hou doe je dat heb er echt geen idee van


Gr Theunie

 

[edmoor]

Dat staat toch echt in het document dat je zelf plaatste:
Bekijk bijlage Muizen & Ratten kweek incl QR-code.xlsm

Een VBA training gaan we hier niet geven uiteraard:
https://www.excel-pratique.com/en/vba

 

[Theunie1965]

Ik heb het eindelijk gevonden en de code vervangen voor die van jou maar helpt niet doet nog steeds het zelfde


Gr Theunie

 

[edmoor]

De code doet het prima.
Je moet natuurlijk wel eerst de bestaande QR code plaatjes verwijderen.

 

[Theunie1965]

Hoi in alle kolommen B en AT toch

Gr Theunie

 

[edmoor]

Ik wijzigde de code voor kolom AT.
Dat zal je dan zelf voor kolom B moeten doen.
En daar dan inderdaad ook eerst de bestaande plaatjes verwijderen.

De nieuwe plaatjes voor Kolom B geef je dan uiteraard ook een andere naam dan die voor kolom AT.

 

[Theunie1965]

Ik heb de code erin gedaan eerst alles verwijderd maar A tekst Kolom B QR code klommen maar in As de tekst komt niet als QR code in de kolom AT hij pakt de gegevens van Kolom A


Gr Theunie

 

[edmoor]

Dan heb je het niet goed gedaan.
Verdiep je eens in wat die code precies doet.
Voor deze keer dan:

 

[Theunie1965]

Hoi bedankt het zal wel aan mij liggen maar ik heb jou bestand gedownload en in kolom AS Niemand thuis getypt en toen op de knop maak QR code en ik scan die en krijg de gegevens van kolom A te lezen


Gr Theunie

 

[Theunie1965]

Heb alleen even Test 3 3rvan gemaakt

 

[edmoor]

Ik heb niet de mogelijkheid de QR code te scannen, dus dat kon ik niet zien.
Wijzig in Rechthoek1_Klikken de 1 in 45:

With ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & .Cells(lRow, [COLOR="#FF0000"]45[/COLOR]).Value)

 

[Theunie1965]

Hoi Hoi

Yes het werkt ben zo blij Bedankt

Mag ik nog wat vragen aub is het mogelijk in excel dat als ik in Kolom D2-E2-F2-G2. de tekst zet dat dan automatisch in Kolom A de tekst komt

Gr Theunie

 

[edmoor]

Dat kan, maar heb ik nu even geen tijd voor.

 

[Theunie1965]

Hoi als u daar tijd voor heeft kunt u mij dat dan uit leggen


Gr Theunie

 

[Theunie1965]

Hartelijk bedankt

Ik wens u fijne feestdagen

Gr Theunie

 

[edmoor]

Wegens een foutje had ik het document verwijderd:
Bekijk bijlage Test 3Muizen & Ratten kweek incl QR-code.xlsm

Ook fijne feestdagen gewenst