Seleccionar varios rangos
Buenas, tengo un problema lo que sucede es que requiero una macro que me selecciones una cantidad de celdas especificas. Es decir que cuando quiera 5 u otra cantidad de celdas haga eso, pero debe ser de abajo hacia arriba. Y que luego de este proceso combine dichas celdas saltándose el aviso que surge cuando las celdas escogidas tienen información.
1 respuesta
Respuesta de Dante Amor
1
Con la siguiente macro seleccionas celdas hacia arriba y las combina.
Sub Macro7()
'Por.dam
fila = 10
arriba = 5
columna = "D"
If fila - arriba < 1 Then
MsgBox "Error en la selección de filas"
Exit Sub
End If
Range(columna & fila - arriba & ":" & columna & fila).Select
'Range("C10").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Application.DisplayAlerts = False
Selection.Merge
End SubEn la macro cambia los siguientes datos
Pon el número inicial del rango de celdas, En línea :
fila = 10
Pon el número de líneas hacia arriba , en la línea
arriba = 5
Pon la letra de la columna , en la línea
columna = "D"
Saludos. Dam
Si es lo que necesitas.
