Loop a simple if then statement with offset

[Hardhat]

I have two tables. I need information on one table transferred and converted to the second table. The IF Then statement is easy. But I do not want to have to write it out 700 times. I can not seem to figure out where to place the loops and offset to do what i am looking for. Below is the If Then statement and an explanation of what I am trying to do.

If Sheets(1).Range("F7").Value = 8 Then ' I need this to loop through Range (F7:S7)"

Sheets(3).Range("B5").Value = Sheets(1).Range("A7").Value 'this value to be place in Range (B5:O5) with Range 7 not changing

Else

Sheets(3).Range("B5").Value = "" 'this value to be place in Range (B5:O5)

'Then all the numbers to offset 1 down and repeat 55 times




End if


Please help I am a beginner, an my head is spinning. I am sure when I see the code I will fell like a fool for not figuring it out on my own.

 

[tonyyy]

Hardhat,

You might consider the following...

Sub AnotherLoop_1062191()
Dim r As Long, c As Long, i As Long, j As Long
j = 0
For r = 7 To 62
    i = 0
    For c = 6 To 19
        If Sheets(1).Cells(r, c).Value = 8 Then ' I need this to loop through Range (F7:S7)"
            Sheets(3).Cells(5 + j, 2 + i).Value = Sheets(1).Cells(r, 1).Value 'this value to be place in Range (B5:O5) with Range 7 not changing
        Else
            Sheets(3).Cells(5 + j, 2 + i).Value = "" 'this value to be place in Range (B5:O5)
        'Then all the numbers to offset 1 down and repeat 55 times
        End If
        i = i + 1
    Next c
    j = j + 1
Next r
End Sub

Please note the code is untested.

Cheers,

tonyyy

 

[Hardhat]

Tonyy,

Thank you So much. This works like a charm. This was way out side my skill level. Just proves what a beginner i am and how much more I will need to learn. Thank you again for your help.

 

[tonyyy]

You're very welcome...