Auto copy and pasting

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

cdixon - 23 Jan 2006 01:01 GMT

Need help. I need a macro or program that can sort and copy the
information I enter in one sheet over to another sheet. The information
needs to be sorted by name and filed on the distention sheet in that
order. As I enter the information or by a command.
Example:
Sheet 1:      John
        Tom
        Jim
        Bob
        Tom
        Bob

Sheet 2 The information would look like this

        John
        Tom
        Tom
        Bob
        Bob

Any Idea or am I in to deep?

Reply to this Message

Tom Ogilvy - 23 Jan 2006 01:10 GMT

Private Sub CommandButton1_Click()
Dim rng as Range
Worksheets("Sheet2").Cells.ClearContents
set rng = Worksheets("Sheet1").Range("A1").CurrentRegion
rng.copy Destination:=Worksheets("Sheet2").Range("A1")
set rng = Worksheets("Sheet2").Range("A1").CurrentRegion
rng.sort Key:=rng.Parent.Range("A1")
End Sub

Signature

Regards,
Tom Ogilvy

> Need help. I need a macro or program that can sort and copy the
> information I enter in one sheet over to another sheet. The information
[quoted text clipped - 17 lines]
>
> Any Idea or am I in to deep?

Reply to this Message