VBA: Set column widths

[FryGirl]

I found the post below, but was hoping this could be done a manner where the array is written left-to-right versus up and down.

As this is it works for my needs after I expand the ar(1) out to ar(15), just hoping it could be shortened.

I'm starting with column A and setting out to column O with all different column widths.

[FONT=Verdana]https://www.mrexcel.com/forum/excel-questions/706877-set-column-widths-array-concept.html[/FONT]
[LEFT][COLOR=#333333][FONT=monospace]Sub cw()

Dim ar(1 To 3)
Dim c As Integer
Dim cnt As Integer

cnt = LBound(ar())

ar(1) = 20
ar(2) = 30
ar(3) = 40

For cnt = LBound(ar()) To UBound(ar())
    Columns(cnt).ColumnWidth = ar(cnt)
Next cnt

End Sub[/FONT][/COLOR][/LEFT]

 

[FormR]

Hi, you could try something like this..

Sub cw()


Dim c As Variant
Dim cnt As Integer


For Each c In Array(20, 30, 40, 30, 20, 10, 5, 20, 15, 5, 15, 12, 20, 15)
    cnt = cnt + 1
    Columns(cnt).ColumnWidth = c
Next c


End Sub

 

[Norie]

Do you mean like this?

Dim ar As Variant
Dim cnt As Long

ar = Array(20,30,40)

For cnt = LBound(ar) To UBound(ar)
    Columns(cnt+1).ColumnWidth = ar(cnt)
Next cnt

 

[Fluff]

How about

Option Explicit
Sub FryGirl()
   Dim Ary As Variant
   Dim i As Long
   
   Ary = Array(20, 30, 40)
   For i = 0 To UBound(Ary)
      Columns(i + 1).ColumnWidth = Ary(i)
   Next i
End Sub

 

[FryGirl]

Yes, thank you to all. This is exactly what I was looking for.

 

[Fluff]

Glad we could help & thanks for the feedback