Matching column width in two tabs

[Sweedler]

Range("A:A").ColumnWidth = Sheets("Kaptnota").Columns("A").ColumnWidth

I am using the above code to transpose column width from one tab to another. But I am getting an error message, and I don't know why.

 

[Jeffrey Mahoney]

How about this?

Sub ChangeColumnsW()
  Dim X As Long
  
  For X = 1 To 10
    Columns(X).ColumnWidth = Sheets("Kaptnota").Columns(X).ColumnWidth
  Next X
  

End Sub

 

[Sweedler]

How about this?

Sub ChangeColumnsW()
  Dim X As Long
 
  For X = 1 To 10
    Columns(X).ColumnWidth = Sheets("Kaptnota").Columns(X).ColumnWidth
  Next X
 

End Sub

Hello

For whatever reason that does not seem to be working

 

[Joe4]

What was the exact error message you are getting initially?

Which module exactly are you placing this code into?

Which sheet is the active sheet when you run this code?

 

[Sweedler]

I was able to find a work around.

 

[Joe4]

I was able to find a work around.

What was it?
Can you please post what the issue was/how you resolved it?
It may help someone else down the road.

 

[Sweedler]

What was it?
Can you please post what the issue was/how you resolved it?
It may help someone else down the road.

Hello

So my workaround may be a little bit low tech, but here it is.

1. I used "Worksheets("DOLD").Range("D2") = Worksheets("Kapnota").Range("A5").ColumnWidth" to enter the column width value to a cell in a secondary tab
2. Later on in the MACRO code I used "Range("a:a").ColumnWidth = Worksheets("DOLD").Range("D2")"
3. Now any changes made to the column widths of to the sheet "KAPNOTA", those changes will be executed to all the tabs the code is in

 

[Joe4]

OK, thanks for posting that.

If you are still interested in pursuing this further, and finding out why it wasn't working previously, please answer the 3 questions I asked up in post 4.
If you are happy to "leave well-enough alone", then you do not have to, and can just mark your last post (post 7) as the solution.

 

[Jeffrey Mahoney]

The code I posted required you to have the sheet you want to change the columns activated.

 

[Joe4]

The code I posted required you to have the sheet you want to change the columns activated.

Yeah, I am guessing that they may not have been on the right sheet when the code is run, which is why I asked that question.
And that explains why it works when they add a sheet reference to their range reference.