Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Making worksheets
Hi. I have a makro that displays a userform that can generate a report. The
report is to be created when the user presses a button on the user form. The report is to be shown in a new worksheet that the program creates. I want the new worksheet to have certain settings (e.g. no gridlines). I am trying to write code for this but I do not know how to refer to the worksheet without using the very unconvenient code when setting one worksheet active and then applying the changes. Code: Private Sub worksheetMaker() Dim WB As Workbook Dim SH As Worksheet Dim iCtr As Long Const sName As String = "Rapport " Set WB = ActiveWorkbook iCtr = WB.Worksheets.Count Set SH = Worksheets.Add(after:=Worksheets(iCtr)) SH.Name = sName & iCtr 'Sheets(SH.Name).Select 'Cells.Select Sheets(SH.Name).DisplayGridlines = False The last line is wrong. How do you wirte this so that it works? Please help me! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Making worksheets
activate the correct window and then
ActiveWindow.DisplayGridlines = False worked for me, I dont think it likes it applied to the sheet property and not the window. Duncan Fabrizio wrote: Hi. I have a makro that displays a userform that can generate a report. The report is to be created when the user presses a button on the user form. The report is to be shown in a new worksheet that the program creates. I want the new worksheet to have certain settings (e.g. no gridlines). I am trying to write code for this but I do not know how to refer to the worksheet without using the very unconvenient code when setting one worksheet active and then applying the changes. Code: Private Sub worksheetMaker() Dim WB As Workbook Dim SH As Worksheet Dim iCtr As Long Const sName As String = "Rapport " Set WB = ActiveWorkbook iCtr = WB.Worksheets.Count Set SH = Worksheets.Add(after:=Worksheets(iCtr)) SH.Name = sName & iCtr 'Sheets(SH.Name).Select 'Cells.Select Sheets(SH.Name).DisplayGridlines = False The last line is wrong. How do you wirte this so that it works? Please help me! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Making worksheets
or if you know the name or index of the window you have created then
you can do Windows (Index).DisplayGridlines = False which should also work and then you dont need to activate. Duncan Duncan wrote: activate the correct window and then ActiveWindow.DisplayGridlines = False worked for me, I dont think it likes it applied to the sheet property and not the window. Duncan Fabrizio wrote: Hi. I have a makro that displays a userform that can generate a report. The report is to be created when the user presses a button on the user form. The report is to be shown in a new worksheet that the program creates. I want the new worksheet to have certain settings (e.g. no gridlines). I am trying to write code for this but I do not know how to refer to the worksheet without using the very unconvenient code when setting one worksheet active and then applying the changes. Code: Private Sub worksheetMaker() Dim WB As Workbook Dim SH As Worksheet Dim iCtr As Long Const sName As String = "Rapport " Set WB = ActiveWorkbook iCtr = WB.Worksheets.Count Set SH = Worksheets.Add(after:=Worksheets(iCtr)) SH.Name = sName & iCtr 'Sheets(SH.Name).Select 'Cells.Select Sheets(SH.Name).DisplayGridlines = False The last line is wrong. How do you wirte this so that it works? Please help me! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Making 1 Pivot chart from 3 different worksheets. | Excel Discussion (Misc queries) | |||
Making changes automatically on multiple worksheets | Excel Discussion (Misc queries) | |||
making new worksheets | Excel Programming | |||
Programatically making worksheets | Excel Programming | |||
Macro for making worksheets visible. | Excel Programming |