makro 2007-2003

[mosmos2009]

Akradaslar asağıdaki makro 2007 versiyonda calısıyor fakat 2003 sürümünde hata vermektedir, 2003 çalısması icin ne yapılabilir simdiden tesekkürler



Kbr Macro
'

'
Cells.Select
With Selection
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("E6").Select
Columns("E:E").ColumnWidth = 12.14
Columns("E:E").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Columns("I:I").Select
With Selection.Font
.Color = -1003520
.TintAndShade = 0
End With
Columns("N:N").Select
With Selection.Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
End With
Columns("B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:E").Select
Selection.Delete Shift:=xlToLeft
Columns("D:G").Select
Selection.Delete Shift:=xlToLeft
Columns("E:F").Select
Selection.Delete Shift:=xlToLeft
Range("H16").Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 31.57
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[1],5)"
Range("A13").Select
Selection.AutoFill Destination:=Range("A13:A22"), Type:=xlFillDefault
Range("A13:A22").Select
Range("A13").Select
Selection.AutoFill Destination:=Range("A13:A635"), Type:=xlFillDefault
Range("A13:A635").Select
Columns("A:A").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("B10").Select
ActiveWindow.SmallScroll Down:=3
ActiveWindow.SmallScroll Down:=6
ActiveWindow.SmallScroll Down:=9

Range("B13").Select
Range("B21").Select
ActiveWindow.SmallScroll Down:=186
Range("C210").Select
ActiveWindow.SmallScroll Down:=-207

Range("D10").Select
ActiveWindow.SmallScroll Down:=-42

Range("G14").Select
ActiveCell.FormulaR1C1 = "=INDEX(data3,MATCH(RC[-6],CODE1,FALSE),5)"
Range("G14").Select
Selection.AutoFill Destination:=Range("G14:G486"), Type:=xlFillDefault
Range("G14:G486").Select
Range("A1").Select

Columns("G").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F11").Select

Range("H32").Select
Sheets("14-10-2012 (2)").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Trial Balance'!C[3],RC[-2],'Trial Balance'!C[-1])"
Selection.Copy
Range("D3948").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Range("D5462").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("D67").Select
ActiveSheet.Paste
Range("D68").Select
ActiveSheet.Paste
Range("D71").Select
ActiveWindow.SmallScroll Down:=12
Range("D8293").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("D94").Select
End Sub

 

[mosmos2009]

herhangi bir paketmi yüklenmesi gerekiyor ?