sub addtoclipboard()
Dim rng as Range
for each cell in Range("G5:G100")
if cell.value = 1 then
if rng is nothing then
set rng = cell
else
set rng = union(rng,cell)
end if
end if
Next
if not rng is nothing then
set rng = Intersect(rng.entireRow,Columns(3))
rng.select
rng.copy
else
msgbox "Nothing to copy"
end if
End Sub

Just remember that there are many actions that will clear the clipboard

--
Regards,
Tom Ogilvy


"madbunny" wrote:


If anyone can help me with this problem I'd appreciate it.
I'm trying to make what I'd assume is a simple excel macro but I cannot
find any useful FAQs or website with actual useful help on making excel
macros.

Basically I want to select a column, let's call it column G, and I want
the macro to check every field in that column from say 5 to 100 and if
there's a 1 in that field, then get the information in column C in the
same row, and put it into the windows clipboard so I can paste it
later.

I'm using Selection.Cells(x,1).value in a loop and incrementing x to
find the value in the selected column, but how do I then select column
C in the same row if it's a 1? Also I'm unsure how to add this
information to windows clipboard. I want to be able to ctrl-V once I've
run the macro and simple paste the list of information that was
retrieved.

If anyone can help me with this or simply point me to a useful online
resource I'd appreciate it.


--
madbunny
------------------------------------------------------------------------
madbunny's Profile: http://www.excelforum.com/member.php...o&userid=32541
View this thread: http://www.excelforum.com/showthread...hreadid=523253