Validaciones variables y autofiltros.

Hola! Ahora otro problema. ¿Cómo hacer validaciones que varíen según otras validaciones? ¿O eso es un filtro? Te paso un archivo que seguramente lo explique mejor.
Problema 1: Se trata de repartir 5 conceptos en 5 celdas que el usuario debe seleccionar, entonces, si en A1 optamos por una cosa, en B1 que sólo permita optar por las 4 restantes, al elegir en B1, en C1 sólo haya una lista de 3 conceptos por los que optar... Y así.
Problema 2: Otro problema de validaciones o de filtros (no lo sé) es que dependiendo de lo que seleccionemos en una celda se expanda una lista u otra en otra celda.
A ver si aprendo a hacer esto. Gracias. Un saludo!

1 Respuesta

Respuesta
1
Pues este código en la programación de la hoja en cuestión donde tienes las celdas cesplegables SI/NO
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$1"
If Target.Value = "SI" Then
ActiveSheet.Unprotect Password:="123"
Range("e1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="123"
Else
ActiveSheet.Unprotect Password:="123"
Range("e1").Select
Selection = ""
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="123"
End If
Case "$C$2"
If Target.Value = "SI" Then
ActiveSheet.Unprotect Password:="123"
Range("e2").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="123"
Else
ActiveSheet.Unprotect Password:="123"
Range("e2").Select
Selection = ""
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="123"
End If
Case "$C$3"
If Target.Value = "SI" Then
ActiveSheet.Unprotect Password:="123"
Range("e3").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="123"
Else
ActiveSheet.Unprotect Password:="123"
Range("e3").Select
Selection = ""
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="123"
End If
Case "$C$5"
If Target.Value = "SI" Then
ActiveSheet.Unprotect Password:="123"
Range("e5").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="123"
Else
ActiveSheet.Unprotect Password:="123"
Range("e5").Select
Selection = ""
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="123"
End If
End Select
End Sub
Ya te he enviado el fichero.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para bloquear celdas escritas en Excel

Tengo la siguiente macro, pero yo quiero que solo se aplique a la Hoja1. ¿Es posible? Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Proteger celdas con información 'Por.Dam Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Bloquear celdas con parámetro de ingreso

Tengo un archivo en excel en el cual necesito bloquear unas celdas especificas de aceurdo a un parámetro ingresado, por ejemplo si la celda B5 es igual a Directo la celda B4 debe bloquearse automáticamente, si la celda B5 es igual a Indirecto, la...
1 respuesta

Macro condicional

Necesito ayuda para generar una macro que actúe al registrarse la fecha en una celda, y en función del valor de esta celda, otro rango de celdas se bloquee.
1 respuesta

Proteger celdas en excel

Tengo una hoja de excel que quiero que una columna una vez escrito un valor o dato en cada celda de esa columna no se pueda modificar, o que avise pidiendo permiso. No se si esto se puede hacer, sino a ver si hay alguna alternativa similar.
1 respuesta

Macro para proteger una celda de excel inmediatamente después de entrar (copiar) algún contenido en ella

Me gustaría me ayuden a completar esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E13:J13")) Is Nothing Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub Lo que hace es...
2 respuestas

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta

Deseo bloquear un rango de celdas en función de un determinado valor. Ej: Si (A1=1;desbloq;bloq)

Ej: A1 = 1 mientras determinados valores están dentó de lo previsto, cuando estos valores no son los esperados A1 deja de valer 1. En el rango (B1:H5) quiero que se pueda cargar datos o modificar, mientras A1=1, cuando A1 deja de valer 1 se bloquee...
1 respuesta

Bloquear una casilla o no dependiendo del valor de otr

Tengo que proteger contra escritura una casilla en función del valor de otra, por ejemplo si mi casilla A1 vale "dital" la casilla B1 debe bloquarse contra escritura. Sin embargo si mi casilla A1 vale Analógico B2 debe estar sin bloquear y en ella yo...
1 respuesta

Proteger celdas desbloqueadas

Llevo días peleándome con un tema, protejo un hoja de excel mediante una macro, antes de proteger bloqueo toda la hoja excepto la columna F. El problema es que cuando vuelvo a abrir el libro excel, la hoja ya no tiene las celdas bloqueadas y si la...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas