lista de datos con validación

Solo consultas sobre Funciones y Fórmulas Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
Benito Bartolomé
Miembro Frecuente
Miembro Frecuente
Mensajes: 41
Registrado: 19 Nov 2019 10:28

lista de datos con validación

Mensaje por Benito Bartolomé » 20 Ene 2020 04:21

Buenos días de nuevo a todos;
-La duda que quiero platear se trata de lo siguiente:
-Tengo dos hojas Excel una hoja1"CalendarioAnual" y hoja2"Turnos".
En la hoja1 y a partir de la celda "D11" voy seleccionando los turnos que me muestra la opción validación de datos.
El la hoja2 tengo los turnos y también la opción de validación en la fila "G" donde activo o desactivo dicho turno.
Ahora la pregunta.
¿Cómo puedo hacer para que cuando yo haga la consulta en la hoja1 celdaD11:hasta... solo me traiga los que tengo activos y no toda la lista.
Adjunto archivo.
Saludos y buen día a todos
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 6569
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: lista de datos con validación

Mensaje por Antoni » 20 Ene 2020 08:51

Añade esta macro a la hoja CalendarioAnual:

Código: Seleccionar todo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lista As String, x As Long
'--
If Not Target.Column = 4 Or _
   Target.Row < 11 Then
   Exit Sub
End If
'--
With Sheets("Horas")
   For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      If Not UCase(.Range("G" & x)) = "NO" Then
         lista = lista & "," & .Range("A" & x)
      End If
   Next
End With
lista = Mid(lista, 2)
'--
With Target.Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
       Operator:=xlBetween, Formula1:=lista
   .ShowError = True
End With
End Sub



Benito Bartolomé
Miembro Frecuente
Miembro Frecuente
Mensajes: 41
Registrado: 19 Nov 2019 10:28

Re: lista de datos con validación

Mensaje por Benito Bartolomé » 20 Ene 2020 09:42

Muchas y muchas gracias Antoni;
Justo como quería, muy agradecido por tu aporte. Aunque hoy sea el día mas triste del año tú que tengas un feliz día.



Responder