Barcodes in Excel

[HappyChappy]

Hi having great problems with bar codes currently using a web based site https://www.barcodesinc.com/generator/index.php to generate barcodes then cutting and pasting them into excel as a picture. The site uses Code 128b for the fonts.
I downloaded said font and thought it must be better to do it myself but the latter part of the barcode seems to be different from my down loaded picture. i'm using the formula ="*"&A28&"*"
for the life of me i cant see why it's different any help on this please.
a typical barcode would be 973415748

 

[Rijnsent]

Hi HappyChappy,
it took a bit of fiddling, but I think I figured it out: I took the font from https://www.dcode.fr/barcode-128 and some code from here: https://www.dafont.com/font-comment.php?file=code_128 . As you can see, there are 3 characters that need to be added to the string: it starts with a starting character, ends with a closing character and there is a check character which needs to be calculated. For the check character, see e.g. https://www.barcoderesource.com/code128_barcodefont.html (scroll down).
Anyhow, if you do that for your code 973415748, the formula is =CHAR(204) & 973415748&">" & CHAR(206) , the > is the calculated check character. To make life a bit easier, I took this code ( https://www.dafont.com/font-comment.php?file=code_128 ) and transformed into an Excel function (place in a module and use it as a normal function).
Cheers,
Koen

Function CreateBarcode(StrIn As String) As String

StrOut = Chr(204)

CheckVal = 0
For c = 1 To Len(StrIn)
    a = Asc(Mid(StrIn, c, 1))
    If a >= 32 And a <= 126 Then
        StrOut = StrOut & Mid(StrIn, c, 1)
        CheckVal = CheckVal + c * a
    End If
Next c

CheckChar = CheckVal Mod 103 + 32
StrOut = StrOut & Chr(CheckChar)
StrOut = StrOut & Chr(206)
CreateBarcode = StrOut

End Function

 

[HappyChappy]

Thanks I'm using font 128B will this still work the same

 

[HappyChappy]

https://www.dropbox.com/s/c6mxdqxrvm99obb/BarCode128(1).xlsx?dl=0

have attached a link to the sheet hope this makes things clearer and thanks for the help.

 

[Rijnsent]

Hi Happy,
it's very clear, but I assume my answer wasn't... See this example: https://www.dropbox.com/sh/l7ywfwzfk5j20sr/AACXwUGywU-4J-IWwdZY58Ppa?dl=0 -> there are multiple files, get the one named BarCode128B.xlsm (the others are other examples I made for questions on this forum).
Hope that helps,
Koen

 

[HappyChappy]

You sir are a diamond this is brilliant I can't thank you enough for you help.

Very Happy Chappy

 

[HappyChappy]

Hi been using the spreadsheet for a couple of days and have noticed some errors in the output. Not sure if it's a font issue but have uploaded it with some examples of incorrect output is it possible you can take a look.
Regards Happy
https://www.dropbox.com/sh/pd7n9froxauyw91/AACq_yrRt1FctHjwyplZOkoda?dl=0

 

[Rijnsent]

Hi Happy,
there seemed to be a small error in the check character calculation. I updated the function/macro and it seems to work again (see the same file as above).
Cheers,
Koen

 

[HappyChappy]

Once again many thanks

 

[edjohn20]

Once again many thanks

you wouldn't still have this file he created do you? His link is no longer valid. And this is exactly what I was looking for