Problem with loop

hi Dedaluss, welcome to Excelforum,

option basing on the code provided (not tested due no sample file have been presented)

Option Explicit

Sub Analyse_data()
Dim i As Long, n As Long, j As Long, lrow As Long
Dim sh As Worksheet, targetsh As Worksheet
Dim data, result

Set sh = Sheets("PakkeIndtag")
Set targetsh = Sheets("Data")

lrow = sh.Cells(Rows.Count, 1).End(xlUp).Row

data = sh.Range("a1:e" & lrow + 5)
ReDim result(1 To lrow, 1 To 7)

For i = 5 To lrow Step 6
    
    For n = i To i + 4
    
        If data(n, 1) <> "" Then
        
            j = j + 1
        
            result(j, 1) = data(1, 1) 'Station
            result(j, 2) = data(n, 1) 'MaskinTid
            result(j, 3) = data(n, 3) 'StopType
            result(j, 4) = data(n, 4) 'MaskinTid
            
            result(j, 5) = data(i, 1) 'Dag
            result(j, 6) = data(i, 2) 'Uge
            result(j, 7) = data(i, 6) 'Aar
        
        Else
        
            Exit For
            
        End If
    
    Next
    
Next

targetsh.Range(2, 1).Resize(j, 7) = result

End Sub

Hi watersev,

thx for quick reply. I have to disappoint you but code you provided those not work. Maybe it would be easy if I upload portion of the file i'm working on, so you can try it out.

Best Regards
Dedaluss

please check attachment, press Run button or run code in Module 2

Hi Watersev

You've done it. It works perfectly. Now do you think that i could take same code, copy it, and use it like this one, just to take data from other sheets and put it on same Data sheet?

I appreciate all your help. Please tell me if I have added reputation on to your account. This was my first reply with problem solved

Best regards
Dedaluss

I can't answer your question. The easiest way to check that is to use this code on a different sheet of the file.

PS. Re reputation: it was successful

Thx a lot
PROBLEM SOLVED

Best Regards
Dedaluss