Modificar el comportamiento VBA de alineación en función de la columna
Publicado por Quico (106 intervenciones) el 01/12/2020 14:05:53
Tengo una macro me sirve para combinar varia celdas (With Selection) y a la que le indico que su contenido se alinee en el centro (.HorizontalAlignment = xlCenter /.VerticalAlignment = xlCenter)
El problema es que necesitaría que esa alineación fuera a la izquierda siempre que la selección (With SElection) sea en la columna D.
Es decir, que si combinamos celdas ubicadas en la columna D, tenga una excepción y alinee a la izquierda: .HorizontalAlignment = xlLeft dentro de la misma macro.
¿Alguien sabría que debo añadir a la macro que he pegado?
Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
'Combinar celdas seleccionadasWith Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.MergeEl problema es que necesitaría que esa alineación fuera a la izquierda siempre que la selección (With SElection) sea en la columna D.
Es decir, que si combinamos celdas ubicadas en la columna D, tenga una excepción y alinee a la izquierda: .HorizontalAlignment = xlLeft dentro de la misma macro.
¿Alguien sabría que debo añadir a la macro que he pegado?
Gracias
Valora esta pregunta
0
