Macro para selcionar celdas activas NO FUNCCIONA

1 post / 0 nuevos
Jose
Imagen de Jose
Offline
última acción: Hace 3 días 12 horas
alta: 14/11/2017 - 08:54
Puntos: 25
Macro para selcionar celdas activas NO FUNCCIONA

Hola a todos,

Tengo creada una plantilla con macros y lo que estoy tratando de lograr en la misma macro, es que me permita desplazarme solo entre las celdas activas con la tecla "enter" y que las dichas celdas se colorean en un color que no se vea a la hora de imprimir el documento.

He creado un nuevo modulo, segun lo que he visto en INTENET pero no me va como yo quiero.

Se desplaza con la tecla "INTRO" en celdas aleatoriamente....no en orden desde arriba "C5" siguiendo los pasos segun va bajando. Estoy perdido

Adjunto el documento con la funcion creada "CELDAS".

La contraseña del documento protegido es: "Piolino"

Las celdas marcadas en amarillo son en las que quiero desplazarme y se utilizaran para introducir los nuevos datos despues de guardar el documento. Mas abajo adjunto la funcion.

Function SelectUnlockedCells()


Dim WorkRng As Range
Dim OutRng As Range
Dim Rng As Range
On Error Resume Next
Set WorkRng = Application.ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Each Rng In WorkRng
    If Rng.Locked = False Then
        If OutRng.Count = "" Then
            Set OutRng = Rng
        Else
            Set OutRng = Union(OutRng, Rng)
        End If
    End If
Next
If OutRng.Count > 0 Then OutRng.Select
Application.ScreenUpdating = True
End Function


No se si se puede hacer algo al respeto de las imagenes.

Resulta que en cuanto la celda "D17" se limpia atraves de la macro, la imagen se queda colgada.

He intentado con la opcion de "IFERROR" pero no me ha dado ningun resultado, la imagen sigue alli.

Gracias de antemano.

Saludos,

Jose

AdjuntoTamaño
File test_-_reserva.xlsm474.18 KB