Change ColumnWidth for Multiple Columns?

  • Thread starter Thread starter AJ Master
  • Start date Start date
A

AJ Master

I need to be able to change the column width on multiple columns (all
next to each other) on one sheet (i.e. codename: sheet10) based on
user data selected from a combobox on sheet1.

I have tried using this but it always fails, so I would really
appreciate any help on fixing it:

with sheet10 'codename for sheet
.unprotect
.columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
columns entered
.protect
end with

Thanks again....AJ
 
how about this? (i added values manually because i don't have your code)

Sub test()
zcolcount = 8
dblColWidth = 12
With Sheet10 'codename for sheet
.Unprotect
.Columns(4).Resize(1, zcolcount).ColumnWidth = dblColWidth '
.Protect
End With

End Sub
 
One way is to do it like this:

with sheet10 'codename for sheet
.unprotect
.Range(Cells(1, 4), Cells(1, 4 + zcolcount)).ColumnWidth = dblColWidth
.protect
end with
 
how about this? (i added values manually because i don't have your code)

Sub test()
zcolcount = 8
dblColWidth = 12
With Sheet10 'codename for sheet
.Unprotect
.Columns(4).Resize(1, zcolcount).ColumnWidth = dblColWidth '
.Protect
End With

End Sub
Click to expand...

Gary,

Yes, thanks that worked perfectly.

AJ
 
One way is to do it like this:

with sheet10 'codename for sheet
.unprotect
.Range(Cells(1, 4), Cells(1, 4 + zcolcount)).ColumnWidth = dblColWidth
.protect
end with
Click to expand...

Vergel,

Thanks, your code worked as well. I appreciate everyones help with
this.

AJ
 
Back
Top