View Single Post
  #3   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

Thanks Tom, I will update you, and thanks for being open to followup
questions - Sony

"tompl" wrote:

Copy this code to the macro area of the specific worksheet that you are
working on and any value entered in cell C5 of that worksheet will be copied
to the bottom of the column that starts with cell A10.

Private Sub worksheet_Change(ByVal Target As Range)

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

End Sub

Let me know if you have further questions.

Tom