Evo koda koji ce spisak utakmica sa prvog lista da kopira na Sheet3,
tebi ostaje da te celije formatiras i ako bas treba "prelomis" u vise kolona.
Code:
Private Sub Kopiraj()
Dim r As Long
Dim i As Long
Dim txtTime As String
Dim txtMatch As String
Dim txtChannel As String
Dim blnNewMatch As Boolean
Dim blnNewChannel As Boolean
Range("C3").Select
r = 3
i = 2
blnNewMatch = False
blnNewChannel = False
txtTime = ""
txtMatch = ""
txtChannel = ""
Do While Cells(r, 5).Value & Cells(r, 6).Value <> ""
blnNewMatch = Cells(r, 3).Value <> ""
If blnNewMatch Then
txtTime = Cells(r, 3).Value
txtMatch = Cells(r, 4).Value
End If
blnNewChannel = Cells(r, 5).Value <> ""
If blnNewChannel Then txtChannel = Cells(r, 5).Value
If blnNewChannel Then
Sheets("Sheet3").Cells(i, 2) = txtTime
Sheets("Sheet3").Cells(i, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
If blnNewMatch Then Sheets("Sheet3").Cells(i, 3) = txtMatch
Sheets("Sheet3").Cells(i, 4) = txtChannel
i = i + 1
End If
r = r + 1
Loop
Sheets("Sheet3").Columns("B:E").EntireColumn.AutoFit
End Sub
Pozdrav