Hulp gevraagd bij Fout melding

[Theunie1965]

Mooi zo.

Hoi Gestest en helaas maakt geen nieuwe QR code maar behoudt de code van kolom B

Gr Theunie

 

[HSV]

Dit bedoel je.

Geen idee of in kolom AS meer gegevens kunnen staan dan in kolom A, want dan moet het anders.

Sub Afgeronderechthoek4_Klikken()
'
' Afgeronderechthoek4_Klikken Macro
'


'


    Dim lRow As Long
    Dim oShape As Object
    Dim oQR As Object


    With ActiveSheet


        For Each oShape In .Shapes
            If oShape.Type = msoPicture Then
                oShape.Delete
            End If
        Next


        For lRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            Set oQR = .Cells(lRow, 2)
          If Cells(lRow, 1) <> "" Then
            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
         End If
       If Cells(lRow, 45) <> "" Then
          With ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & .Cells(lRow, 45).Value)
                .ShapeRange.LockAspectRatio = msoFalse
                .Width = oQR.Offset(, 44).Width
                .Height = oQR.Offset(, 44).Height
                .Top = oQR.Offset(, 44).Top
                .Left = oQR.Offset(, 44).Left
                .Placement = xlMoveAndSize
          End With
        End If
        Next
      Application.Goto .Cells(1)
    End With
End Sub

 

[Theunie1965]

Dus deze code op de zelfde plek zetten als toe straks wat ik gedaan heb


Gr

 

[HSV]

Ja maar geheel vervangen.
Code kopiëren en plakken en de ander verwijderen.
Indien niet goed bestand niet opslaan.

 

[emields]

Is het wel zinnig van achter een stuurte kruipen als je niet weet wat een auto is?

Heb he aangepast en ook een knop gemaakt om die oude QR te verwijderen.

 

[HSV]

@emie, Jij reed net als ik bij de geboorte al auto zeker?

 

[emields]

ik heb toch enkele dagen daarna meegereden

 

[Theunie1965]

hulp

Hallo emields

Ik heb nog een vraag als ik de de kolommen van de cr code copieer en plak dan werkt het niet Het zal wel weer niet zo simpel zijn ben ik bank zou je dit of iemand anders aub werkend willen maken


Mijn dank is groot en iedereen bedankt voor de hulp en alvast fijne Feestdagen

Gr Theunie

 

[emields]

de code is natuurlijk afhankelijk van cellen, als je de plaats veranderd moet je ook de code veranderen.

 

[Theunie1965]

Hoi

Ik ben helemaal happy als ik nog iets tegen kom tijdens het verder maken van dit bestand mag ik dan weer om hulp vragen, Ik zoek eerst internet af en kijk filmpjes maar ja als je van het coderen niks snapt houdt het helaas vlug op.
Jammer dat ik niet zo goed kan studeren en gezien de leeftijd vindt ik het jammer zou er heel graag meer van willen weten en kennen vindt het een prachtig programma.

Maar alle mensen op dit Forum ontzettend bedankt voor wat jullie voor de mensen doen petje af

en allemaal fijne feestdagen en een gezond 2023

Theunie

 

[Theunie1965]

Hallo

Kan ik de volgende vraag hier ook stellen

Ik heb een Brother QL-810W Label printer
Nu zou ik graag uit het excel bestand de gegevens van Cel 1 kolom A willen uit printen als ik die cel nu selecteer dan print hij een klein strookje blanco uit van ongeveer 3 a 5 mill maar


Gr Theunie

 

[popipipo]

=D2&CHAR(10)&G2&CHAR(10)&E2&CHAR(10)&F2

In kolom A (en ook AS) kun je toch eenvoudiger deze formule zetten (evt vertalen)
Scheelt een hoop tik werk.

 

[Theunie1965]

Hoi als ik de formule erin zet geeft hij Naam! Aan meer niet

Gr Theunie

 

[popipipo]

(evt vertalen)

char= teken

 

[Theunie1965]

dus CHAR. wijzigen in Teken

=D2&CHAR(10)&G2&CHAR(10)&E2&CHAR(10)&F2

 

[popipipo]

Goed begrepen!!
CHAR is voor de engelse versie van excel en TEKEN voor de nederlandse versie.

 

[Theunie1965]

.

 

[popipipo]

De formule wel in kolom A zetten

 

[Theunie1965]

Hoi Bedankt

Dus ik met dat voor iedere rij apart makken

Gr Theunie

 

[popipipo]

Formule gewoon naar beneden doorslepen.