Thread
:
Not sure how to handle this
View Single Post
#
3
Posted to microsoft.public.excel.programming
Greg Wilson[_4_]
external usenet poster
Posts: 218
Not sure how to handle this
Hotherps,
I'll have a look at it if you email me a sample workbook.
Required is that the workbook have one worksheet with the
data arranged in a BEFORE state and another worksheet with
the data arranged in the AFTER state. Also required is a
simple explanation (starting from scratch) as to what you
want the macro to do. Note that the main challenge appears
to be understanding what it is you are trying to do rather
than how to achieve it - not to imply that the latter is
simplistic.
The word EXCEL should be included in the email subject.
Remove "nospam" from my email address. No guarantees.
Regards,
Greg
(VBA amateur)
-----Original Message-----
IND will only appear in 8 cells per row, and it might not
be every row.
After 8 cells are found the code should apply the same
conditions but
offset them -1. I can only have IND in four colunms at a
time.
When it drops down after the 4 column has eight cells, it
should place
Brk -1 from the next cell that has IND in it.
I also need to know how many cells have "." in them
before a cell with
IND is reached. The scheme will change based on the
number of cells
with "." in them. I can't seem to get a counter to do
this.
I just need to be able to count the "." before each group
of INDS is
found.
Kind of hard to explain..
Thanks
Dim cell As Range, cell1 As Range
Dim bLunchDue As Boolean, bHadLunch As Boolean
Dim l As Integer
Dim i As Integer
For Each cell In Range("G11:G298")
i = 1
bLunchDue = False
bHadLunch = False
' 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, 8), "IND") = 8 Then
If bLunchDue Then
cell1.Offset(0, 8).Value = "lun"
bLunchDue = False
bHadLunch = True
Else
cell1.Offset(0, 8).Value = "brk"
If Not bHadLunch Then bLunchDue = True
End If
End If
Next
Next
---
Message posted from
http://www.ExcelForum.com/
.
Reply With Quote
Greg Wilson[_4_]
View Public Profile
Find all posts by Greg Wilson[_4_]