code bijvoegen in macro recorder :fakor en afronden boven

[grema]

Wil in macro recorder nog bij opnemen voor onderstaande code


Kolom "N" faktor 1.15
Kolom " O " = Kolom "H" * "N" of "H*1.15"
Kolom " P" = AFRONDEN.BOVEN("O" ; 0.05)

  ' Sneltoets: CTRL+SHIFT+W
'
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("C:C,D:D,E:E,F:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E,F:F,G:G,H:H").Select
    Range("H1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("G:G").Select
    Selection.Copy
    Columns("C:C").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("E:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft

Bekijk dit echter morgen even

Alvast dank

grema