Ancho de columna fijo de varias hojas en excel

Respuesta de
Usuario
Estimados una pregunta.

 

Como puedo dar un ancho de columna fijo a la columna "B" con un ancho de 10 y a la columna "C" con un ancho de columna 8 en todas las hojas de mi libro excel (hoja1, hoja2, hoja3, hoja4), claro todo esto con una macro para ahorrar el trabajo.

 

Saludos
Avatar
Experto
Este código hace lo que necesitas

Sub Columna()

Sheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")).Select

Columns("B:B").Select
Selection.ColumnWidth = 10

Columns("C:C").Select
Selection.ColumnWidth = 8

End Sub
Usuario
Estimado, al ejecutar la macro todas las columnas quedan con el tamaño del ultimo valor, como puedo hacer para que cada columna tenga un valor diferente.

 

Sub Columna()
Sheets(Array("hoja1", "hoja2", "hoja3)).Select

Columns("C:C").Select
Selection.ColumnWidth = 10.86

Columns("D:D").Select
Selection.ColumnWidth = 6

end sub

Al ejecutar esta macro todas las columnas de las hojas se colocan con valor 6 y necesito que la columna "C" y "D" tengan valores diferentes.

Gracias
Avatar
Experto
Yo corrí la macro y no hace lo que indicas, solo encontré un error en hoja3, ya que no colocas la comilla al final, corrige, prueba y me avisas

Sheets(Array("hoja1", "hoja2", "hoja3")).Select
Usuario
Estimado, yo también corrí la macro en una hoja sin celdas combinadas y corre bien, el problema esta que las hojas de mi libro tienen celdas combinadas y eso hace que la macro no funcione bien...

 

¿Habría alguna forma de que la macro funcione bien sin que interfiera las celdas combinadas de la hoja?

 

Gracias..
Avatar
Experto
Perdona por responder tarde, no hay problema, prueba con estas correcciones

Sub Columna()
Sheets(Array("hoja1", "hoja2", "hoja3")).Select
Columns("C:C").ColumnWidth = 10.86
Columns("D:D").ColumnWidth = 6
End Sub