MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Needed ASAP-Lotus/Excel Macro


Posted by Diane L on February 05, 2001 10:37 AM

I'm in a new job and I need to run two complex reports.
However, the first one is in Lotus 123,R. 2.2!(Yes, 2.2)
I need to convert the macros to Excel 2000,A.S.A.P. I'm an
experienced Excel user, but only a beginning macro writer.
It is:
\A +"
\B "&@STRING(
\C ,0)&")
\D /RFFO~~+{END}{U}+1~{R 2}

The second request is how to print a report in a less
time-consumming process. The goal is to print a single
report each for 200 departments. These are printed
from the same worksheet. I have been told that to print
this report, I should highlight the cell with the dept.
number,hit CTRL-P once, then move down to next cell and
repeat the process for each dept. I know there is a
better way to do this but need help. The current macro is

Sub print1 () print1 Macro Application.Goto
reference:="begin" Selection.End(xlDown).Select
ActiveCell.Offset(1,0).Range("A1".Select
ActiveCell.FormulaR1C1="1"
ActiveCell.Offset(0,-3).Range("A1").Select
Selection.Copy Application.Goto Reference:="Number"
ActiveSheet.Paste Application.CutCopyMode=False
Application.Run "Deptall.xls!West"
Application.CutCopyMode=False
Application.ActivePrinter="Okidata220"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:="Okidata220", Collate:=True
Application.Goto Reference:="Start"
Application.Goto Reference:="begin"
Selection.End(xlDown).Select
ActiveCell.Offset(1,-3).Range("A1").Select
End Sub

Thank You for anyone's help!!!
Diane



Posted by Diane on February 08, 2001 6:08 AM

I figured it out.