Macro works differently on different computers, same version of Ex

G

Guest

I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro. One
column is total of all previous month's expenses for a project, the next is
the current month's expenses and the last column is total expenses to date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same and
do not change. I've checked the security settings and the versions of Excel
are the same so why doesn't it do the same thing on two different computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
 
G

Guest

Try this revised version ON A COPY OF YOUR SPREADSHEET and see what happens

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Copy

Range("D7:D57").PasteSpecial Paste:=xlPasteValues

Range("E7:E56") = 0

Range("C4") = Range("C4") + 1

Range("B1").Select
End Sub

oscardwilde said:
I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro. One
column is total of all previous month's expenses for a project, the next is
the current month's expenses and the last column is total expenses to date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same and
do not change. I've checked the security settings and the versions of Excel
are the same so why doesn't it do the same thing on two different computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
 
D

Don Guillett

Nothing is jumping out at me cuz of all the trash. To get you started.
ALL of this code can be changed from
=======
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
Click to expand...
=======
to
Range("D7:D57").value= Range("G7:G57").value
also
range("k6").value=range("k5")
works
etc.etc

Don Guillett
SalesAid Software
(e-mail address removed)
oscardwilde said:
I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro.
One
column is total of all previous month's expenses for a project, the next
is
the current month's expenses and the last column is total expenses to
date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the
next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same
and
do not change. I've checked the security settings and the versions of
Excel
are the same so why doesn't it do the same thing on two different
computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
 
G

Guest

Perfect! Thank you. It worked flawlessly. Tried it on several computers
and no problem. The only thing that it does that isn't a big deal is it
leaves one column selected (with the flashing selection around it). Is there
a command I can put in there to stop that so that it doesn't confuse my users?


Duke Carey said:
Try this revised version ON A COPY OF YOUR SPREADSHEET and see what happens

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Copy

Range("D7:D57").PasteSpecial Paste:=xlPasteValues

Range("E7:E56") = 0

Range("C4") = Range("C4") + 1

Range("B1").Select
End Sub

oscardwilde said:
I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro. One
column is total of all previous month's expenses for a project, the next is
the current month's expenses and the last column is total expenses to date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same and
do not change. I've checked the security settings and the versions of Excel
are the same so why doesn't it do the same thing on two different computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
Click to expand...
 
G

Guest

Thank you. I see that now. I made the macro just by recording my actions.
Didn't even think about simplifying as you did. Thanks.

Don Guillett said:
Nothing is jumping out at me cuz of all the trash. To get you started.
ALL of this code can be changed from
=======
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
Click to expand...
=======
to
Range("D7:D57").value= Range("G7:G57").value
also
range("k6").value=range("k5")
works
etc.etc

Don Guillett
SalesAid Software
(e-mail address removed)
oscardwilde said:
I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro.
One
column is total of all previous month's expenses for a project, the next
is
the current month's expenses and the last column is total expenses to
date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the
next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same
and
do not change. I've checked the security settings and the versions of
Excel
are the same so why doesn't it do the same thing on two different
computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
Click to expand...
 
D

Dave Peterson

application.cutcopymode = false

will remove the "marching ants" around the selection.




Perfect! Thank you. It worked flawlessly. Tried it on several computers
and no problem. The only thing that it does that isn't a big deal is it
leaves one column selected (with the flashing selection around it). Is there
a command I can put in there to stop that so that it doesn't confuse my users?

Duke Carey said:
Try this revised version ON A COPY OF YOUR SPREADSHEET and see what happens

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Copy

Range("D7:D57").PasteSpecial Paste:=xlPasteValues

Range("E7:E56") = 0

Range("C4") = Range("C4") + 1

Range("B1").Select
End Sub

oscardwilde said:
I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro. One
column is total of all previous month's expenses for a project, the next is
the current month's expenses and the last column is total expenses to date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same and
do not change. I've checked the security settings and the versions of Excel
are the same so why doesn't it do the same thing on two different computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

Thank you. That was perfect. Greatly appreciated.

Dave Peterson said:
application.cutcopymode = false

will remove the "marching ants" around the selection.




Perfect! Thank you. It worked flawlessly. Tried it on several computers
and no problem. The only thing that it does that isn't a big deal is it
leaves one column selected (with the flashing selection around it). Is there
a command I can put in there to stop that so that it doesn't confuse my users?

Duke Carey said:
Try this revised version ON A COPY OF YOUR SPREADSHEET and see what happens

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Copy

Range("D7:D57").PasteSpecial Paste:=xlPasteValues

Range("E7:E56") = 0

Range("C4") = Range("C4") + 1

Range("B1").Select
End Sub

:

I have created macros that automate a fairly simple process on several
spreadsheets. There are three columns that are affected by the macro. One
column is total of all previous month's expenses for a project, the next is
the current month's expenses and the last column is total expenses to date.
The macro simply copies the values from the total expenses to the previous
month's column and zeros the current month so that it is ready for the next
month's expenses. The macros work great on my computer but do not always
perform the same way on other computers. Some fields it skips, others it
does not. The formatting and number of cells in each column are the same and
do not change. I've checked the security settings and the versions of Excel
are the same so why doesn't it do the same thing on two different computers
that use everything else the same?

Here's the code:

Sub ZeroDraw()
'
' ZeroDraw Macro
' Macro recorded 8/26/2005 by Oscar
'
' Keyboard Shortcut: Ctrl+d
'
Range("G7:G57").Select
Selection.Copy
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D7:D57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("E7:E56"), Type:=xlFillDefault
Range("E7:E56").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("K5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-8]+1)"
Range("K5").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K6").Select
Selection.Cut
Range("C4").Select
ActiveSheet.Paste
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro Error 6
Recorded macro 4
Macro help please 3
Problem with Macro 7
fixing a run-time error'9': Subscript out of range 0
Autosum formula within a macro 0
variable number of rows. 2
Run Macros 11

Top