[table="width: 500"]
[tr]
[td]Global DataLinkListIndex As Long
Sub NextPageButton_Click()
Dim R As Long, DataLinkList As Variant, Col1 As Variant, Col2 As Variant
Static DataLinkListIndex As Long
DataLinkList = Array("RCWVWD MSGS", "SEDSDND MSG", "WEASDTHESR", "TSWIP", "ATASDIS", "RETASDURN", "ASSDTS LOG", "DEPARTURE CLX", "OCEANICOL CLX", "AIRPORTS", "AIRWAYS", "SERIAL NUMBER", "PRODUCT ID", "PILOT", "DEPARTURE", "ARRIVAL", "SECTOR", "WAYPOINT", "DATASET", "WOOD", "WING", "DOOR", "LANDING GEAR", "ABEAN", "RIBS", "COWN", "FLAPS", "LEDGE", "CHOPER", "TERMINAL", "IATA", "ICAO", "ANE", "JOHN", "MICHAEL", "DASD", "EAT", "ESTERN", "CRIS", "TO", "FROM", "NEAR", "CLOSE", "KABAL")
For R = 1 To 5
If DataLinkListIndex + R - 1 <= UBound(DataLinkList) Then
Cells(R, "C").Value = DataLinkList(DataLinkListIndex - 1 + R)
Else
Cells(R, "C").Value = ""
End If
If DataLinkListIndex + R + 4 <= UBound(DataLinkList) Then
Cells(R, "D").Value = DataLinkList(DataLinkListIndex + 4 + R)
Else
Cells(R, "D").Value = ""
End If
Next
DataLinkListIndex = DataLinkListIndex + 10
If DataLinkListIndex > UBound(DataLinkList) Then DataLinkListIndex = 0
End Sub
Sub PreviousPageButton_Click()
Dim R As Long, DataLinkList As Variant, Col1 As Variant, Col2 As Variant
Static DataLinkListIndex As Long
DataLinkList = Array("RCWVWD MSGS", "SEDSDND MSG", "WEASDTHESR", "TSWIP", "ATASDIS", "RETASDURN", "ASSDTS LOG", "DEPARTURE CLX", "OCEANICOL CLX", "AIRPORTS", "AIRWAYS", "SERIAL NUMBER", "PRODUCT ID", "PILOT", "DEPARTURE", "ARRIVAL", "SECTOR", "WAYPOINT", "DATASET", "WOOD", "WING", "DOOR", "LANDING GEAR", "ABEAN", "RIBS", "COWN", "FLAPS", "LEDGE", "CHOPER", "TERMINAL", "IATA", "ICAO", "ANE", "JOHN", "MICHAEL", "DASD", "EAT", "ESTERN", "CRIS", "TO", "FROM", "NEAR", "CLOSE", "KABAL")
For R = 1 To 5
If DataLinkListIndex + R - 1 <= UBound(DataLinkList) Then
Cells(R, "C").Value = DataLinkList(DataLinkListIndex - 1 + R)
Else
Cells(R, "C").Value = ""
End If
If DataLinkListIndex + R + 4 <= UBound(DataLinkList) Then
Cells(R, "D").Value = DataLinkList(DataLinkListIndex + 4 + R)
Else
Cells(R, "D").Value = ""
End If
Next
DataLinkListIndex = DataLinkListIndex - 10
If DataLinkListIndex < 0 Then DataLinkListIndex = Application.MRound(UBound(DataLinkList), 10)
End Sub[/td]
[/tr]
[/table]