S
srroduin
I have the following code done. The user wants to be able to push the "Flat"
button as many times as needed to add more information. Every time I loop it
I rewrite over my initial data. How do I make it skip down to the next row?
Also I want the user to have to choose yes or no to continue to loop.
Private Sub Flat_Click()
Dim sreturn As String
sreturn = InputBox("Enter start date dd/mm/yyyy 24hr clock")
[A11] = sreturn
sreturn = InputBox("Enter stop date dd/mm/yyyy 24hr clock")
[B11] = sreturn
sreturn = InputBox("Enter TSN to increase")
[C11] = sreturn
sreturn = InputBox("Enter TSN to decrease")
[D11] = sreturn
sreturn = InputBox("Enter MW Amount")
[E11] = sreturn
End Sub
button as many times as needed to add more information. Every time I loop it
I rewrite over my initial data. How do I make it skip down to the next row?
Also I want the user to have to choose yes or no to continue to loop.
Private Sub Flat_Click()
Dim sreturn As String
sreturn = InputBox("Enter start date dd/mm/yyyy 24hr clock")
[A11] = sreturn
sreturn = InputBox("Enter stop date dd/mm/yyyy 24hr clock")
[B11] = sreturn
sreturn = InputBox("Enter TSN to increase")
[C11] = sreturn
sreturn = InputBox("Enter TSN to decrease")
[D11] = sreturn
sreturn = InputBox("Enter MW Amount")
[E11] = sreturn
End Sub