EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
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
Module11 code
The problem seems to that i do not know how to pass the data from the textbox to the pastspecial rootine
<?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
Rich (BB code):
Rich (BB code):
Rich (BB code):
Private Sub TextBoxIsbn_Change()
If Len(TextBoxIsbn.Value) = 13 Then
Module11.SaveData
End If
End Sub
Module11 code
Rich (BB code):
Rich (BB code):
Rich (BB 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