Linking cells into empty cells in another worksheet

[Bookworm]

I want to link text cells from one worksheet into the next empty cell
in another worksheet. i.e I cannot paste link to cell? because it may
already be full with a previous link.

Put another way. I want to automatically produce a list of names and
values from several worksheets into another worksheet without
overiding the previous entry to that 2nd worksheet. I want to
automatically add that data to the next available empty row in the 2nd
worksheet.

How do I do it?

 

[Guest]

Each time that you are ready to add the new entries from the several sheets
to your single sheet, how are you going to distinquish and copy only the new
entries?

 

[Bookworm]

Each time that you are ready to add the new entries from the several sheets
to your single sheet, how are you going to distinquish and copy only the new
entries?

I want it to automatically update the second worksheet when the value
(text in this case) is entered in another worksheet and enter is
pressed.

I want the linked Text to be added to the next available row of cells
in 2nd worksheet.

 

[Guest]

Here's what I came up with.. If you have 4 sheets (of the input type) paste
the below code into each of the sheets code modules. But first modify line 4
where I assumed your coloumns to be copied ran A to E << Chg to your desired
Col letter
and also lines 5 and 6 change "sheet4" to the name of your destination sheet.

Lastly, the Copy process takes place not as you press the enter key, but
instead
when you Double-Click the Row of the just entered record...

HTH,

Jim May

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Activate
With Sheets("Sheet4")
lrow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & lrow).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = xlCopy
End Sub

 

[Bookworm]

Here's what I came up with.. If you have 4 sheets (of the input type) paste
the below code into each of the sheets code modules. But first modify line 4
where I assumed your coloumns to be copied ran A to E << Chg to your desired
Col letter
and also lines 5 and 6 change "sheet4" to the name of your destination sheet.

Lastly, the Copy process takes place not as you press the enter key, but
instead
when you Double-Click the Row of the just entered record...

HTH,

Jim May

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Activate
With Sheets("Sheet4")
lrow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & lrow).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = xlCopy
End Sub

Thanks for suggestion Jim but I think the coding is a bit beyond me.
Is there a way I can do it using the Ecxel tools?

 

[Guest]

Sorry bookworm, but that's about the best I can recommend.
additionally, as I look back I see an error on my code (missed before), but
the next to the last line:
Application.CutCopyMode = xlCopy

should read:

Application.CutCopyMode = False

Sorry,

Jim May

 

[Guest]

I was looking to do this very same thing. I have a tracking page for our
loan manager and 3 loan officers that list their outstanding loans and their
status. What I want to happen is whenever a loan officer changes something
in their report, I want it to update the manager's report. I've never used
codes before but I'm willing to give it a try. Where in the VBA code to you
place your additions. I actually found the script editor and I'm assuming
it's somewhere in there. I would be ever so thankful if you could help.