Multiple Column widths.

[Darren Bartrup]

Morning all.

Hopefully a nice easy one to start the day off with.
Is there an easier way to write this:

            With rptWrkSht
                .Columns(1).ColumnWidth = 8.13
                .Columns(2).ColumnWidth = 18.25
                .Columns(3).ColumnWidth = 8
                .Columns(4).ColumnWidth = 12.63
                .Columns(5).ColumnWidth = 11.5
                .Columns(6).ColumnWidth = 12.38
                .Columns(7).ColumnWidth = 12.38
                .Columns(8).ColumnWidth = 9.75
                .Columns(9).ColumnWidth = 7.5
                .Columns(10).ColumnWidth = 13.13
                .Columns(11).ColumnWidth = 8.88
                .Columns(12).ColumnWidth = 10.63
                .Columns(13).ColumnWidth = 7.25
                .Columns(14).ColumnWidth = 18.38
            End With

I'm kinda hoping I can write something like:

rptWrkSht.Columns(1:14).ColumnWidth = array(8.13,18.25,8,.....)

But I can't find the right syntax

Please help before I go crazy!!
Ta.

 

[ravishankar]

This one is not as nice as you want it to be but it works
Fill A1 to A12 with column width values
insert the follwing macro code:

For a = 1 To 12
Columns(a).ColumnWidth = Cells(a, 1)
Next a

and run it
have a good day

Ravi

 

[Von Pookie]

What you are suggesting could be done with an array:

Dim ColWdth As Variant, i As Integer

ColWdth = Array(8.13, 18.25, 8, 12.63, 11.5, 12.38, _
12.38, 9.75, 7.5, 13.13, 8.88, 10.63, 7.25, 18.38)

With rptWrkSht
    For i = 1 To 14
        .Columns(i).ColumnWidth = ColWdth(i - 1)
    Next i
End With

 

[Darren Bartrup]

Thanks for the help.
I haven't had time to try it out yet as I've been given another project which is 'more important than the last one' (as my boss puts it).