Avatar billede mercu Nybegynder
11. november 2009 - 14:17 Der er 2 kommentarer

Oprette ark for hver produktgruppe

Jeg har et lille problem.

Jeg skal lave en sub, som kan oprette et nyt ark i min workbook for hvergang jeg løber ind i en ny produkt grupppe.

Jeg tænker jeg skal gøre noget lignende:

antalrækker = offset(0,1).end(xldown).countrows

for i = 1 to antalrækker

if ??

then

thisworkbook.sheets.add.name = prodnavn

jeg kan dog ikke rigtigt finde ud af, hvordan jeg skal formulere min if betingelse
Avatar billede tjacob Juniormester
11. november 2009 - 15:06 #1
Hvis vi går ud fra at arkene har navne efter teksten i de celler du løber igennem, så kan du for hver celle tjekke om der findes et ark med dette navn, og hvis ikke så oprette arket. Her er lidt pseudokode -Du skal selv rette den til:


    For i = 1 To antalrækker
        prodnavn = Cells(i,1).Value
        For j = 1 To Sheets.Count
            If Sheets(i).Name = prodnavn Then Exit For
        Next j
        If j = Sheets.Count + 1 Then
            ThisWorkbook.Sheets.Add.Name = prodnavn
        End If
    Next i
Avatar billede tjacob Juniormester
11. november 2009 - 15:08 #2
Der er en lille fejl:

    If Sheets(i).Name = prodnavn Then Exit For

rettes til:

    If Sheets(j).Name = prodnavn Then Exit For
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
Kurser inden for grundlæggende programmering

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

IT-JOB

HusCompagniet A/S

IT-driftskonsulent

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger analytisk stærk og erfaren medarbejder i Hvidovre

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger to sektionschefer til Systemafdelingen i Hvidovre

Forsvarsministeriets Materiel- og Indkøbsstyrelse

MLOps Engineer til opbygning af Forsvarets nye AI-platform