Hi, I want to add a textbox value in a cell if its empty. If the cell is not empty I want to add to the next cell under instead and so on. I have a code which I can not get so it works correctly. Can anybody help me with this?
Private Sub TextBox1_Change() Dim rg As Worksheet Set rg = Worksheets("Blad2") If rg.Range("B2").Value = "" Then rg.Range("B2").Value = Jan1.TextBox1.Value End If End Sub