Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
almost works
When I run this code it finds the cells with the value "IND", it the
inserts "Brk" or "Lun" where required. Each row is 96 cells of which are populated 8 cells at a time. Afte the row has had 8 cells filled it drops down to the next row that ha INDS, but at that point the "Brk" and "Lun" are 8 cells ahead of wher they should be. I can't seem to figure out how to correct this. Thanks Dim cell As Range, cell1 As Range Dim bLunchDue As Boolean, bHadLunch As Boolean Dim l As Integer Dim k As Integer For Each cell In Range("G11:G298") bLunchDue = False bHadLunch = False l = 8 ' now walk across the row or reference cells in the row. For Each cell1 In cell.Resize(1, 96 - 7) If Application.CountIf(cell1.Resize(1, l), "IND") = l Then If l = 8 Then cell1.Offset(0, 8).Value = "Brk" bLunchDue = True If bLunchDue Then cell1.Offset(0, 17).Value = "Lun" cell1.Offset(0, 18).Value = "Lun" cell1.Offset(0, 24).Value = "Brk" bLunchDue = False bHadLunch = True End If l = l + 8 bLunchDue = True If bLunchDue Then If l = 50 Then l = 0 End If End If End If Next Nex -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need help on how it works.... | Excel Discussion (Misc queries) | |||
This almost works, but... | Excel Discussion (Misc queries) | |||
How do I convert works file to excel without works software? | Excel Discussion (Misc queries) | |||
One works - One does not? | Excel Programming | |||
MS Works and VB | Excel Programming |