I have a list of tools in column F. Column G, H, I, J, K, and
represent each toolbox. If I put an X in column G, that represents tha
that tool (column F) in box one (column G) is broken. Now, I need
macro to compile a list of every tool that is broken (has an X i
Column G, H, I, J, K, or L)

--
Optitro
-----------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...fo&userid=2672
View this thread: http://www.excelforum.com/showthread.php?threadid=46891

Dim cell as Range, rng as Range
Dim ct as Long, msg as String
for each cell in Range("F2:F300")
set rng = cell.offset(0,1).Resize(6)
ct = Application.countif(rng,"x")
if ct 0 then
msg = msg & cell.Value & " - " & ct & vbNewLine
end if
Next

msgbox msg

--
Regards,
Tom Ogilvy

"Optitron" wrote in
message ...

I have a list of tools in column F. Column G, H, I, J, K, and L
represent each toolbox. If I put an X in column G, that represents that
that tool (column F) in box one (column G) is broken. Now, I need a
macro to compile a list of every tool that is broken (has an X in
Column G, H, I, J, K, or L).


--
Optitron
------------------------------------------------------------------------
Optitron's Profile:
http://www.excelforum.com/member.php...o&userid=26729
View this thread: http://www.excelforum.com/showthread...hreadid=468910

Ok how do I get this list onto sheet1?

Dim cell as Range, rng as Range
Dim ct as Long, msg as String
for each cell in Range("F2:F300")
set rng = cell.offset(0,1).Resize(6)
ct = Application.countif(rng,"x")
if ct 0 then
msg = msg & cell.Value & " - " & ct & vbNewLine
end if
Next

msgbox ms

--
Optitro
-----------------------------------------------------------------------
Optitron's Profile: http://www.excelforum.com/member.php...fo&userid=2672
View this thread: http://www.excelforum.com/showthread.php?threadid=46891