Evitar regresar a celdas cuando se marque una respuesta en la tabla
Hola,
Quisiera saber como hacer para que al momento de marcar una respuesta o mejor aun escribir 1 en la celda a1, y que no haya manera de regresar a a1 sino ir a a2, hice proteger cceldas, pero puedo ir con el mouse y no quiero eso .. Sino marcar una celda y no haya marcha atrás a volver, es para una encuesta y que el usuario no tenga derecho a corregir si se equivoco con su rpta elegida,
Espero me haya dejado entender
Saludos
Quisiera saber como hacer para que al momento de marcar una respuesta o mejor aun escribir 1 en la celda a1, y que no haya manera de regresar a a1 sino ir a a2, hice proteger cceldas, pero puedo ir con el mouse y no quiero eso .. Sino marcar una celda y no haya marcha atrás a volver, es para una encuesta y que el usuario no tenga derecho a corregir si se equivoco con su rpta elegida,
Espero me haya dejado entender
Saludos
1 Respuesta
Respuesta
1
Te paso un procedimiento que podrías agregar en la hoja activa (donde está la encuesta); la misma asume que las respuestas de la encuestas van de la celda B2 a B10 (y va ajustando el rango que puede seleccionar); habría que ajustarla a tu rango; pruébala y decime que te parece; cualquier cosa la ajustamos según tu necesidad
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("$B$2:$B$10")) Is Nothing) Then
If Target.Row = 10 Then
ActiveSheet.ScrollArea = "$A$1"
MsgBox "Encuesta terminada", vbOKOnly + vbInformation, "Informacion"
Else
ActiveSheet.ScrollArea = Range(Cells(Target.Row + 1, 2), Cells(10, 2)).Address
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("$B$2:$B$10")) Is Nothing) Then
If Target.Row = 10 Then
ActiveSheet.ScrollArea = "$A$1"
MsgBox "Encuesta terminada", vbOKOnly + vbInformation, "Informacion"
Else
ActiveSheet.ScrollArea = Range(Cells(Target.Row + 1, 2), Cells(10, 2)).Address
End If
End If
End Sub