View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
David David is offline
external usenet poster
 
Posts: 195
Default 2 ranges into one

XL2000
I've been happily using the following to copy a range of non-contiguous
checkmarks under current date on one sheet to a range on another sheet
under current date:

Sub CopyToday()
Dim Rng As Range
Set Rng = Rows(2).Find(Date).Offset(1, 0)
Range(Rng, Rng.Offset(Range("Attendance").Rows.Count - 1, 0)).Copy _
Destination:=Sheets(3).Range(Rng.Address)
End Sub

Now "the boss" needs another identical source sheet that will have a
different set of checkmarks under current date, so now there will be 2 sets
of checkmarks to copy into this destination. I looked at Union(), but from
what I've read, it doesn't work with ranges from different sheets.

Playing out options in my mind, I thought maybe copying both sets to
columns in a temporary location then use Union() in a third column in that
temporary location to "merge" the checkmarks, then copy that range to the
destination, then delete the temporary location, but that seems like a lot
to do to accomplish what should be easier. Besides, I can't come up with
the code to do that anyway.

Can anyone help me get all checkmarks from 2 sheets into my Destination?

--
David