About Us

Decreenisi[_2_]

On 8 Oct, 11:56, OssieMac wrote:
Hi Duncan,

Not sure that I have interpreted your question correctly because it appears
to be just duplicating the data. However, the following copies data from a
single row at the active cell in the active sheet and Pastes Special to the
Data Log sheet.

I have assumed that you have column headers in the Data Log sheet and they
are similar to the Input Data sheet.

Note the comments. Note also that a space and underscore at the end of a
line is a line break in an otherwise single line of code.

Ensure that you backup your workbook before running the code in case it does
not do what you expect.

Sub CopyData()
Dim wsDataLog As Worksheet

Set wsDataLog = Sheets("Data Log")

'On Input Data sheet at the activecell row, _
*copy the range from column A to column G
ActiveSheet.Range(Cells(ActiveCell.Row, "A"), _
* * * * Cells(ActiveCell.Row, "G")).Copy

'Find the blank row at the bottom of _
*existing data in Data Log and PasteSpecial, values
With wsDataLog
* * .Cells(.Rows.Count, "A").End(xlUp) _
* * * * .Offset(1, 0).PasteSpecial _
* * * * Paste:=xlPasteValues
End With

End Sub

--
Regards,

OssieMac

Thanks, that's just what I needed.

Dun.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need help with filtering & inserting information :(	Desper84AnAnswer	Excel Worksheet Functions	5	January 12th 09 03:50 AM
Filtering duplicate information	Rachael	Excel Worksheet Functions	3	September 10th 08 10:56 PM
Filtering Information	Brandy	Excel Discussion (Misc queries)	8	November 30th 07 02:59 PM
filtering out rows with duplicate information	rfIPS	Excel Discussion (Misc queries)	1	March 6th 07 07:51 PM
Functions for manipulating and filtering address information	devdas777	Excel Discussion (Misc queries)	0	November 15th 06 09:33 PM

Menu

About Us