Paste MyInput in to a cell

[roka001]

Hi all!

After going through every thread with the word input and inputbox I have no choise but to write a questing.

This is what I want to do:
I'm going to creat a logsheet where the user types his or her user namn.

Sub log()

myinput = InputBox("Type your user name")
myinput2 = Now
MsgBox myinput & (" saved and it was logged:") & myinput2
Call find_blank_cell
End Sub

So far so good...
What I now want to do is to get the value from input and input2 to the next blank cell.
This is how I did that.

Sub find_blank_cell()
If Not ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
Call find_insert_log_space
Else
Call insert_log
End If
End Sub

You could probaly get it to work in a different way... I'm open for suggesions. =)

Now to my problem!

I can't get the inputs to be pasted in to the cells.
I have looked and looked everywhere and cant find a hint or a clue to what to do.

Something like this maybe? This is not the correct code but I dont know how to explain it.

Sub insert_log()
Myinput2.paste to Activecell 'The date first
ActiveCell.Offset(0, 1).Select
Myinput.paste to Activecell 'Then the user namn
End sub

I'm clueless...

 

[roka001]

Thx guys!

It worked out just fine!