Hi all.
I'm trying to set up my userform to fill in a daily cashflow spreadsheet. I want the figure I type in to the text box to be populated in the next blank cell in the column range.
The problem is, it worked for the first entry, but all subsequent entries just overwrite the previous instead of moving to the next empty cell.
Any help is much appreciated!
Private Sub UpdateButton_Click()
If NatwestBalance.Value = "" Then
MsgBox ("Input available balance from Natwet.co.uk")
Else:
If HSBCBalance.Value = "" Then
MsgBox ("Input available balance from HSBC.co.uk")
Else:
If SantanderBalance.Value = "" Then
MsgBox ("Input available balance from ISA website")
Else:
UserForm1.Hide
Worksheets("Monthly Summary").Visible = True
Worksheets("Monthly Summary").Select
Worksheets("Welcome").Visible = False
Worksheets("With Spend With Investment").Visible = True
Worksheets("Variables").Visible = False
Worksheets("With Spend With Investment").Range("Actual_Natwest_Balance").End(xlUp).Offset(1, 0).Value = NatwestBalance.Text
Worksheets("With Spend With Investment").Range("Actual_HSBC_Balance").End(xlUp).Offset(1, 0).Value = HSBCBalance.Text
Worksheets("With Spend With Investment").Range("Actual_Santander_Balance").End(xlUp).Offset(1, 0).Value = SantanderBalance.Text
'Keeps overwriting
End If
End If
End If
End Sub
Bookmarks