In my nonworking example I use the cell C5 as the cell to enter a value. What I am trying to do is: Every time a new value is entered into the cell C5, that value should be stored in the column A starting from A1 and onwards. (For example: I enter number 1.205 - it gets stored in A1, then I enter number 1.572 - it gets stored in A2, and so on).
I know that my method is probably far from correct, so any help is appreciated. I have tried a few different ways to achieve this, but I can't get it to work, maximum I have achieved is being able to store up until the 2nd row of column A.
![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim SourceCell As Range Dim CheckCell As Range Dim I As Integer I = 1 Set SourceCell = Range("C5") Set CheckCell = Range("A" & I) If IsEmpty(CheckCell) Then CheckCell.Value = SourceCell ElseIf Not IsEmpty(CheckCell) Then I = I + 1 Set CheckCell = Range("A" & I) CheckCell.Value = SourceCell End If End Sub











LinkBack URL
About LinkBacks
Register To Reply

Bookmarks