Tengo el siguiente inconveniente, como ven en el codigo, me paro en una celda, y veo si esta vacia, si no lo esta descombina la celda, y baja otra y asi hasta que este vacia la celda siguiente. Hasta ahi funciona bien, el problema es que una vez que termino quiero seleccionar todas las celdas hacia arriba que tengan algo, con:
Range(Selection, Selection.End(xlUp)).Select
Y solamente me marca la celda seleccionada, y la inmediatamente superior, pero no todas. EN mi ejemplo tengo datos en el rango H18:H27, con el do fui hasta la H27, y cuando intento con el código seleccionar el rango, solo me selecciona la H27 y la H28.
Alguien me podría dar una mano? Les copio el código abajo, desde ya muchas gracias!
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell <> "" Then
ActiveCell.UnMerge
Else
Exit Do
End If
Loop While ActiveCell.Offset(1, 0) <> " "
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
PD: Intente utilizar la etiqueta HTML como menciona en las normas, pero me pone todo el codigo seguido y se hace ilegible!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola amigos del foro ayudaexcel
Tengo el siguiente inconveniente, como ven en el codigo, me paro en una celda, y veo si esta vacia, si no lo esta descombina la celda, y baja otra y asi hasta que este vacia la celda siguiente. Hasta ahi funciona bien, el problema es que una vez que termino quiero seleccionar todas las celdas hacia arriba que tengan algo, con:
Range(Selection, Selection.End(xlUp)).Select
Y solamente me marca la celda seleccionada, y la inmediatamente superior, pero no todas. EN mi ejemplo tengo datos en el rango H18:H27, con el do fui hasta la H27, y cuando intento con el código seleccionar el rango, solo me selecciona la H27 y la H28.
Alguien me podría dar una mano? Les copio el código abajo, desde ya muchas gracias!
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell <> "" Then
ActiveCell.UnMerge
Else
Exit Do
End If
Loop While ActiveCell.Offset(1, 0) <> " "
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
PD: Intente utilizar la etiqueta HTML como menciona en las normas, pero me pone todo el codigo seguido y se hace ilegible!