Hacer búsqueda de datos dependiendo del valor de una celda (excel)
Estoy tratando de montar una hoja con el calendario para una liga de fútbol.
He buscado, he intentado, pero no doy con la tecla para hacer lo que quiero.
Voy anotando los resultados de las jornadas (6 partidos por jornada).
Selecciono un equipo en su recuadro correspondiente (mediante validación de datos - Lista (equipos)).
Y ahora viene mi laberinto, necesito que al seleccionar un equipo, me salga automáticamente los partidos y los resultados.
He probado con buscar y coincidir pero no consigo dar con la tecla.
¿Alguna ayudita?
1 Respuesta
[email protected] para dar asistencia en lo requerido mandame el archivo
Aqui esta la macro en el caso de no sabe sobre macro hay esta mi correo
Presiona ALT + f11 esto te lleva al editor VBA
Seleciona la hoja donde quiere que trabaja
Y pega estos
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("k5")) Is Nothing Then
Range("N4:R100").ClearContents
For i = 4 To 100
If Cells(i, "B") = Range("K5") Then
Range("N100").End(xlUp).Offset(1, 0) = Cells(i, "B")
Range("N100").End(xlUp).Offset(0, 1) = Cells(i, "C")
Range("N100").End(xlUp).Offset(0, 2) = Cells(i, "D")
Range("N100").End(xlUp).Offset(0, 3) = Cells(i, "E")
End If
If Cells(i, "D") = Range("K5") Then
Range("N100").End(xlUp).Offset(1, 0) = Cells(i, "B")
Range("N100").End(xlUp).Offset(0, 1) = Cells(i, "C")
Range("N100").End(xlUp).Offset(0, 2) = Cells(i, "D")
Range("N100").End(xlUp).Offset(0, 3) = Cells(i, "E")
End If
Next
End If
End Subno olvides valorar si te fue de ayuda
Muchas gracias por su ayuda.
Exactamente no es lo que busco.
Le mande un correo con el archivo. Si puede, revíselo.
MUCHAS GRACIAS.
Aun no me llega el correo
¡Gracias!
Correo mandado de nuevo.
Recibido el excel modificado.
Funciona perfecto.
El único pero que si borro el equipo seleccionado en la celda de validación de datos, tarda mucho en responder el excel, pero después funciona perfecto.
GRACIAS!
Listo, bro. Te envíe las modificación corregido el problema de carga mucho cuando borra
