Avatar billede dantyr Juniormester
21. november 2014 - 15:04 Der er 13 kommentarer og
1 løsning

Tal fra en celle vises antal gange pga anden celle

Kan jeg lave sådan at en række (A) har forskellige tal. og række (B) har så antal stk.
Jeg vil så gerne på ark 2 have så det nummer der står i række (A) vises antal gange efter tal i række (B).
Det skal bruget til at printe ud på klistermærker.
http://tinypic.com/r/w20pqg/8
http://i60.tinypic.com/w20pqg.jpg
Avatar billede kabbak Professor
21. november 2014 - 16:01 #1
Stå i ark1 og kør så koden, den skal i et kodemodul


Public Sub Labels()
    Dim Data As Variant, I As Integer, K As Integer, Col As Integer, Rw As Integer
    Data = ActiveSheet.Range("A1").CurrentRegion
    Col = 0
    Rw = 1
    For I = 1 To UBound(Data, 1)
        For K = 1 To Data(I, 2)
            Col = Col + 1
            If Col = 6 Then
                Col = 1
                Rw = Rw + 1
            End If
            Worksheets("Ark2").Cells(Rw, Col) = Data(I, 1)'ret Ark2 til dit labelsark

        Next
    Next
End Sub
Avatar billede dantyr Juniormester
21. november 2014 - 20:38 #2
Og et kodemodul er det det samme som en macro? det kan jeg ikke få til at virke
Avatar billede kabbak Professor
21. november 2014 - 20:47 #3
Hent eksempel her

http://gupl.dk/716592/
Avatar billede dantyr Juniormester
21. november 2014 - 21:01 #4
Fedt det ser helt rigtig ud..... Men jeg kan vel ikke få dig til at lave den på min. Ark (serie 47) Række "H"tallet og række "G" for stk... Point til dig.... og jeg takker helt vild...... Det er noget dem der sidder med det normalt har sagt ikke kunne lade sig gøre så fedt....
http://gupl.dk/716595/
Avatar billede dantyr Juniormester
21. november 2014 - 21:04 #5
på et nyt ark :)
Avatar billede kabbak Professor
21. november 2014 - 21:36 #6
Her oprettes et nyt ark, som navngives "Labels", hvis det findes når makroen startes, slettes det og et nyt skabes.

Public Sub Labels()
    Dim Data As Variant, I As Integer, K As Integer, Col As Integer, Rw As Integer
    RK = Worksheets("Serie 47").Range("G1").End(xlDown).Row
    Data = Worksheets("Serie 47").Range("G1:H" & RK)
    Col = 0
    Rw = 1
    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets("Labels").Delete    ' advarsel for sletning undertrykkes
    Application.DisplayAlerts = True
    On Error GoTo 0
    Sheets("Plan").Select
    Worksheets.Add
    ActiveSheet.Name = "Labels"

    For I = 2 To UBound(Data, 1)
        For K = 1 To Data(I, 1)
            Col = Col + 1
            If Col = 6 Then
                Col = 1
                Rw = Rw + 1
            End If

            Worksheets("Labels").Cells(Rw, Col) = Data(I, 2)    'ret Ark2 til dit labelsark

        Next
    Next
End Sub
Avatar billede dantyr Juniormester
21. november 2014 - 23:09 #7
OHHHH det virker ikke lige men prøver lige lidt mere.......;) TAK
Avatar billede kabbak Professor
21. november 2014 - 23:13 #8
Avatar billede dantyr Juniormester
21. november 2014 - 23:14 #9
Har prøve at ligge det over i din.... Kan jeg på en nem måde lave så alle celler der starter med 1 rød,
2 gul, 3 blå, 4 blå, 5 hvid.... Jeg har lavet det 1rød i en celle, med kan jeg ikke lave det over flere på engang
Avatar billede kabbak Professor
21. november 2014 - 23:22 #10
Jeg arbejder desværre kun i Excel 2003 herhjemme, så jeg kan ikke
Avatar billede dantyr Juniormester
22. november 2014 - 00:05 #11
Ok men tak for din hjælp
Avatar billede dantyr Juniormester
22. november 2014 - 00:10 #12
Den fil af min du har lavet hvor er "knappen" ??
Avatar billede kabbak Professor
23. november 2014 - 21:55 #13
den  må du selv lave, jeg vidste ikke hvor den må sidde
Avatar billede dantyr Juniormester
23. november 2014 - 22:02 #14
ok takker... super godt... Du har været en kæmpe hjælp....
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester