Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > exporting to Excel without overwriting the macros
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 122
Default exporting to Excel without overwriting the macros
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
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 22
Default exporting to Excel without overwriting the macros
Could this macro be saved in the Personal.xls file on the server end?



"childofthe1980s" wrote in
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

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 122
Default exporting to Excel without overwriting the macros
Hi Mark:

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

childofthe1980s

"Mark Ivey" wrote:

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



"childofthe1980s" wrote in
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

Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 586
Default exporting to Excel without overwriting the macros
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" wrote:

Hi Mark:

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

childofthe1980s

"Mark Ivey" wrote:

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



"childofthe1980s" wrote in
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

Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 122
Default exporting to Excel without overwriting the macros
That does help! Thank you, Ryan!

childofthe1980s

"RyanH" wrote:

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" wrote:

Hi Mark:

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

childofthe1980s

"Mark Ivey" wrote:

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



"childofthe1980s" wrote in
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

Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Exporting Macros In Excel funbdave Excel Discussion (Misc queries) 2 November 5th 07 08:46 PM
exporting macros Chris Redmond Excel Discussion (Misc queries) 2 September 27th 07 11:57 AM
Q about exporting macros Mike Saffer Excel Worksheet Functions 2 March 17th 06 04:25 PM
troubleshooting exporting Lotus 123 files with macros to Excel 200 Steve Excel Discussion (Misc queries) 0 May 4th 05 10:11 PM
How do you create a macros without overwriting the previous one y. Gibbie Excel Discussion (Misc queries) 2 November 29th 04 10:09 PM


All times are GMT +1. The time now is 06:08 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement