View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Stilltrader47 Stilltrader47 is offline
external usenet poster
 
Posts: 36
Default Entering a Value & Updating the Next Empty Cell in a Range

Tom, Thank-you. One functionality is missing, but maybe it's how I entered.
Each time I enter a value in "C5" the new entry populates "A10". The next
entry does not update cell "A11", but replaces the previously entered value
in "A10". I copied and pasted just as directed below. Any thoughts.

Your insight is much appreciated - Tom

"tompl" wrote:

This is a Macro and if you have not worked with them before it might be a
little advanced for you. I am sorry if all this just adds confusion.

To install this macro you need to open the VB Editor aka Macro Editor.
First, open your workbook, then open the VB Editor by pressing Alt F11. With
that open you should be able to see a list of worksheets in you workbook. If
not press Ctrl R to open the Project Explorer. Next, double click on the
worksheet name and the €śCode€ť window will open and focused on that specific
worksheet. Paste the code below into the €śCode€ť window and that should do it.

I re-thought my earlier code and changed it a little so use this code
instead of the previous. When installed, each time you enter something in
Cell C5 of that particular worksheet, the same value will be automatically
added to the next empty cell below cell A10. Good luck, Tom

Private Sub worksheet_Change(ByVal Target As Range)

Dim rwRow as long

If Not Intersect(Target, Range("C5")) Is Nothing Then
rwRow = Range("A10").End(xlDown).Row
Range("A" & rwRow + 1).Value = Range("C5").Value
End If

End Sub