Macro Code Overwrites Previous Data

[Ethan]

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]

[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

[Bob Phillips]

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]

[Aussiebear]

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

[Ethan]

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!

[Simon Lloyd]

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

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

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

[Bob Phillips]

My comment was in reference to what the OP said.