Get data from magnetic card reader to each cell
 

Subject: how to collectly put data in each cell from magnetic card read
11/5/2006 9:20 PM PST

By: simon In: microsoft.public.excel.worksheet.functions


Is there programing do this for me with out me to use text to column manually?



"Bernard Liengme" wrote:

You could use Text-to_Column (on the Data menu) to do this
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"simon" wrote in message
...
Hi Bernard Liengme
data read from megnetic card reader as following
%BAS49247 ^STRONG/MORRI ^ E61158?
what i want to do is when card scanned
BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^
and E61158 go to column C without ^ and ?
and then cursor jump down to column A row 2
thanks




"Bernard Liengme" wrote:

If the data is segmented correctly, Excel will tab to new column
It does so with Nova Scotia drivers licences
OR use Data| Text to Columns
best wsihes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Electron-Serve Depot" wrote in message
...
Hi
I try to get data from magnetic card reader into excel each cell from
its
data segment
any idea, thanks
simon

Try to get data from magnetic card read into excel each cell automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Try to get data from magnetic card read into excel each cell automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Simon,
What are the groups of characters separated by ?
A space, multiple spaces ...

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

start with % , seperated by ^ and then end by ?

"NickHK" wrote:

Simon,
What are the groups of characters separated by ?
A space, multiple spaces ...

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

where this code going to or how

"NickHK" wrote:

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

tried it only data BAS49247 go into cell A1 with out %
all orther ^STRONG / MORRI AND ^E61158 data missing

"NickHK" wrote:

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Well, yes because you have to adjust what you are splitting on .
So if there are no spaces as you say in the earlier post, try :
Temp = Split(Target.Value, "^")

Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = left(Temp(2),len(Temp(2))-1)

NickHK

"simon" wrote in message
...
tried it only data BAS49247 go into cell A1 with out %
all orther ^STRONG / MORRI AND ^E61158 data missing

"NickHK" wrote:

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this
way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column
C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Hi:
with your code I tried to run through magnetic card reader it work
perfectly. But i run into orther problem:
- every time I want to delete data on column A it will make a visual basic
error( delete orther column no proplem at all:
runtime error "9": subscript ut of rang
- every time I want to delete datas on a select rang included column A it
will:
Runtime error "13" : type mismatch

code in sheet one:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value, "^")

Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = Left(Temp(2), Len(Temp(2)) - 1)
' Temp = Split(Target.Value)
' Target.Value = Mid(Temp(0), 2)
' Target.Offset(0, 1).Value = Mid(Temp(1), 2)
' Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

look like this code goes into a loop. every time a delete or change in
column A get into error.
Help !


"NickHK" wrote:

Well, yes because you have to adjust what you are splitting on .
So if there are no spaces as you say in the earlier post, try :
Temp = Split(Target.Value, "^")

Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = left(Temp(2),len(Temp(2))-1)

NickHK

"simon" wrote in message
...
tried it only data BAS49247 go into cell A1 with out %
all orther ^STRONG / MORRI AND ^E61158 data missing

"NickHK" wrote:

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep this
way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with out %
STRONG / MORRI go to column B without ^ and E61158 go to column
C
without
^ and ? And then cursor jump down to column A row 2
thanks

Get data from magnetic card reader to each cell
 

Simon,
That one problem of using a keyboard wedge style input device ; you cannot
differentiate real keyboard input from the device input.
Maybe you should create a userform to accept the device input, process it
then set the cell values. Or use a specific cell for reader input, which you
can then test for first.
Or maybe create a button that sets a global variable, UsingReader=true

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If UsingReader=True Then
If Target.Column = 1 Then
'etc...

NickHK

"simon" wrote in message
...
Hi:
with your code I tried to run through magnetic card reader it work
perfectly. But i run into orther problem:
- every time I want to delete data on column A it will make a visual basic
error( delete orther column no proplem at all:
runtime error "9": subscript ut of rang
- every time I want to delete datas on a select rang included column A it
will:
Runtime error "13" : type mismatch

code in sheet one:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value, "^")

Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = Left(Temp(2), Len(Temp(2)) - 1)
' Temp = Split(Target.Value)
' Target.Value = Mid(Temp(0), 2)
' Target.Offset(0, 1).Value = Mid(Temp(1), 2)
' Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

look like this code goes into a loop. every time a delete or change in
column A get into error.
Help !


"NickHK" wrote:

Well, yes because you have to adjust what you are splitting on .
So if there are no spaces as you say in the earlier post, try :
Temp = Split(Target.Value, "^")

Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Temp(1)
Target.Offset(0, 2).Value = left(Temp(2),len(Temp(2))-1)

NickHK

"simon" wrote in message
...
tried it only data BAS49247 go into cell A1 with out %
all orther ^STRONG / MORRI AND ^E61158 data missing

"NickHK" wrote:

Simon,
You can adjust this to suit the incoming data :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As Variant

If Target.Column = 1 Then
Application.EnableEvents = False
Temp = Split(Target.Value)
Target.Value = Mid(Temp(0), 2)
Target.Offset(0, 1).Value = Mid(Temp(1), 2)
Target.Offset(0, 2).Value = Mid(Temp(2), 2)
Application.EnableEvents = True
End If
End Sub

NickHK

"simon" wrote in message
...

Yes, it's a USB card reader simulates keyboard input into cell .
but it read into cell A1 only with all data at once
%BAS49247 ^STRONG/MORRI ^ E61158?
I need BAS49247 go to cell A1 with out %
STRONG / MORRI go to cell B1 without ^
and E61158 go to cell C1 without ^ and ?
at present time the cursor jump down to cell A2 and want to keep
this
way
thanks

"NickHK" wrote:

Simon,
Is this card reader is a keyboard wedge type ? Basically
simulates
keyboard
input into the active control or cell ?

NickHK

"simon" wrote in message
...

Try to get data from magnetic card read into excel each cell
automatically
every time i scan the card

data read from megnetic card reader as following :
%BAS49247 ^STRONG/MORRI ^ E61158?
each time when card scanned BAS49247 go to column A with
out %
STRONG / MORRI go to column B without ^ and E61158 go to
column
C
without
^ and ? And then cursor jump down to column A row 2
thanks