Problem je sljedeći: imam hrpu dokumenata u kojima su zeznute širine stupaca.
Svaki dokument ima različit broj listova u sebi (svi imaju različito ime), ali svi su su isti obrazac kojem je kroz kopiranje zeznuta širina stupaca.
Ideja mi je napraviti makro koji bi po kratkom postupku odabrao sve listove unutar dokumenta i postavio širine stupaca na zadane vrijednosti.
Problem je što mi makro postavi uredno širine samo na prvom listu a sve ostale listove odabire ali im ne mijenja širine.
Sub SetColumnWidth()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Visible Then ws.Select (False)
Columns("A").ColumnWidth = 10
Columns("B").ColumnWidth = 10
Columns("C").ColumnWidth = 3
Columns("D").ColumnWidth = 20
Columns("E").ColumnWidth = 1
Columns("F").ColumnWidth = 20
Columns("G").ColumnWidth = 20
Columns("H").ColumnWidth = 20
Columns("I").ColumnWidth = 20
Columns("J").ColumnWidth = 4
Columns("K").ColumnWidth = 10
Columns("L").ColumnWidth = 10
Next
End Sub
, a i dobar dio idućeg tjedna...