Macro Code Overwrites Previous Data

Hello,

The following code will only store the last [Textbox4.value].
Is there a way to save them below each other, but without using "LastRow + 1"?


[VBA]
Sheets("1").Range("B" & LastRow).Value = UserForm1.TextBox2.Value
Sheets("1").Range("B" & LastRow).Value = UserForm1.TextBox3.Value
Sheets("1").Range("B" & LastRow).Value = UserForm1.TextBox4.Value
[/VBA]

Try using this instead for each one[vba]Sheets("1").Range("B" & Range("B" & Rows.Count).end(xlUp).Row).Value = [/vba] The reason your's currently overwrites each time is because you are taking the value of the last row before adding any values but then the variable isn't updated, so if you had lastrow of 25 it will always remain that until you open the userform again :)

What is wrong with Lastrow + 1?

[VBA] With Sheets("1").Range("B" & LastRow)

.Value = UserForm1.TextBox2.Value
.Offset(1, 0).Value = UserForm1.TextBox3.Value
.Offset(2, 0).Value = UserForm1.TextBox4.Value
End With
[/VBA]

LOL..... That'll teach you, you young welsh pup :devil2:

Quote:

---

Originally Posted by Simon Lloyd

Try using this instead for each one[vba]Sheets("1").Range("B" & Range("B" & Rows.Count).end(xlUp).Row).Value = [/vba] The reason your's currently overwrites each time is because you are taking the value of the last row before adding any values but then the variable isn't updated, so if you had lastrow of 25 it will always remain that until you open the userform again :)

---

Thanks Simon!

Quote:

---

Originally Posted by xld

What is wrong with Lastrow + 1?

[vba] With Sheets("1").Range("B" & LastRow)

.Value = UserForm1.TextBox2.Value
.Offset(1, 0).Value = UserForm1.TextBox3.Value
.Offset(2, 0).Value = UserForm1.TextBox4.Value
End With
[/vba]

---

Hi xld, there was no indication from the OP as to how lastrow was derived or whether it was initiated on call of the userform or within a loop, so it seemed sensible to just give an answer that the OP could implement and understand what's happening :)

Quote:

---

Originally Posted by Aussiebear

LOL..... That'll teach you, you young welsh pup :devil2:

---

xld 1, Simon Lloyd 1 i think the score stands at ;)

My comment was in reference to what the OP said.