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
|