Como conseguir traer varios registros en excel

Quisiera tengo una hoja de excel llamada Bonoloto, con una tabla (Tabla2) y varios registro y en ella calculo desde la fecha y comenzando la semana en lunes que semana del año corresponde la fecha.

Y luego tengo otra llamada inicio en la cual eligiendo la semana quisiera me devolviera los valores que coincidieran en dicha semana.

Adjunto archivo de ejemplo por si les sirve de algo,

https://cutt.ly/knRFqsJ

1 Respuesta

Respuesta
1

Con esta fórmula puedes calcular el número de semana:

=NUM.DE.SEMANA(Tabla2[[#Esta fila],[Fecha]],2)

Pon esta macro en los eventos de la hoja "Inicio".

Cada que cambies la semana en la celda D4 en automático te copiará los datos que coinciden con la semana.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  If Not Intersect(Target, Range("D4")) Is Nothing Then
    Dim f As Range
    Dim sh As Worksheet
    '
    Application.ScreenUpdating = False
    '
    Set sh = Sheets("Bonoloto")
    Range("C7:G" & Rows.Count).Clear
    sh.ListObjects("Tabla2").AutoFilter.ShowAllData
    Set f = sh.Range("C:C").Find(Target.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
      sh.ListObjects("Tabla2").Range.AutoFilter 1, Target.Value
      sh.AutoFilter.Range.Offset(1).Copy
      Range("C7").PasteSpecial xlPasteAll
      sh.ListObjects("Tabla2").AutoFilter.ShowAllData
      Range("D4").Select
    End If
    '
    Application.ScreenUpdating = True
  End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas