Excel de barkod yapma

indiantr · 9 Ekim 2009

Arkadaşlar

Ben barkod fontlarını yükledim ve herbirinden çıktı aldım. Fakat barkod okuyucu hiçbirini okumadı. Hücre özelliklerinde birşey mi yapmak gerekir acaba.
(Barkod okuyucu bir ürün üzerindeki barkodu okuyor.)

Yardımlarınız için şimdiden teşekkürler.

fedeal · 9 Ekim 2009

Bu konuda bilgim çok yok ama barkod çıktısı almak için güzel ve ücretsiz bir program isterseniz,

barkod programı

indiantr · 9 Ekim 2009

Aslında istediğim sadece barkod çıktısı değil. hzırda bulunan bir excel formuna seri numarası giriyoruz bu seri numarasını barkoda çevirmek istiyoruz.

indiantr · 9 Ekim 2009

Arkadaşlar,

Sonucu buldum. Ekteki dosyayı bilgisayarınıza yükleyip "INSTALL" çalıştırınız.
Daha sonra excel de fontu "IDAutomationHC39M" seçmeniz yetecektir.
Fakat dikakt etmeniz gereken husus büyük ingilizce karakter kullanmanız geekmekte ve hücreye yazdığınız bilginin başına ve sonuna"*" eklemelisiniz.

"*" otomatik eklentisi için formüllü örnek ekte yer almaktadır.

mincari · 5 Mart 2010

arkadaşlar slm ben excelde barkodu belki bilirsiniz postane barkodları var mektuplarda kullanılıyor onları tek tek pc ye yazmak zorun da kalıyorum bu barkod okuma işini yapabiilirmiyiz sisitemi aynımıdır.. teşekkürler

mincari · 5 Mart 2010

excelde barkod okutma

arkadaşlar slm ben excelde barkodu belki bilirsiniz postane barkodları var mektuplarda kullanılıyor onları tek tek pc ye yazmak zorun da kalıyorum bu barkod okuma işini yapabiilirmiyiz sisitemi aynımıdır.ben o barkodu kullandığım şirketin yada şahısın biliglerini not alıp kayıt edeceğim daha sonra lazım olduğu zaman barkod no okutup aramam vdaha basit olurmu yardımlarınız için teşekkürler...

OZDER · 26 Eylül 2010

galkan' Alıntı:
Bilgisayarına Code39 Font yükleyerek yapabilirsin.
Yüklediğinde üm ofis programlarında Code39 font, Arial, TimesNewRoman... gibi seçilebiliyor.
Tek sakıncası aynı dosyayı başka bilgisayarda açman gerekirse
o bilgisayarada code39 font yüklemen gerekir.
Ekte gönderdiğim dosyayı açıp "C:\" altına kopyalayın
"C:\C39ToolsBarcodeFont"
altındaki setup.exe yi çalıştırın önünüze otomatik olarak çıkan
"A:\"
şeklindeki yolu silip
"C:\C39ToolsBarcodeFont"
şeklinde değiştirin ve setup'ı tamamlayın
kolay gelsin

"A:\"şeklindeki yolu "C:\C39ToolsBarcodeFont"şekline getirince not a valid path diyor setup tamamlanmıyor ne yapmalıyım çok teşekkür ederim ilginize saygılarımla

berk80 · 19 Şubat 2011

acil yardım edin kurtarın beni illetten barkot yazdırıyorum motorola marka el termineli okmuyor

gobeloglu · 24 Şubat 2012

Barkod sorun

Arkadaşlar bu dediğiniz işlemleri yaptım ama okutamıyorum
bizde motorola ve symbol marka el terminalleri var.
Excelle butun fontları ekledim hepsinide denedim okutamıyorum.benım amacım excele atacağım f0963963 gibi birden fazla numarayı barkod olarak cıkarıp okutmak.internetten indirdiğim barcode wiz activex 3.68 trial ile cıktı alıp okutabiliyorum. Ama oda tek tek veriyor birden fazla cıkarmak istiyorum ve okutamıyorum excellden yardımcı olursanız sevinirim
şimdiden teşekkür ederim.

gobeloglu · 24 Şubat 2012

Yok mu cevap veren

chngrcn · 24 Şubat 2012

barkod üretme, ve barkod fontu ektedir. yardımcı olması dileğiyle alternatif bir çalışmam.. sizlerle paylaşmak istedim.. saygılarımla..

Kod:

Sub TBBARKOD()
On Error Resume Next
Sheets("BARKOD").Unprotect "fghjkl"
Sheets("ANASAYFA").Unprotect "fghjkl"
Sheets("ANASAYFA").Select
'Sheets("BARKOD").[A1:A65536].ClearContents

    ilka = Worksheets("ANASAYFA").Cells(25, 11).Value
    ilkb = Worksheets("ANASAYFA").Cells(25, 12).Value
    sona = Worksheets("ANASAYFA").Cells(26, 11).Value
       b = Worksheets("ANASAYFA").Cells(25, 11).Value
 
 ''kullanılan barkodlar
    X = Sheets("BARKOD").Cells(1, 5)
        Sheets("BARKOD").Cells(X, 5) = b
        Sheets("BARKOD").Cells(X, 6) = sona
    X = X + 1
        Sheets("BARKOD").Cells(1, 5) = X
  
    
Sheets("BARKOD").Cells(a, 1).Select
    a3 = Sheets("BARKOD").[A65536].End(3).Row + 1
    a1 = Sheets("ANASAYFA").Range("K26")
    a2 = Sheets("ANASAYFA").Range("K25")
    a4 = a1 - a2
    a5 = a3 + a4


Worksheets("ANASAYFA").Cells(21, 11) = (Worksheets("ANASAYFA").Cells(25, 10) & Worksheets("ANASAYFA").Cells(25, 11)) + 100000000000#
a6 = Worksheets("ANASAYFA").Cells(21, 11)
ilka6 = Worksheets("ANASAYFA").Cells(21, 11)
For a = a3 To a5
Sheets("BARKOD").Cells(a, 1).Select
    
    n1 = Mid(Worksheets("ANASAYFA").Cells(25, 9).Value, 1, 1)
    n2 = Mid(Worksheets("ANASAYFA").Cells(25, 9).Value, 2, 1)
    n3 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 3, 1)
    n4 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 4, 1)
    n5 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 5, 1)
    n6 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 6, 1)
    n7 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 7, 1)
    n8 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 8, 1)
    n9 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 9, 1)
    n10 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 10, 1)
    n11 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 11, 1)
    n12 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 12, 1)
   a6 = a6 + 1
    Sheets("ANASAYFA").Cells(21, 11) = a6

    m3 = n3 * 1
    m4 = n4 * 3
    m5 = n5 * 1
    m6 = n6 * 3
    m7 = n7 * 1
    m8 = n8 * 3
    m9 = n9 * 1
    m10 = n10 * 3
    m11 = n11 * 1
    m12 = n12 * 3

    s = m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
    t = s / 10
    u = WorksheetFunction.RoundUp(t, 0)
    u = WorksheetFunction.co
    
    V = u * 10
    Y = V - s
    Sheets("ANASAYFA").Cells(25, 12) = Y
    
    Sheets("BARKOD").Cells(a, 1) = "*" & n1 & n2 & n3 & n4 & n5 & n6 & n7 & n8 & n9 & n10 & n11 & n12 & Y & "*"
    Sheets("BARKOD").Cells(a, 2) = "*" & n1 & n2 & n3 & n4 & n5 & n6 & n7 & n8 & n9 & n10 & n11 & n12 & Y & "*"

'''''    Sheets("BARKOD").Cells(a, 3).NumberFormat = "0000000"
    Next
    Sheets("ANASAYFA").Cells(25, 11).Value = ilka
    Sheets("ANASAYFA").Cells(25, 12).Value = ilkb
    Sheets("ANASAYFA").Cells(21, 11).Value = ""
    Sheets("ZARF").TextBox1.Value = Worksheets("BARKOD").[A65536].End(3).Row - 1

MsgBox "PTT DEN ALDIĞINIZ TOMAR BARKODLARDAKİ NUMARALAR BARKOD SAYFASI [A] SÜTUNUNA ÜRETİLMİŞTİR."
Sheets("BARKOD").Protect "fghjkl"
Sheets("ANASAYFA").Protect "fghjkl"

End Sub

Sub OZELBARKOD()
On Error Resume Next
Sheets("BARKOD").Unprotect "fghjkl"
Sheets("ANASAYFA").Unprotect "fghjkl"
Sheets("ANASAYFA").Select

'Sheets("BARKOD").[A1:A65536].ClearContents

    ilka = Worksheets("ANASAYFA").Cells(27, 11).Value
    ilkb = Worksheets("ANASAYFA").Cells(27, 12).Value
    sona = Worksheets("ANASAYFA").Cells(28, 11).Value
       b = Worksheets("ANASAYFA").Cells(27, 11).Value
   
    X = Sheets("BARKOD").Cells(1, 5)
        Sheets("BARKOD").Cells(X, 5) = b
        Sheets("BARKOD").Cells(X, 6) = sona
    X = X + 1
        Sheets("BARKOD").Cells(1, 5) = X
  
    
Sheets("BARKOD").Cells(a, 1).Select
    a3 = Sheets("BARKOD").[A65536].End(3).Row + 1
    a1 = Sheets("ANASAYFA").Range("K28")
    a2 = Sheets("ANASAYFA").Range("K27")
    a4 = a1 - a2
    a5 = a3 + a4


Worksheets("ANASAYFA").Cells(21, 11) = (Worksheets("ANASAYFA").Cells(27, 10) & Worksheets("ANASAYFA").Cells(27, 11)) + 100000000000#
a6 = Worksheets("ANASAYFA").Cells(21, 11)
ilka6 = Worksheets("ANASAYFA").Cells(21, 11)
For a = a3 To a5
Sheets("BARKOD").Cells(a, 1).Select
    
    n1 = Mid(Worksheets("ANASAYFA").Cells(27, 9).Value, 1, 1)
    n2 = Mid(Worksheets("ANASAYFA").Cells(27, 9).Value, 2, 1)
    n3 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 3, 1)
    n4 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 4, 1)
    n5 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 5, 1)
    n6 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 6, 1)
    n7 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 7, 1)
    n8 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 8, 1)
    n9 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 9, 1)
    n10 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 10, 1)
    n11 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 11, 1)
    n12 = Mid(Worksheets("ANASAYFA").Cells(21, 11).Value, 12, 1)
   
   a6 = a6 + 1
    Sheets("ANASAYFA").Cells(21, 11) = a6

    m3 = n3 * 1
    m4 = n4 * 3
    m5 = n5 * 1
    m6 = n6 * 3
    m7 = n7 * 1
    m8 = n8 * 3
    m9 = n9 * 1
    m10 = n10 * 3
    m11 = n11 * 1
    m12 = n12 * 3

    s = m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
    t = s / 10
    u = WorksheetFunction.RoundUp(t, 0)
    u = WorksheetFunction.co
    
    V = u * 10
    Y = V - s
    Sheets("ANASAYFA").Cells(27, 12) = Y
    
    Sheets("BARKOD").Cells(a, 1) = n1 & n2 & n3 & n4 & n5 & n6 & n7 & n8 & n9 & n10 & n11 & n12 & Y
    Sheets("BARKOD").Cells(a, 2) = n1 & n2 & n3 & n4 & n5 & n6 & n7 & n8 & n9 & n10 & n11 & n12 & Y

'''''    Sheets("BARKOD").Cells(a, 3).NumberFormat = "0000000"
    Next
    Sheets("ANASAYFA").Cells(27, 11).Value = ilka
    Sheets("ANASAYFA").Cells(27, 12).Value = ilkb
    Sheets("ANASAYFA").Cells(21, 11).Value = ""
    Sheets("ZARF").TextBox1.Value = Worksheets("BARKOD").[A65536].End(3).Row - 1

MsgBox "PTT DEN ALDIĞINIZ NOTERLİĞİNİZE ÖZEL BARKODLAR FABRİKAMIZDA ÜRETİLEREK BARKOD SAYFASI [A] SÜTUNUNA ÜRETİLMİŞTİR."
Sheets("BARKOD").Protect "fghjkl"
Sheets("ANASAYFA").Protect "fghjkl"
End Sub

Not: bu makro barkod'un en sonundaki rakamı yani "DİGİT" hanesini hesaplatan makrodur.. bir kaç sene önce yazmıştım.. font'uda FONTS klasörüne kopyalamanız gerekiyor.. Acemilik zamanlarımda hazirladigim bir calisma idi.. ( gerci simdide pek profesyonel sayılmam

)hatalar olursada kusura bakmayin, düzeltme yoluna gideriz.. saygılarımla..

chngrcn · 24 Şubat 2012

mesajlarinizin cevabı en son ekledigim mesajda mevcuttur..

alderanuri · 18 Mart 2012

merhaba
bana yardimci olabilirmisin

baydeniro · 18 Temmuz 2012

Katkıda bulunanlara teşekkürler.

hmakkiz · 3 Şubat 2013

Merhaba Arkadaşlar;

Ben yapılan barkodlarda örneğin http://barkodlar.org/barkod-olusturucu/ gibi sitelerden oluşturduğum code128 tür barkodlarda "Ahmet001." barkod motorla symbol okuyucu ile okuttuğumda "Ahmet001ç" olarak yazmakta. Bu konuda ne yapılabilir?

hakan3460 · 9 Eylül 2013

QR barkod için eklenti varmı çok acil gerekli yardımcı olursanız sevinirim

bay_okur · 25 Eylül 2013

kundakci' Alıntı:
Merhaba
Fontları windows un altına font klasörüne yükleyin
Exceli açın
Barcode görünmesini istediğiniz hücrenin font tipini Code128AB yap

ve barocde hazırdır

3 çeşit barcode çeşidi var 128A, 128B, 128C
Ben iş yerimde Bar128A ile yazdırıp, code39 okuyucularla okutuyorum

Umarım işinize yarar kolay gelsin

çok teşekkür ederim. çok işe yaradı... Allah razı olsun

blue_cry · 30 Kasım 2013

arkadaşlar merhaba bana ean 13 barkot basabileceğim bir exel dosyası gerek bir sayfada 45 farklı barkot yazdıracağım yardımcı olabilirmisiniz?

teşekkürler

blue_cry · 30 Kasım 2013

yapabilecek biri yokmu ?

NBATMAN · 30 Kasım 2013

blue_cry' Alıntı:
arkadaşlar merhaba bana ean 13 barkot basabileceğim bir exel dosyası gerek bir sayfada 45 farklı barkot yazdıracağım yardımcı olabilirmisiniz?

teşekkürler

Verilerin olduğu Örnek dosya ekleyiniz ve yapılmasını istediğiniz şeyi net bir şekilde açıklayınız. Sonra yapaılacaklara bir bakalım...

Excel de barkod yapma

indiantr

fedeal

Banned

indiantr

indiantr

Ekli dosyalar

mincari

mincari

OZDER

berk80

gobeloglu

gobeloglu

chngrcn

Ekli dosyalar

chngrcn

alderanuri

baydeniro

hmakkiz

hakan3460

bay_okur

blue_cry

blue_cry

NBATMAN

Destek Ekibi