IF STATMENT OR CASE STATEMENT
Maybe something like
Application.ScreenUpdating = False
Sheets("Print").Visible = True
With Sheets("Print")
Sheets("KC").Cells.Copy .Range("A1")
.Cells.Font.ColorIndex = 0
.Cells.Interior.ColorIndex = xlNone
.Range("H14").FormulaR1C1 = "=NOW()+1"
Select Case .Range("D4").Value
Case 4
.Columns("H:H").PrintOut Copies:=1, Collate:=True
Case 4
.Columns("M:M").PrintOut Copies:=1, Collate:=True
'etc
End Select
.Cells.ClearContents
End With
ActiveWindow.SelectedSheets.Visible = False
Application.ScreenUpdating = False
Range("A62").Select
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Richard" wrote in message
...
OS: MS XP
EXCEL: 2000
I have a Marco, which I use to print a selection from a sheet.
I want to use this macro to make the selection. I use a spinner to select
the date. The spinner puts a number in the cell D4. I need to somehow
convert this number into the selection.
I'm not very familiar with the IF statement or the CASE statement. Do I
use
a FUNCTION and if I do how do I pass he variable D4?
Exampl:
Number in cell D4 = 4.
Selection needed = Columns("H:H").Select
My Macro.
Application.ScreenUpdating = False
Sheets("Print").Visible = True
Sheets("KC").Select
Cells.Select
Selection.Copy
Sheets("Print").Select
Cells.Select
ActiveSheet.Paste
Cells.Select
Selection.Font.ColorIndex = 0
Selection.Interior.ColorIndex = xlNone
Range("H14").Select
ActiveCell.FormulaR1C1 = "=NOW()+1"
Columns("H:H").Select
Selection.PrintOut Copies:=1, Collate:=True
Cells.Select
Selection.ClearContents
Range("A4").Select
ActiveWindow.SelectedSheets.Visible = False
Application.ScreenUpdating = False
Range("A62").Select
Please hepp.
Thanks in advance.
--
Richard
|