Copying data to one sheet into new row on another sheet

.Mint · Sep 14th 2011

Hey,

Currently I have this code:

Code

Sub ViewContacts()'
' ViewContacts Macro
'




'
    Sheets("Contacts").Select
End Sub
Sub AddContact()
'
' AddContact Macro
'




'
    Range("E8").Select
    Selection.Copy
    Sheets("Contacts").Select
    Range("C10").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("E9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Contacts").Select
    Range("D10").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("E10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Contacts").Select
    Range("E10").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("E11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Contacts").Select
    Range("F10").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("E12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Contacts").Select
    Range("G10").Select
    ActiveSheet.Paste
End Sub

Display More

The issue i'm having is that I want the text which is copied to actually add a new row (So i'm making a table of my clients details but using another page to type the information in and the macro to paste it into the contacts sheet) Hope i explained it well enough!

Eggcel · Sep 15th 2011

Re: Copying data to one sheet into new row on another sheet

Could you be a bit more specific about what the end result you are looking for is. Maybe you could provide a sample workbook with some made up contacts and what you expect the final sheet to look like.

Copying data to one sheet into new row on another sheet

Participate now!

Share