Here is the code I have so far:

Sub Kit1()
Sheets("Sheet1").Select
Dim rng As Range
Set rng = Cells(Rows.Count, "A").End(xlUp)
If Not IsEmpty(rng) Then
If rng.Value = Date Then Exit Sub
Set rng = rng.Offset(1, 0)
End If

rng.Value = Date

rng.Offset(0, 4).Value = InputBox("How many kits?")


Sheets("Sheet2").Select
Dim rng1 As Range
Set rng1 = Cells(Rows.Count, "A").End(xlUp)
If Not IsEmpty(rng) Then
If rng1.Value = Date Then Exit Sub
Set rng1 = rng1.Offset(1, 0)
End If

rng1.Value = Date

End Sub

Now how do I take the value in sheet 1 from the input box, and put the
same value in sheet 2 in column E again without having to put up
another inputbox?


--
cappuccine
------------------------------------------------------------------------
cappuccine's Profile: http://www.excelforum.com/member.php...o&userid=28242
View this thread: http://www.excelforum.com/showthread...hreadid=482369

add

rng1.Offset(0, 4).Value = rng.Offset(0, 4).Value

after

rng1.Value = Dat

--
dok11
-----------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...fo&userid=1058
View this thread: http://www.excelforum.com/showthread.php?threadid=48236

Hello Capuccine,

Store the InputBox result in a variable. Here is your code with the
additions.


Code:
--------------------
Sub Kit1()

Dim Answer
Dim rng As Range
Dim rng1 As Range

Sheets("Sheet1").Select

Set rng = Cells(Rows.Count, "A").End(xlUp)

If Not IsEmpty(rng) Then
If rng.Value = Date Then Exit Sub
Set rng = rng.Offset(1, 0)
End If

rng.Value = Date

Answer = InputBox("How many kits?")
rng.Offset(0, 4). Value = Answer

Sheets("Sheet2").Select

Set rng1 = Cells(Rows.Count, "A").End(xlUp)

If Not IsEmpty(rng) Then
If rng1.Value = Date Then Exit Sub
Set rng1 = rng1.Offset(1, 0)
End If

rng1.Value = Date
rng1.Offset(0, 4). Value = Answer

End Sub

--------------------

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=482369

Thanks! My macro is almost complete! Thanks for all the help.


--
cappuccine
------------------------------------------------------------------------
cappuccine's Profile: http://www.excelforum.com/member.php...o&userid=28242
View this thread: http://www.excelforum.com/showthread...hreadid=482369