This line
Cells(x, y).Offset(0, 0).Resize(1, 8).Value =
"IND"
Puts "IND"
in Cells(x,y).offset(0,0)
your next if statements says do something only if
And .Cells(x, y).Value = "." _
..cells(x,y) and cells(x,y).offset(0,0) refer to the same cell which now has
the value "IND", not "."
Also, based on your code I still don't see why you have the loop
For y = timeStart To timeStart + 7
--
Regards,
Tom Ogilvy
"hotherps " wrote in message
...
This code places a value in the eigth cell of a row. Then it drops to
the next row. In the second row it should put the value in the 16th
cell. It should then continue on with a few more intervals. But I can
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 with
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 - 8
---
Message posted from http://www.ExcelForum.com/