exporting to Excel without overwriting the macros

C

childofthe1980s

Hello:

A client exports a file out of Crystal reports to Excel. Then, they go to
Tools...Macro and run a couple of very simple macros that are shown below.

Now, they are going to be getting rid of the computer that runs this and are
moving this report along with Excel to a new server where they will continue
to use this "programming".

I need to recreate all of this. I have upgraded the Crystal report and I
have the Excel macro, obviously. What I don't "get", is how this client has
been able to export the data from one application (Crystal) to an Excel
template or spreadsheet or csv file or whatever and allow for the macro to
just "be there" without being overwritten by the data exported from Excel.

You see, I'm sure that the macro programming is saved on an Excel template
somewhere where the client runs the two macros. But, how is the data
exported to this Excel file without overwriting the macros embedded in the
file?

Any ideas? If I can figure this out, then I can recreate this template and
save it on the server. Thanks!

childofthe1980s




Sub CrystalRpt2()
'
' CrystalRpt2 Macro
' Macro recorded 8/22/2005 by ewest
'
'
ActiveCell.Offset(0, 6).Columns("A:B").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*100"
ActiveCell.Offset(0, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 6).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Sub PosPay082305()
'
' PosPay082305 Macro
' Macro recorded 8/23/2005 by ewest
'
'
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.ColumnWidth = 1
Columns("C:C").Select
Selection.ColumnWidth = 2
Columns("D:D").Select
Selection.NumberFormat = "0000000000"
Selection.ColumnWidth = 10
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").Select
Selection.NumberFormat = "000000000000"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.NumberFormat = "mmddyyyy"
Selection.ColumnWidth = 8
ActiveWorkbook.SaveAs Filename:="K:\Users\B of A Positive
Pay\Template.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
 
M

Mark Ivey

Could this macro be saved in the Personal.xls file on the server end?



childofthe1980s said:
Hello:

A client exports a file out of Crystal reports to Excel. Then, they go to
Tools...Macro and run a couple of very simple macros that are shown below.

Now, they are going to be getting rid of the computer that runs this and
are
moving this report along with Excel to a new server where they will
continue
to use this "programming".

I need to recreate all of this. I have upgraded the Crystal report and I
have the Excel macro, obviously. What I don't "get", is how this client
has
been able to export the data from one application (Crystal) to an Excel
template or spreadsheet or csv file or whatever and allow for the macro to
just "be there" without being overwritten by the data exported from Excel.

You see, I'm sure that the macro programming is saved on an Excel template
somewhere where the client runs the two macros. But, how is the data
exported to this Excel file without overwriting the macros embedded in the
file?

Any ideas? If I can figure this out, then I can recreate this template
and
save it on the server. Thanks!

childofthe1980s




Sub CrystalRpt2()
'
' CrystalRpt2 Macro
' Macro recorded 8/22/2005 by ewest
'
'
ActiveCell.Offset(0, 6).Columns("A:B").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*100"
ActiveCell.Offset(0, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 6).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Sub PosPay082305()
'
' PosPay082305 Macro
' Macro recorded 8/23/2005 by ewest
'
'
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.ColumnWidth = 1
Columns("C:C").Select
Selection.ColumnWidth = 2
Columns("D:D").Select
Selection.NumberFormat = "0000000000"
Selection.ColumnWidth = 10
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").Select
Selection.NumberFormat = "000000000000"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.NumberFormat = "mmddyyyy"
Selection.ColumnWidth = 8
ActiveWorkbook.SaveAs Filename:="K:\Users\B of A Positive
Pay\Template.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Click to expand...
 
C

childofthe1980s

Hi Mark:

Are you saying that the template needs to be saved in a "Documents and
Settings" folder?

childofthe1980s

Mark Ivey said:
Could this macro be saved in the Personal.xls file on the server end?



childofthe1980s said:
Hello:

A client exports a file out of Crystal reports to Excel. Then, they go to
Tools...Macro and run a couple of very simple macros that are shown below.

Now, they are going to be getting rid of the computer that runs this and
are
moving this report along with Excel to a new server where they will
continue
to use this "programming".

I need to recreate all of this. I have upgraded the Crystal report and I
have the Excel macro, obviously. What I don't "get", is how this client
has
been able to export the data from one application (Crystal) to an Excel
template or spreadsheet or csv file or whatever and allow for the macro to
just "be there" without being overwritten by the data exported from Excel.

You see, I'm sure that the macro programming is saved on an Excel template
somewhere where the client runs the two macros. But, how is the data
exported to this Excel file without overwriting the macros embedded in the
file?

Any ideas? If I can figure this out, then I can recreate this template
and
save it on the server. Thanks!

childofthe1980s




Sub CrystalRpt2()
'
' CrystalRpt2 Macro
' Macro recorded 8/22/2005 by ewest
'
'
ActiveCell.Offset(0, 6).Columns("A:B").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*100"
ActiveCell.Offset(0, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 6).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Sub PosPay082305()
'
' PosPay082305 Macro
' Macro recorded 8/23/2005 by ewest
'
'
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.ColumnWidth = 1
Columns("C:C").Select
Selection.ColumnWidth = 2
Columns("D:D").Select
Selection.NumberFormat = "0000000000"
Selection.ColumnWidth = 10
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").Select
Selection.NumberFormat = "000000000000"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.NumberFormat = "mmddyyyy"
Selection.ColumnWidth = 8
ActiveWorkbook.SaveAs Filename:="K:\Users\B of A Positive
Pay\Template.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Click to expand...
Click to expand...
 
R

RyanH

If it is just data being imported into the same workbook from a Crystal
report the macro will not be affected at all. If a new workbook is opened
everytime a Crystal report needs to be imported then the macro must be stored
in the Personal Workbook which is hidden.

Hope this helps!
--
Cheers,
Ryan


childofthe1980s said:
Hi Mark:

Are you saying that the template needs to be saved in a "Documents and
Settings" folder?

childofthe1980s

Mark Ivey said:
Could this macro be saved in the Personal.xls file on the server end?



childofthe1980s said:
Hello:

A client exports a file out of Crystal reports to Excel. Then, they go to
Tools...Macro and run a couple of very simple macros that are shown below.

Now, they are going to be getting rid of the computer that runs this and
are
moving this report along with Excel to a new server where they will
continue
to use this "programming".

I need to recreate all of this. I have upgraded the Crystal report and I
have the Excel macro, obviously. What I don't "get", is how this client
has
been able to export the data from one application (Crystal) to an Excel
template or spreadsheet or csv file or whatever and allow for the macro to
just "be there" without being overwritten by the data exported from Excel.

You see, I'm sure that the macro programming is saved on an Excel template
somewhere where the client runs the two macros. But, how is the data
exported to this Excel file without overwriting the macros embedded in the
file?

Any ideas? If I can figure this out, then I can recreate this template
and
save it on the server. Thanks!

childofthe1980s




Sub CrystalRpt2()
'
' CrystalRpt2 Macro
' Macro recorded 8/22/2005 by ewest
'
'
ActiveCell.Offset(0, 6).Columns("A:B").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*100"
ActiveCell.Offset(0, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 6).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Sub PosPay082305()
'
' PosPay082305 Macro
' Macro recorded 8/23/2005 by ewest
'
'
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.ColumnWidth = 1
Columns("C:C").Select
Selection.ColumnWidth = 2
Columns("D:D").Select
Selection.NumberFormat = "0000000000"
Selection.ColumnWidth = 10
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").Select
Selection.NumberFormat = "000000000000"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.NumberFormat = "mmddyyyy"
Selection.ColumnWidth = 8
ActiveWorkbook.SaveAs Filename:="K:\Users\B of A Positive
Pay\Template.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Click to expand...
Click to expand...
Click to expand...
 
C

childofthe1980s

That does help! Thank you, Ryan!

childofthe1980s

RyanH said:
If it is just data being imported into the same workbook from a Crystal
report the macro will not be affected at all. If a new workbook is opened
everytime a Crystal report needs to be imported then the macro must be stored
in the Personal Workbook which is hidden.

Hope this helps!
--
Cheers,
Ryan


childofthe1980s said:
Hi Mark:

Are you saying that the template needs to be saved in a "Documents and
Settings" folder?

childofthe1980s

Mark Ivey said:
Could this macro be saved in the Personal.xls file on the server end?



message Hello:

A client exports a file out of Crystal reports to Excel. Then, they go to
Tools...Macro and run a couple of very simple macros that are shown below.

Now, they are going to be getting rid of the computer that runs this and
are
moving this report along with Excel to a new server where they will
continue
to use this "programming".

I need to recreate all of this. I have upgraded the Crystal report and I
have the Excel macro, obviously. What I don't "get", is how this client
has
been able to export the data from one application (Crystal) to an Excel
template or spreadsheet or csv file or whatever and allow for the macro to
just "be there" without being overwritten by the data exported from Excel.

You see, I'm sure that the macro programming is saved on an Excel template
somewhere where the client runs the two macros. But, how is the data
exported to this Excel file without overwriting the macros embedded in the
file?

Any ideas? If I can figure this out, then I can recreate this template
and
save it on the server. Thanks!

childofthe1980s




Sub CrystalRpt2()
'
' CrystalRpt2 Macro
' Macro recorded 8/22/2005 by ewest
'
'
ActiveCell.Offset(0, 6).Columns("A:B").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=+RC[-3]*100"
ActiveCell.Offset(0, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 6).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("checkspaid.xls").Activate
ActiveCell.Offset(0, -2).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Template.csv").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


Sub PosPay082305()
'
' PosPay082305 Macro
' Macro recorded 8/23/2005 by ewest
'
'
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").Select
Selection.ColumnWidth = 1
Columns("C:C").Select
Selection.ColumnWidth = 2
Columns("D:D").Select
Selection.NumberFormat = "0000000000"
Selection.ColumnWidth = 10
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("E:E").Select
Selection.NumberFormat = "000000000000"
Selection.ColumnWidth = 12
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.NumberFormat = "mmddyyyy"
Selection.ColumnWidth = 8
ActiveWorkbook.SaveAs Filename:="K:\Users\B of A Positive
Pay\Template.csv", _
FileFormat:=xlCSV, CreateBackup:=False
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

works in 2007 but not in 2010 0
Macro to fill to next field with data 4
Macro to generate FileName of the source file 1
Something in this is causing a crash 2
how to use Solver in Excel VBA 1
Text function to add zeros to values in a column 3
Help merging two VBA codes 2
stopping a macro 0

Top