Copying rows into a different sheet. Closed

Question

Hello,
Heres what I am trying to do. I  have a workbook with a "master" sheet that I enter all of the info on. I have other worksheets that have only certain parts of the Master sheet copied to each of them. As I enter information onto the Master sheet (by adding a new row) I want the new row and its info to appear in its correct place in the destination sheet. In other words, I add a new row and it's info into the Master sheet and I want it to be entered into the destination sheet the same way. 
Not sure anyone can understand this but there it is. Any ideas?

mubashir aziz · Accepted Answer

actually it can be solved if only you explain that how you have data in other sheet ...... If you are inputting data from master to destination sheet then its not very hard else with some more trick it can be updated there especially when you are inserting new Row ........ don't you have some blank row and can just enter data over three and linked those rows in your destination sheet ......

kwik98 · Answer

Yes, I insert a new row into the Master sheet and enter info ont it. I want the exact same thing to happen onto the destination sheet. I want a new row added at the exact same place I added it to the Master sheet adn all of the info transposed there as well.

mubashir aziz · Answer

I'm doubtful about inserting a row in one sheet and auto updation in other sheet. I think it can be thru macro but i'm not master in macros ..... But if you info in same row and columns then you can just give linked of desired cells in other sheet and after inserting some new data in master just dragdown the formula in your destination sheet ....

MisterPiz · Answer

i am looking to change a macro that I have from a loop to find the last empty row, to inserting a row.  My reference cell is C5, so the new row would be at C6.  I would like to insert data (=model!S44:AZ44)

here is what I have....that I would like to change

' this macro copies the data by code and pastes it to the history data sheets
'
' 290

    'This section captures the date and pastes it into the "history data" sheet.
    


    Sheets("Data Input").Select
    Range("AA1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("D6").Select
    Sheets("290").Select
    Range("c5").Select
    
    
        
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    'this section copies the model data and goes to the appropriate sheet to paste

    Sheets("model").Select
    Range("S44:Az44").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("290").Select
    Range("D5").Select
    
     'this section finds the next open row and pastes the data
 
    ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
    
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

MisterPiz · Answer

I am looking to change a macro that I have from a loop to find the last empty row, to inserting a new at the top row. My reference cell is C5, so the new row would be at C6. I would like to insert data (=model!S44:AZ44) 

here is what I have....that I would like to change 

' this macro copies the data by code and pastes it to the history data sheets 
' 
' 290 

'This section captures the date and pastes it into the "history data" sheet. 



Sheets("Data Input").Select 
Range("AA1").Select 
Application.CutCopyMode = False 
Selection.Copy 
Selection.Insert Shift:=xlDown 
Range("D6").Select 
Sheets("290").Select 
Range("c5").Select 

ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ 
xlNone, SkipBlanks:=False, Transpose:=False 

'this section copies the model data and goes to the appropriate sheet to paste 

Sheets("model").Select 
Range("S44:Az44").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("290").Select 
Range("D5").Select 

'this section finds the next open row and pastes the data 

ActiveCell.Offset(1, 0).Select 
Do While Not IsEmpty(ActiveCell) 
ActiveCell.Offset(1, 0).Select 
Loop 

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ 
xlNone, SkipBlanks:=False, Transpose:=False

Copying rows into a different sheet.

5 responses

Subscribe To Our Newsletter!