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...

 

[Lewiy]

Hi and welcome to the board!

This line will put the value of "myinput2" in the next empty cell in column A:

Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = myinput2

Hope that helps!

 

[Domski]

Hi,

Try this:

Sub log()

Dim myInput As String, myInput2 As Long, lastRow As Long


myInput = Environ("username")
myInput2 = Now

lastRow = Range("A65536").End(xlUp).Row

Cells(lastRow + 1, 1).Value = myInput
Cells(lastRow + 1, 2).Value = myInput2

MsgBox myInput & (" saved and it was logged:") & myInput2

End Sub

Hope it helps,

Dom

 

[roka001]

That one worked fine.. thx!

How does the code look for just getting the value from myinput to what ever cell?

Course

Cells = myinput

just messes things up. Almost killed my comupter =)

 

[roka001]

Hi,

Try this:

Sub log()

Dim myInput As String, myInput2 As Long, lastRow As Long


myInput = Environ("username")
myInput2 = Now

lastRow = Range("A65536").End(xlUp).Row

Cells(lastRow + 1, 1).Value = myInput
Cells(lastRow + 1, 2).Value = myInput2

MsgBox myInput & (" saved and it was logged:") & myInput2

End Sub

Hope it helps,

Dom

Wow... that was what I wanted all along!! Sweet.. thanx alot!


Still wanna know how to input a value from an inputbox to a cell.

 

[Lewiy]

The reason that will mess things up is because "Cells" represents every cell on the worksheet. You can refer to an individual cell in a number of ways. For example, to put "myinput" into cell A1 you could use:
Range("A1") = myinput
or
Cells(1,1) = myinput
or
[A1] = myinput

 

[roka001]

---->Domski

Why is the date one day ahead?
its 2007-08-06
when running the macro it displays 2007-08-07??

Freaky... =)

 

[roka001]

The reason that will mess things up is because "Cells" represents every cell on the worksheet. You can refer to an individual cell in a number of ways. For example, to put "myinput" into cell A1 you could use:
Range("A1") = myinput
or
Cells(1,1) = myinput
or
[A1] = myinput

Does not that only work when I know witch cell I want to paste the input in?

I was thinking more along with something like this:

Using
ActiveCell.Offset(1, 0).Select
To guide the macro to what ever statements there is.
and when one is found it drops on row and inserts the input there.

 

[Domski]

Sorry, should have spotted that.

Try:

Sub log()

Dim myInput As String, myInput2 As Long, lastRow As Long


myInput = Environ("username")
myInput2 = Date

lastRow = Range("A65536").End(xlUp).Row

Cells(lastRow + 1, 1).Value = myInput
Cells(lastRow + 1, 2).Value = myInput2

MsgBox myInput & (" saved and it was logged:") & Format(Date, "Long Date")

End Sub

Dom

 

[Lewiy]

You can again use various methods of programmatically finding the cell you want to use and incorporating variables into the cell reference. However, with the exampl you have given then you would use something like:
ActiveCell.Offset(1,0).Value = myinput