Como puedo hacerle para que esta macro que aplico en la celda E1
copie el mimo formato hasta la celda DS1
o como puedo hacerle para que una macro
me ajuste de esta forma esta palabra Valle Frut 600 ML NR
Valle Frut
600 ML NR
Sub Formato()
'
' Formato Macro
'
'
With Selection
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlJustify
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Columns("E:E").ColumnWidth = 12.57
Rows("1:1").RowHeight = 69
Rows("1:1").RowHeight = 48.75
Columns("E:E").ColumnWidth = 9.57
Columns("E:E").ColumnWidth = 11
Columns("E:E").ColumnWidth = 12.86
Columns("E:E").ColumnWidth = 7.57
Columns("E:E").ColumnWidth = 7.71
Columns("E:E").ColumnWidth = 6.29
Columns("E:E").ColumnWidth = 7.71
Columns("E:E").ColumnWidth = 8.57
Columns("E:E").ColumnWidth = 10.14
Columns("E:E").ColumnWidth = 8.14
End Sub
Dom, 05/12/2010 - 15:02
#1
Copiar formato en toda una fila
puedes probar con copiar y pegar formato:
por ejemplo:
Range("E1").Copy
Range("E1:DS1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
pero veo que en en tu macro haces una referencia a la columna E entera ¿por qué no cambias ese E:E por E:DS?
Columns("E:DS").
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.