23. juni 2016 - 14:30Der er
4 kommentarer og 1 løsning
Samle stregkoder
Hej Jeg en række produkter, hvor alle har en unik stregkode, men samme varenr. kan optræde flere gange, listen kan se sådan ud, men vil ofte bestå af flere hundrede varelinier. Varenr Beskrivelse Stregkode 123 Mel N123FSA 123 Mel N2GH0Z1 321 Sukker N2QA12R 321 Sukker N1P061D 678 Gryn N1R32PG 678 Gryn N1D1E1R 456 Kaffe N1AACM5 Er det muligt at lave noget programmering der sætter stregkoderne i forlængelse af hinanden, hvis varenr. er det samme. Adskilt med ; Jeg har en anden liste, hvor hvert varenummer kun optræder en gang, og ud for hvert varenummer vil jeg gerne have rækken af stregkoder
Jeg gætter på, at data ligger i Excel. Hvis du har listen med alle varer i ark1, og listen med unikke varer i ark2, kan du bruge følgende kode:
Sub Stregkode()
t = 2
Do Until Sheets("Ark2").Cells(t, 1) = "" 'For alle unikke varenumre (placeret i ark2)
n = 2 Do Until Sheets("Ark1").Cells(n, 1) = "" 'For alle varer i listen (placeret i ark1)
If Sheets("Ark2").Cells(t, 1) = Sheets("Ark1").Cells(n, 1) Then Sheets("Ark2").Cells(t, 3) = Sheets("Ark2").Cells(t, 3) & Sheets("Ark1").Cells(n, 3) & ";" End If
Ja Jessen det er i Excel, men jeg kan desværre ikke få koden til at virke. På Ark1 står Varenr. i kolonne A, Beskrivelse i kolonne B og Stregkode i kolonne C. På Ark2 står varenr. i kolonne A, Beskrivelse i kolonne B og så vil jeg gerne have samlet stregkoderne i kolonne C. Jeg får denne fejlmeddelelse, og maker er ikke deaktiveret. Makroen "Stregkodesamler.xlsm"!Afrundetrektangel1_Klik' kan ikke køres. Makroen er måske ikke tilgængelig i denne projektmappe, eller alle makroer er deaktiveret.
1) Tjek at koden er placeret i et 'Module' i VBA editoren i Excel. 2) Tjek at makroer er aktiveret i Excel.
Jeg foreslår at du googler dig frem til løsninger på ovenstående - det er formentlig hurtigst.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
