Hulp gevraagd bij Fout melding

[Theunie1965]

Hallo mensen

Ik heb hier hulp gehad met het aanmaken van QR-code in excel bestand

Nu werkte het goed en op eens krijg ik fout meldingen als ik een QR Code wil genereren.

Wie kan mij helpen dit probleem op te lossen helaas heb ik er geen verstand van



Mvgr Theunie

 

[emields]

zal een beetje moeilijk zijn in een leeg blad.

 

[Aar]

Welke foutmelding krijg je? En wat doe je precies?

 

[Theunie1965]

Toch zie ik het bestand

 

[Theunie1965]

Als ik in kolom A gegevens in vul zou in kolom B de CR code moeten komen als ik op de knopdruk


Gr Theunie

 

[HSV]

Tja, als .Cells(iRow,1) in dit geval cel A9 dus leeg is.

 

[Theunie1965]

Hoi hierbij nogmaals het bestand

 

[Theunie1965]

Hoi zou jij het probleem voor mij kunnen en willen aanpassen voor die hele kolom aub

Gr Theunie

 

[HSV]

Het rode gedeelte erbij zetten

For lRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            Set oQR = .Cells(lRow, 2)
[COLOR=#ff0000]          If Cells(lRow, 1) <> "" Then[/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
                .Placement = xlMoveAndSize
            End With
[COLOR=#ff0000]        End If[/COLOR]
        Next

 

[Theunie1965]

Tja, als .Cells(iRow,1) in dit geval cel A9 dus leeg is.

Hoi Is het mogelijk dat u dat voor mij zou willen doen want alle cellen vanaf 9 tot 25 werken niet ik zou echt niet weten hoe ik dit moet doen


Gr Theunie

 

[HSV]

Zie #9 van 20:10 uur.

 

[Theunie1965]

Hoi

U geeft aan wat ik moet erbij zetten maar ik weet bij god naar waar ik dat moet doen en waar ik dat kan vinden sorry

Gr Theunie

 

[HSV]

Dan wordt dat eens tijd.

Druk Alt+F11.
In de projectverkenner linkerkant van het scherm zie je onderaan 'modules'.
Klik op het plusteken wat daarvoor staat.
Nu dubbelklik je op 'Module1' wat net verscheen.
In het grote witte vlak staat de code.

 

[Theunie1965]

Uhh

Waar vindt ik project verkenner ¡¡¡. en ik heb. een Mac dus geen alt toets

 

[HSV]

Opt + F11 of Fn + Opt + F11 for MAC.

 

[Theunie1965]

Hartelijk bedankt

Het werkt helemaal Happy

Gr Theunie

 

[HSV]

Mooi zo.

 

[Theunie1965]

Nogmaals bedankt

Gr Theunie

 

[Theunie1965]

Toch nog een vraagje

Als ik kolom A en B. wil copyeren naast kolom Ar is dat dan gewoon copy en plakken en alles werkt of moet ik nog ergens rekening mee houden.

Gr Theunie

 

[HSV]

Dat kun jezelf het best even testen.