Excel, oprette linier på baggrund af indhold i andre linier

Hvad skal der stå i de pågældende linier?

2 oplysninger oplysninger. Varenummer, måneden.

Venligst
Gundaris

Kode anbringes i VBA (ALT+F11) - ThisWorkbook:

Dim akkRæk
Private Sub workbook_activate()
    akkRæk = 1
   
    With ActiveWorkbook.Sheets(1)
        For række = 1 To 12
            varenr = .Cells(række, 1)
            måned = .Cells(række, 2)
            antal = .Cells(række, 3)
           
            opbygDetailArk varenr, måned, antal
            akkRæk = akkRæk + antal
        Next række
    End With
End Sub
Private Sub opbygDetailArk(vnr, md, ant)
    With ActiveWorkbook.Sheets(2)
        For r = akkRæk To ant + akkRæk
            .Cells(r, 3) = vnr
            .Cells(r, 4) = md
        Next r
    End With
End Sub

Hej igen

Jeg har lagt koden ind, og taster herefter ind mit regneark, men der sker ikke rigtig noget herefter. Skal der komme noget af sig selv eller skal jeg aktiverer det (og hvordan gør jeg det)?

Og så har jeg lige et spørgsmål mere. Hvordan sender jeg de 200 point til dig ?

Venligst
Gundaris

Jeg tror jeg har fundet ud af det med point. Hvis du laver et svar istedet for kommentar, kan jeg accepterer det, og du modtager herefter de 200 point - Tror jeg. Korriger mig venligst hvis det er forkert.

Du har nok fundet ud af, at koden påbegyndes når filen åbnes. Hvis det er uhensigtsmæssigt, så kan du ændre navnet på følgende:

Private Sub workbook_activate() -> Sub StartOpbygning() og så oprette en knap, der aktivere denne "Sub".

Er der flere spørgsmål - så blot kontakt mig - evt. direkte: pb@supertekst-it.dk

Du får et svar, som du blot kan acceptere...