Whoops - if criteria was incomplete

For x = 11 To 298
If .Cells(x, skilly).Value = "x" Then
For y = timeStart To timeStart + 7
If application.Countif(.Cells(x, y).Resize(1,44),".") = 44 then
.Cells(x, y).Resize(1,44).Value = skillNam
elseif application.Countif(.Cells(x, y).Resize(1,32),".") = 32 then
.Cells(x, y).Resize(1,32).Value = skillNam
End If
Next y
End If

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
For x = 11 To 298
If .Cells(x, skilly).Value = "x" Then
For y = timeStart To timeStart + 7
If application.Countif(.Cells(x, y).Resize(1,44),".") then
.Cells(x, y).Resize(1,44).Value = skillNam
elseif application.Countif(.Cells(x, y).Resize(1,32),".") then
.Cells(x, y).Resize(1,32).Value = skillNam
End If
Next y
End If
Next x


I don't know what roll need plays.

--
Regards,
Tom Ogilvy


"hotherps " wrote in message
...
I guess the 8 cells is part of my problem then, because I want to fill
the cells in 32 , 44 consecutive cells at atime.


I need the code to add 32 or 44 cells if = "." which is just acting as
a placeholder.

That's my problem:
"How would one know whether the row was 32 or 44? (your post)

So somehow the code needs to look down the row andd see if there are at
least 32 or 44 cells if so fill the range even if it is greater than
44.

Thanks Tom

Jim


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