Sub resultat()
'
' resultat Macro
'
'
Range("A1:E1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Columns("F:F").Select
Range("F2").Activate
Selection.UnMerge
Range("I2:I110").Select
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.TextToColumns Destination:=Range("K2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
End Sub
Sub report()
For n = 1 To Sheets("Prono").Range("B" & Rows.Count).End(xlUp).Row
If InStr(Sheets("Prono").Range("B" & n), "Hippodrome") <> 0 Then
f = Replace(Sheets("Prono").Range("B" & n), "Course: ", "")
f = "TAB " & Replace(Left(f, 3), ".", "")
For m = n + 1 To Sheets("Prono").Range("B" & Rows.Count).End(xlUp).Row
If InStr(Sheets("Prono").Range("B" & m), "Hippodrome") <> 0 Then
fin = m - 1
Exit For
End If
Next
derlin = Sheets(f).Range("B" & Rows.Count).End(xlUp).Row
Sheets("Prono").Range(Cells(n, 2), Cells(fin, "AI")).Copy Destination:=Sheets(f).Range("B" & derlin)
End If
Next
End Sub