makro til data og diagram

tommybak@netscape.net

graferne sat til at bruge navngivne områder, ugenummer en formel (a3+1)

Opdatring af de navngivne områder således

Sub InsertWeek()
' Macro made 18-02-2004 by Tommy Bak Christensen
With ActiveSheet
    .Rows("2:2").Insert Shift:=xlDown
    .Rows("3:3").Copy Destination:=Range("A2")
    .Range("A2:A53").Name = "uge"
    .Range("G2:G53").Name = "stoptid"
    .Range("H2:H53").Name = "drifttid"
    .Range("I2:I53").Name = "runs"
    .Range("J2:J53").Name = "brutto"
    .Range("K2:K53").Name = "mbrutto"
    .Range("L2:L53").Name = "netto"
    .Range("M2:M53").Name = "mnetto"
    .Range("N2:N53").Name = "opstil"
End With
End Sub

En lille ændring

Sub InsertWeek()
' Macro made 18-02-2004 by Tommy Bak Christensen
With ActiveSheet
    .Rows("2:2").Insert Shift:=xlDown
    .Rows("3:3").Copy Destination:=Range("A2")
    .[A2] = .[A3] + 1
    'søg og erstat ugen fra linien under med uge + 1
    .Rows("2:2").Replace What:="uge " & [A3], Replacement:="uge " & [A3] + 1, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    .Range("A2:A53").Name = "uge"
    .Range("G2:G53").Name = "stoptid"
    .Range("H2:H53").Name = "drifttid"
    .Range("I2:I53").Name = "runs"
    .Range("J2:J53").Name = "brutto"
    .Range("K2:K53").Name = "mbrutto"
    .Range("L2:L53").Name = "netto"
    .Range("M2:M53").Name = "mnetto"
    .Range("N2:N53").Name = "opstil"
End With
End Sub

Meget fornemt arbejde, Bak