|
Make Validation List Wider - Excel 2003
I found the following post from 2006 and the code works great, but it is for
one column, how do I alter the code for columns C through AX so the temporary widening happens in each column? "You cannot word-wrap a list for DV. What you can do is use event code to make the list wider when you click on the drop-down. See Debra Dalgeish's site for code. http://www.contextures.on.ca/xlDataVal08.html#Wider" |
Make Validation List Wider - Excel 2003
You can change the target columns:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns(4).ColumnWidth = 5 End If End Sub cmarion wrote: I found the following post from 2006 and the code works great, but it is for one column, how do I alter the code for columns C through AX so the temporary widening happens in each column? "You cannot word-wrap a list for DV. What you can do is use event code to make the list wider when you click on the drop-down. See Debra Dalgeish's site for code. http://www.contextures.on.ca/xlDataVal08.html#Wider" -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com |
Make Validation List Wider - Excel 2003
This works for expanding the column width, but does not return the column to
the smaller size when no longer selected. Thank you. "Debra Dalgleish" wrote: You can change the target columns: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns(4).ColumnWidth = 5 End If End Sub cmarion wrote: I found the following post from 2006 and the code works great, but it is for one column, how do I alter the code for columns C through AX so the temporary widening happens in each column? "You cannot word-wrap a list for DV. What you can do is use event code to make the list wider when you click on the drop-down. See Debra Dalgeish's site for code. http://www.contextures.on.ca/xlDataVal08.html#Wider" -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com |
Make Validation List Wider - Excel 2003
This will reset all the affected columns to the same width.
If you need them different widths you could specify in the code. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("C:AX").ColumnWidth = 5 If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns("C:AX").ColumnWidth = 5 End If End Sub cmarion wrote: This works for expanding the column width, but does not return the column to the smaller size when no longer selected. Thank you. "Debra Dalgleish" wrote: You can change the target columns: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns(4).ColumnWidth = 5 End If End Sub cmarion wrote: I found the following post from 2006 and the code works great, but it is for one column, how do I alter the code for columns C through AX so the temporary widening happens in each column? "You cannot word-wrap a list for DV. What you can do is use event code to make the list wider when you click on the drop-down. See Debra Dalgeish's site for code. http://www.contextures.on.ca/xlDataVal08.html#Wider" -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com |
Make Validation List Wider - Excel 2003
Wonderful, thank you for your help.
"Debra Dalgleish" wrote: This will reset all the affected columns to the same width. If you need them different widths you could specify in the code. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("C:AX").ColumnWidth = 5 If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns("C:AX").ColumnWidth = 5 End If End Sub cmarion wrote: This works for expanding the column width, but does not return the column to the smaller size when no longer selected. Thank you. "Debra Dalgleish" wrote: You can change the target columns: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target.Column = 3 And Target.Column <= 50 Then Target.Columns.ColumnWidth = 20 Else Columns(4).ColumnWidth = 5 End If End Sub cmarion wrote: I found the following post from 2006 and the code works great, but it is for one column, how do I alter the code for columns C through AX so the temporary widening happens in each column? "You cannot word-wrap a list for DV. What you can do is use event code to make the list wider when you click on the drop-down. See Debra Dalgeish's site for code. http://www.contextures.on.ca/xlDataVal08.html#Wider" -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com -- Debra Dalgleish Contextures www.contextures.com/tiptech.html Blog: http://blog.contextures.com |
| All times are GMT +1. The time now is 01:33 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com