Re: copy data to another sheet

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Tom Ogilvy (twogilvy_at_msn.com)
Date: 08/16/04 

Date: Sun, 15 Aug 2004 21:23:10 -0400

Using cute notation like MT to say empty just makes it less likely your post
will be answered. You interest is best served by clearly, simply and
completely stating your problem.

Here is one possible interpretation:

Sub Tester9()
Dim rng As Range, rng1 As Range
Set rng1 = Worksheets("Summary") _
  .Cells(Rows.Count, 1).End(xlUp)
Set rng = Range("A10,A11,E22,F22,G22,H22,K60,L60,M60")

i = 0
For Each cell In rng
 cell.Copy Destination:=rng1.Offset(0, i)
 i = i + 1
Next
MsgBox "Pasted at " & cell.Address
End Sub 

-- 
Regards,
Tom Ogilvy
"Patch" <anonymous@discussions.microsoft.com> wrote in message
news:677a01c4832b$8010e600$a501280a@phx.gbl...
> Hi -
>
> My VBA knowledge is very limited. I pretty much depend on
> the macro recorder to do my dirty work and I know that
> it's very inefficient. Here's what I want to do -
>
> I have a template *** that gets filled in with data,
> both numbers and text. I want to copy certain bits of this
> data and paste it into a different workbook which I use as
> a summary.
>
> The data I want to copy/paste is scattered throughout the
> template and is for the most part in non-contigious blocks.
> I can handle the copy operation but the problem comes when
> I need to define the destination. I want the data to be
> pasted in the next MT row of the summary *** in a
> different workbook. If it wasn't for the last row bit I
> could just use a formula cell to cell link like =Template!
> A10.
>
> Say for example I want to copy from the template ***
> cells - A10,A11,E22,F22,G22,H22,K60,L60,M60 and have that
> pasted into the summary workbook on the next MT row, which
> might be row 12, in the range A12:I12.
>
> I also would like a msg box that pops up and confirms that
> the copy/paste was successful.
>
> I can handle creating a button and assigning the macro to
> it.
>
> Any help will be greatly appreciated.
>
> Patch
Quantcast