ColumnWidths secundario ()
Targ dévil como gama, cel como gama
En curriculum vitae del error después
Fijar el targ = Application.InputBox (“seleccionar por favor la gama que usted quiere divulgar las anchuras de columnas para”, mecanografiar: =8)
En el error 0 indicado
Si el targ no es nada entonces salir el submarino
Application.ScreenUpdating = falso
Fijar el targ = el targ. Filas (1)
Con Worksheets.Add (después: =Worksheets (Worksheets.Count))
Para cada cel en targ. Células
. Células (1, cel. Columna) = cel.EntireColumn.ColumnWidth
Después
Extremo con
Application.ScreenUpdating = verdad
Submarino del extremo
|