automatisk oprettelse af ark ud fra liste

"En masse ark (57 ark)"
Er det 57 nye filer eller faner i arket?

Jeg får det nu til 58 ark, men prøv med denne makro:

Sub NewSheets()
Dim c As Range
Range("B3:B60").Select
For Each c In Selection
With ThisWorkbook
    .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = c.Value
End With
Next
End Sub

Jeg glemte at få navnet ind i F1:

Sub NewSheets()
Dim c As Range
Range("B3:B60").Select
For Each c In Selection
With ThisWorkbook
    .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = c.Value
    .Worksheets(c.Value).Range("F1") = c
End With
Next
End Sub

#jens, du laver 58 faner, ikke ark. 😉 👌

store-morten

Det er nye ark bygget op på præcis samme måde med det samme beregninger
F1 skal så indeholde arknavnet.
F1 går igen i alle formler på hver enkelt side.

Det er ikke haste haste

Men synes det ville være en fed ting at kunne og minimerer også jeg laver fejl undervejs ved at lave det manuelt

LN

Formel i F1 på Skabelon (Ark2)
=MIDT(CELLE("filename";A1);SØG("]";CELLE("filename";A1))+1;256)
Som giver: Fanenavn

Makro:

Jens48

Den laver nye ark fint nok og udfylder også F1 og virkelig hurtigt - fedt. Slutter med en fejl 400 men den bliver færdig, så det kan jeg godt leve med

Men arkene bygges ikke på skabelonen i ark2, hvor der er masser af beregninger og opslag på baggrund af det der står i F1

Et andet problem som jo nok ikke kan løses her og nu er at en masse af navnene der skal på arkene og F1 er over 31 tegn. Det ved jeg ikke lige hvordan jeg undgår

store morten
Den laver arkene med F1 bliver ikke udfyldt

Hvad har du i A1???

LN

Jeg sprang over hvor gærdet var lavest ;-)

Før kopiering:
Formel i F1 på Skabelon (Ark2)
=MIDT(CELLE("filename";A1);SØG("]";CELLE("filename";A1))+1;256)
Som giver: Fanenavn

Fanenavn kommer stadig ikke i F1

stor -mortne kan du springe over, hvor gærdet er lavest ;O)

Ja, filen skal være gemt.

Det virker  - fejl 40 - iiiiigen ;O)

Hvor er det fantatisk

Mit dataark er en kube

shhhh store-morten - selvfølgelig skal den det ;O)))))

ha ha kunne være ret fedt at kunne slette arkene igen - for skabelonen ikke helt færdig. eller bare slette alle andre ark end IDD, Total og skabelon

Kar vist det du har lavet vidt og bredt i afd - tror de griner lidt af min begejstring ;O)),,

Prøv:

Hold nu liger op hvor er det fedt og tidsbesparende
Jeg SKAL bare lære det her.

TAAAAAK for 1000 gang

If InStr("IDD", ws.Name) > 0 Or _
          InStr("Total", ws.Name) > 0 Or _
          InStr("skabelon", ws.Name) > 0 _
        Then
            ?????

Then hvad????

Kan man bare skrive en tom line hvis den ikke skal gøre noget ved disse ark

Ja, der skal jo ikke gøres noget, hvis Worksheet'et hedder: IDD, Total eller skabelon.

Ellers kan man gøre sådan:

He he opgaven har taget om sig ;O)

Når jeg nu opretter alle de fine ark id fra en liste i kolonne B

Så er det faktisk et beregnet felt. hvor cellerne derned af også kan være tomme
Jeg vil gerne lade beregningerne køre ned til feks 400.

Selv om der for nogle områder kun vil være 5 punkter og andre 50.

Men den reagerer på de tomme celler og opretter et tomt ark efter skabelonenkan man få den til kun at oprette dem der ikke er tomme

LN