This code places a value in the eigth cell of a row. Then it drops t
the next row. In the second row it should put the value in the 16t
cell. It should then continue on with a few more intervals. But I ca
only get the first one to work.

If .Cells(x, skilly).Value = "x" And did = False Then
For y = timeStart To timeStart + 7 'added line wit
offset1
If .Cells(x, y).Offset(0, 7).Value = "." _
And .Cells(x, y).Value = "." _
And counter = 8 _
And need 0 Then
.Cells(x, y).Offset(0, 0).Resize(1, 8).Value
"IND"
.Cells(x, y).Offset(0, 8).Value = "Brk"

If .Cells(x, y).Offset(0, 15).Value = "." _
And .Cells(x, y).Value = "." _
And counter = 8 _
And need 0 Then
.Cells(x, y).Offset(0, 0).Resize(1, 15).Value
"IND"
.Cells(x, y).Offset(0, 16).Value = "Lun"
.Cells(x, y).Offset(0, 17).Value = "Lun"
counter = counter + 1
need = need -

--
Message posted from http://www.ExcelForum.com