Copiar formato en toda una fila

2 envíos / 0 nuevos
Último envío
yonigrinwod
Imagen de yonigrinwod
Offline
última acción: Hace 6 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 18/09/2010 - 20:28
Puntos: 875
Copiar formato en toda una fila

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

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 5 horas 57 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
Re: 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.