HELP!

Goal: seeking to have a row of data in "sheet1" which has a unique
indentifier in cell D6 copy and pasted to a worksheeting within the
same workbook that matches the uniquie indentifier in Cell D6. I would
like this to loop through to the end of the 30 or so records.

Current Code: I have this macro repeating thirty times, but does not
allow for any new additions to the "sheet1" data rows (ie, if I delete
one item and replace it with a new identifier)

Sheets("sheet1").Activate
Range("G7:K7").Select
Selection.Copy
Sheets("DAVE").Select
Range("B7").Select
ActiveSheet.Paste

My Flustration: tying the identifer, which is not copied to the
individual worksheet to the worksheet which matches the identifer and
having the process loop though all records, copy the data from g:k and
then deposit that data into the correct sheet (in the case above, its
"DAVE").

hope this makes sense, Happy New year to all. Thanks.

See reply in your other thread

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


<(E-Mail Removed)> wrote in message news:f2cd6830-3b36-4982-a11d-(E-Mail Removed)...
> HELP!
>
> Goal: seeking to have a row of data in "sheet1" which has a unique
> indentifier in cell D6 copy and pasted to a worksheeting within the
> same workbook that matches the uniquie indentifier in Cell D6. I would
> like this to loop through to the end of the 30 or so records.
>
> Current Code: I have this macro repeating thirty times, but does not
> allow for any new additions to the "sheet1" data rows (ie, if I delete
> one item and replace it with a new identifier)
>
> Sheets("sheet1").Activate
> Range("G7:K7").Select
> Selection.Copy
> Sheets("DAVE").Select
> Range("B7").Select
> ActiveSheet.Paste
>
> My Flustration: tying the identifer, which is not copied to the
> individual worksheet to the worksheet which matches the identifer and
> having the process loop though all records, copy the data from g:k and
> then deposit that data into the correct sheet (in the case above, its
> "DAVE").
>
> hope this makes sense, Happy New year to all. Thanks.

There is some additional information that is needed for an efficient
and robust solution: but, assuming that your "identifiers" in column D
are in rows 1 through 6 and you always want the data from sheet1 to go
to row 7 of the identified sheet, the following should get you
started:

Sub test()

For i = 1 To 6
For j = 8 To 11
Worksheets(Cells(i, 4).Value).Cells(7, j).Value = Cells(i,
j).Value
Next j
Next i

End Sub

If the sheet does not exist you will get an error.

Good luck.

Ken
Norfolk, Va.


On Jan 2, 2:54*pm, bbhig...@hotmail.com wrote:
> HELP!
>
> Goal: seeking to have *a row of data in "sheet1" which has a unique
> indentifier in cell D6 copy and pasted to a worksheeting within the
> same workbook that matches the uniquie indentifier in Cell D6. I would
> like this to loop through to the end of the 30 or so records.
>
> Current Code: *I have this macro repeating thirty times, but does not
> allow for any new additions to the "sheet1" data rows (ie, if I delete
> one item and replace it with a new identifier)
>
> Sheets("sheet1").Activate
> * * Range("G7:K7").Select
> * * Selection.Copy
> * * Sheets("DAVE").Select
> * * Range("B7").Select
> * * ActiveSheet.Paste
>
> My Flustration: *tying the identifer, which is not copied to the
> individual worksheet to the worksheet which matches the identifer and
> having the process loop though all records, copy the data from g:k and
> then deposit that data into the correct sheet (in the case above, its
> "DAVE").
>
> hope this makes sense, Happy New year to all. Thanks.