Hej

Ni som kan, kan någon förklara för mig eller rätta till detta.

Problemt är att det senastre kommandot blir giltigt för hela dokumentet. Jag säger ju vilka kolumner jag vill formatera men den går enast på den sista formateringen och lägger det för hela dokumentet.

Använder detta makron för att redigera i rapport som skickas ut ett par gånger om dagen för att slippa massa handlpåläggning.

""

Sub FINAL()

'

' FINAL Makro

'

'

    ActiveSheet.Shapes.Range(Array("logo-lantbruk.gif")).Select

    Selection.Delete

    Rows("1:5").Select

    Range("T5").Activate

    Selection.Delete Shift:=xlUp

    Columns("A:A").Select

    Selection.NumberFormat = "0"

    Columns("B:B").Select

    Selection.NumberFormat = "@"

    Columns("C:F").Select

    Selection.NumberFormat = "0"

    Columns("G:H").Select

    Range("H1").Activate

    Selection.NumberFormat = "@"

    Columns("I:I").Select

    Selection.NumberFormat = "0"

    Columns("J:J").Select

    Selection.NumberFormat = "@"

    Columns("K:L").Select

    Selection.NumberFormat = "#,##0"

    Columns("M:O").Select

    Selection.NumberFormat = "####-##-##"

    Columns("P:P").Select

    Selection.NumberFormat = "@"

    Columns("Q:S").Select

End Sub