One works - One does not?
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 |
One works - One does not?
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/ |
One works - One does not?
Thanks Tom, that makes sense.
Timestart referes to a seperate Public Sub, it just divides 24 hour into 12 2 hour periods. It plays a role in placing the groups of cells into certain areas. THank -- Message posted from http://www.ExcelForum.com |
All times are GMT +1. The time now is 11:44 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com