Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
InputBox to get user hidden columns question
Can I develop this further to hide columns before printing,
or is there a better way, please? Dim ExclColRng As Variant Set ExclColRng = Application.InputBox("Use the left mouse " & _ "button with the Control key," & vbNewLine & "to select at least" _ & " one cell in each column " & vbNewLine & "(or the entire" _ & ".column), to indicate those" & vbNewLine & "Columns to be" _ & " hidden. Click OK. when done", Type:=8) This seems to take the user's hidden columns into the inputbox, but can I use this, and if so how, please? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
InputBox to get user hidden columns question
Many thanks.
So that is not the root of this problem after all. I've looked at it since your help, but with no success, and have posted anew with a description of how the problem manifests itself. I had wondered if the selection of more than 1 column might be the cause. Apparently not. Regards. "Tom Ogilvy" wrote in message ... Sub AAA() Dim ExclColRng As Range Cells.EntireColumn.Hidden = False On Error Resume Next Set ExclColRng = Application.InputBox("Use the left mouse " & _ "button with the Control key," & vbNewLine & "to select at least" _ & " one cell in each column " & vbNewLine & "(or the entire" _ & ".column), to indicate those" & vbNewLine & "Columns to be" _ & " hidden. Click OK. when done", Type:=8) On Error GoTo 0 If Not ExclColRng Is Nothing Then _ ExclColRng.EntireColumn.Hidden = True End Sub Regards, Tom Ogilvy Stuart wrote in message ... Can I develop this further to hide columns before printing, or is there a better way, please? Dim ExclColRng As Variant Set ExclColRng = Application.InputBox("Use the left mouse " & _ "button with the Control key," & vbNewLine & "to select at least" _ & " one cell in each column " & vbNewLine & "(or the entire" _ & ".column), to indicate those" & vbNewLine & "Columns to be" _ & " hidden. Click OK. when done", Type:=8) This seems to take the user's hidden columns into the inputbox, but can I use this, and if so how, please? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
InputBox / VBA question ok = print, cancel = exit | Excel Worksheet Functions | |||
Another InputBox question... | Excel Discussion (Misc queries) | |||
Prevent User Seeing Data in Hidden Columns | Excel Discussion (Misc queries) | |||
inputbox question | Excel Discussion (Misc queries) | |||
String length of Inputbox user input. | Excel Programming |