Problema con columnas excel

Hola buen dia me podrias ayudar con esto
tengo una macro donde creo otra hoja y en esa hoja a las columnas asignarle las medidas que quiero y en la columna 4 con un altura, pero la ejecuto y
solo me crea la nueva hoja sin moverle a la medida de las columnas que tengo mal?
Sub crea()
'
' '
'
Sheets("Sheet1").Select
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Etiquetas"
Columns("A:A").ColumnWidth = 12.29
Columns("C:C").ColumnWidth = 7.71
Columns("D:D").ColumnWidth = 9
Columns("E:E").ColumnWidth = 5
Columns("F:F").ColumnWidth = 12.29
Columns("H:H").ColumnWidth = 7.71
Columns("I:I").ColumnWidth = 9
Columns("J:J").ColumnWidth = 5
Rows("4:4").RowHeight = 25
End Sub

1 Respuesta

Respuesta
1
Asi te debe de funcionar, ponla en un modulo no en los sheets vale:
Sub crea()
Sheets("hoja1").Select
Sheets.Add
ActiveSheet.Name = "Etiquetas"
Columns("A:A").Select
Selection.ColumnWidth = 12.29
Columns("C:C").Select
Selection.ColumnWidth = 7.71
Columns("D:D").Select
Selection.ColumnWidth = 9
Columns("E:E").Select
Selection.ColumnWidth = 5
Columns("F:F").Select
Selection.ColumnWidth = 12.29
Columns("H:H").Select
Selection.ColumnWidth = 7.71
Columns("I:I").Select
Selection.ColumnWidth = 9
Columns("J:J").Select
Selection.ColumnWidth = 5
Rows("4:4").Select
Selection.RowHeight = 25
End Sub
Si te sirvio no olvides puntuar la respuesta y finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas