pass contents of textbox to save rootine

[EDUCATED MONKEY]

My set up is office 2007 win xp pro ie 8
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
The desired effect is to take the input from the hand barcode reader and save the results automatically.
The current method is as follows select the starting point on the spreadsheet, let’s say a completely new sheet so i select A1, scan the barcode numbers appear in A1 as expected the i press done one on the keyboard scan next barcode.
What i have achieved so far is create user form and called it DataInPut, with textbox on it, the form is activated by a command button on a spreadsheet called Start Up the button its self being called BtnStart and has the caption Get Data, the text box on the user form i have called TextBoxIsbn

Private Sub TextBoxIsbn_Change()
If Len(TextBoxIsbn.Value) = 13 Then
       Module11.SaveData          
End If
End Sub

Module11 code

Sub SaveData()
Dim MyData As Variant
Dim lr As Long
MyData = DataInPut.TextBoxIsbn.Value
Worksheets("ISBN INPUT").Select
lr = Cells(Rows.Count, 1).End(xlUp).row + 1 ' looks in Col A
Cells(lr, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

The problem seems to that i do not know how to pass the data from the textbox to the pastspecial rootine

 

[Snakehips]

EDUCATED MONKEY,

Perhaps try this....

Pass MyData in the call to SaveData.

Private Sub TectBoxIsbn_Change ()
If Len(TextBoxIsbn.Value) = 13 Then
MyData = TextBoxIsbn.Value
Module11.SaveData(Mydata)
End If
End  Sub

Also forget paste. Just assign data to cell value.

Sub SaveData(MyData As Variant)
Dim lr As Long
Worksheets("ISBN INPUT").Select
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' looks in Col A
Cells(lr, 1).NumberFormat = "@"
Cells(lr, 1).Value = MyData
End Sub

Hope that helps.

 

[EDUCATED MONKEY]

HI Tony thanks I am up and running with this all I added to your code was a method to clear the text box, looking at the code I see that you pass data in the bracket as you do in other languages like C++<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Here is your code with the minor change <o></o>
<o> </o>

<o:p></o:p>

<o:p> </o:p>
Sub SaveData(MyData As Variant)
Dim lr As Long
Worksheets("ISBN INPUT").Select
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' looks in Col A
Cells(lr, 1).NumberFormat = "@"
Cells(lr, 1).Value = MyData
DataInPut.TextBoxIsbn.Value = ""
End Sub

<o></o>
<o> </o>
Thanks again works perfectly