Selección de celda
Tengo un bucle para borrar los valores de una fila a partir de la celda activa,(hoja protegida y las celdas de la fila desbloqueadas las del área de trabajo) para que no borres las siguientes:
Dim a As Integer
Dim i As Long
Application.ScreenUpdating = False
On Error Resume Next
a = 0
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, i - a).Value = ""
Selection.Offset(0, 1).Select
Loop
Pero se queda seleccionada la siguiente celda a la borrada. Y quiero que se vuelva a seleccionar la celda activa con la que empezó, si empezó en "C5" que se me vuelva a seleccionar la celda "C5" para iniciar otro procedimiento.
Gracias.
1 respuesta
Cambia la macro por esta:
Dim a As Integer
Dim i As Long
Application.ScreenUpdating = False
On Error Resume Next
a = 0
rango = ActiveCell.Address
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, i - a).Value = ""
Selection.Offset(0, 1).Select
Loop
Range(rango).Select
Le agregué un para de líneas para que regrese a la celda donde inició.
Saludos. Dam
Si es lo que necesitas.
Ya probé este modo pero sigo teniendo el mismo problema se me queda seleccionada la celda siguiente a la que contenía el dato que borra el bucle.
Hola Ya encontré la solución con este par de lineas:
Selection.End(xlToLeft).Select
Selection.Offset(0, 1).Select
Pero para que funcionen tengo desproteger y después volver a proteger algo mas lioso pero funciona, gracias por la rápida respuesta.
