Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
IF STATMENT OR CASE STATEMENT
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. Im 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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
IF STATMENT OR CASE STATEMENT
You have:
Columns("H:H").Select How about: cls = Range("D4").Value Columns(cls).Select -- Gary's Student "Richard" wrote: 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. Im 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Trying to select a specific range based on the time value of user form input | New Users to Excel | |||
VBA Code | Excel Discussion (Misc queries) | |||
Loop for VBA code? | Excel Worksheet Functions | |||
convert value in word. For Exampe Rs.115.00 convert into word as . | Excel Discussion (Misc queries) | |||
Identifying the Active Fill Color | Excel Discussion (Misc queries) |