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 de Dante Amor
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