ColumnWidths secundário ()
Targ não ofuscante como a escala, cel como a escala
No resumo do erro em seguida
Ajustar o targ = o Application.InputBox (“selecionar por favor a escala que você quer relatar larguras de colunas para”, a datilografar: =8)
No erro 0 empreendedores
Se o targ não é nada então retirar o submarino
Application.ScreenUpdating = falso
Ajustar o targ = o targ. Fileiras (1)
Com Worksheets.Add (em seguida: =Worksheets (Worksheets.Count))
Para cada cel no targ. Pilhas
. Pilhas (1, cel. Coluna) = cel.EntireColumn.ColumnWidth
Em seguida
Extremidade com
Application.ScreenUpdating = retificam
Submarino da extremidade
|