Function SplitMultiline(text As String, element As Integer) As Variant
On Error GoTo Fehler
Dim delim As String
delim = "#"
If InStr(1, text, vbLf) > 0 Then delim = vbLf
If InStr(1, text, vbCr) > 0 Then delim = vbCr
If InStr(1, text, vbCrLf) > 0 Then delim = vbCrLf
If delim = "#" Then GoTo Fehler
SplitMultiline = Split(text, vbLf)(element - 1)
GoTo Ende
Fehler:
SplitMultiline = CVErr(xlErrNum)
Ende:
End Function
Line1as cell content in A1, the formula
Line2
Line3
Line4
=SplitMultiline(A1;2)
(syntax may varyslightly by locale) would returnLine2as result. Cells without a known delimiter or index out of range would return an Excel compatible error code.
I have QR codes already, and I have scanners too, I just need help with how to get the scanned qr code into excel.
I know how to get it into excel but, I need help with programing excel to generate a report after I make 12 scans.
Thanks so much.
Chris