• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excelde resimli barkod basımı

E

emre.incee

Katılım
3 Aralık 2013
Mesajlar
17
Excel Vers. ve Dili
Excel 11.0 tr
İyi günler arkadaşlar

Ben bir firmada depo sevkıyat sorumlusu olarak çalışıyorum. Excel ile Barkod basmayı kullanmaktayım. Ürünlerin resimleri ile birlikte ürünün mamul stok kodunu girdiğimde bana

-mamul stok adını
-barkodunu
-kritik stokunu
-mamul resmini
-hangi üründe
-hangi bölümde
-hangi stok yerinde

olduğunu verecek bir çıktı almak istiyorum. yardımcı olursanız çok sevinirim. (excel bilgim normal kullanıcı seviyesindedir.)
 

Ekli dosyalar

emre.incee' Alıntı:
İyi günler arkadaşlar

Ben bir firmada depo sevkıyat sorumlusu olarak çalışıyorum. Excel ile Barkod basmayı kullanmaktayım. Ürünlerin resimleri ile birlikte ürünün mamul stok kodunu girdiğimde bana

-mamul stok adını
-barkodunu
-kritik stokunu
-mamul resmini
-hangi üründe
-hangi bölümde
-hangi stok yerinde

olduğunu verecek bir çıktı almak istiyorum. yardımcı olursanız çok sevinirim. (excel bilgim normal kullanıcı seviyesindedir.)
Genişletmek için tıkla ...
. . .

Çalışmanızda birde yukarıdaki bilgileri alabileceği bir veritabanı sayfası olması gerekiyor.

Resimleri ayrı klasörde olmasını tavsiye ederim. Dosya botunu şişirmemesi için.

. . .
 
(excel bilgim normal kullanıcı seviyesindedir.) :(

veritabanı sayfasını nasıl yaparım .onu yapınca her şey tamam olmayacak değil mi ?

resimlerim klasörünün altına ürün resimleri adlı bir klasör açıp onun içine koyacağım resimleri
 
. . .

Resimdeki gibi bir veritabanı olabilir. Yani barkodu okutunca ekrana getirmesi gereken verileri alacağı kısım bu.

do.php


Resimler içinde standart hepsinin uzantısı aynı olsun ve en boy ölçüleri birbirine yakın olsun.
Resimleri barkod koduyla adlandırın.

. . .
 
benim istediğime hiç benzemiyor hocam nası benzettiniz acaba merak ettim :)
 
emre.incee' Alıntı:
benim istediğime hiç benzemiyor hocam nası benzettiniz acaba merak ettim :)
Genişletmek için tıkla ...

pardon, bilmiyorum demişsiniz zaten, ben kaçırmışım,,

benzeme işine gelince,
veri çağırma, resim getirme vb. konular aynı, sadece görseller farklı, o bakımdan işinize belki yarar demiştim,,,

neyse, örnek dosya üzerinden umarım bir çözüm üreten olur,,,
 
bekir38' Alıntı:
pardon, bilmiyorum demişsiniz zaten, ben kaçırmışım,,

benzeme işine gelince,
veri çağırma, resim getirme vb. konular aynı, sadece görseller farklı, o bakımdan işinize belki yarar demiştim,,,

neyse, örnek dosya üzerinden umarım bir çözüm üreten olur,,,
Genişletmek için tıkla ...

Pardona gerek yok Hocam sen haklı ben cahil ???? teşekkürler yine de.
 
Hüseyin Çoban' Alıntı:
. . .

İsteğiniz buna benzer değil mi ? Ürün kodunu girip (barkod) bilgi ve resimlerine ulaşmak.

DoX1Yo.gif



. . .
Genişletmek için tıkla ...

hayır hocam barkod basımı benim yapmak istediğim.RESİMLİ barkod basımı . verdiğim tablodaki örnek resim birebir etiketin bilgisayardaki karşılığı stok kodunu girdiğim zaman bana diğer alanları dolduracak bir sistem yapmam lazım.
ilginiz için çok teşekkürler.
 
Tabloda barkodu okuttuğunuzda diğer bilgilerin gelmesini mi istiyorsunuz.
 
Evet veya yazarak da gelse olur amaç okuyarak veya yazarak tamamlanan tablonun yazıcıdan çıktı alinmasi
 
. . .

Şirket logosu sabit değil mi ? Çıktıya göre değişiyor mu ?

. . .
 
. . .

G12 hücresine elile veya barkod okuducu ile giriş yaptığınızda çalışmaya başlar.

İlgili barkod kodunu Veritabanın da arayıp, bilgilerini getirir. Yok ise uyarı verecektir.

Resimleri Pictures klasörünün içine alın ve .jpg uzantılı olsunlar.
Direkt yazıcıya göndermek için kodlarda ki printout satırını aktif edin.

Dikkat etmeniz gereken kısımları aşağıda belirtiyorum. Dosya yolları doğru oldukça sorun çıkarmaz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) <> "G12" Then Exit Sub
    
    Dim SV As Worksheet
    Set SV = Sheets("VERİTABANI")
    
    If WorksheetFunction.CountIf(SV.Range("A:A"), Range("G12")) <> 1 Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Range("D16") = ""
        Range("M20") = ""
        Range("V13") = ""
        Range("V17") = ""
        Range("Y19") = ""
        MsgBox " Mamul Yok ", vbCritical
        Exit Sub
    End If
    
    For i = 2 To SV.[A65536].End(3).Row
        If Range("G12") = SV.Cells(i, "A") Then
            Range("D16") = SV.Cells(i, "C")
            Range("M20") = SV.Cells(i, "D")
            Range("V13") = SV.Cells(i, "E")
            Range("V17") = SV.Cells(i, "F")
            Range("Y19") = SV.Cells(i, "G")
            resim = i
            Exit For
        End If
    Next i
    
    '''
    yol = SV.Cells(resim, "H")
    
    If Dir(yol) = "" Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Exit Sub
    Else
        
        Image1.Picture = LoadPicture(yol)
        Image1.PictureSizeMode = fmPictureSizeModeStretch
    End If
    '''
[COLOR="SeaGreen"]    ' ActiveSheet.PrintOut  'YAZDIRMAK İÇİN SATIRI AKTİF EDİN.[/COLOR]
End Sub

Kullanımı ile ilgili bilgi:
V2pJRy.gif


. . .
 

Ekli dosyalar

Hüseyin Çoban' Alıntı:
. . .

G12 hücresine elile veya barkod okuducu ile giriş yaptığınızda çalışmaya başlar.

İlgili barkod kodunu Veritabanın da arayıp, bilgilerini getirir. Yok ise uyarı verecektir.

Resimleri Pictures klasörünün içine alın ve .jpg uzantılı olsunlar.
Direkt yazıcıya göndermek için kodlarda ki printout satırını aktif edin.

Dikkat etmeniz gereken kısımları aşağıda belirtiyorum. Dosya yolları doğru oldukça sorun çıkarmaz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) <> "G12" Then Exit Sub
    
    Dim SV As Worksheet
    Set SV = Sheets("VERİTABANI")
    
    If WorksheetFunction.CountIf(SV.Range("A:A"), Range("G12")) <> 1 Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Range("D16") = ""
        Range("M20") = ""
        Range("V13") = ""
        Range("V17") = ""
        Range("Y19") = ""
        MsgBox " Mamul Yok ", vbCritical
        Exit Sub
    End If
    
    For i = 2 To SV.[A65536].End(3).Row
        If Range("G12") = SV.Cells(i, "A") Then
            Range("D16") = SV.Cells(i, "C")
            Range("M20") = SV.Cells(i, "D")
            Range("V13") = SV.Cells(i, "E")
            Range("V17") = SV.Cells(i, "F")
            Range("Y19") = SV.Cells(i, "G")
            resim = i
            Exit For
        End If
    Next i
    
    '''
    yol = SV.Cells(resim, "H")
    
    If Dir(yol) = "" Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Exit Sub
    Else
        
        Image1.Picture = LoadPicture(yol)
        Image1.PictureSizeMode = fmPictureSizeModeStretch
    End If
    '''
[COLOR="SeaGreen"]    ' ActiveSheet.PrintOut  'YAZDIRMAK İÇİN SATIRI AKTİF EDİN.[/COLOR]
End Sub

Kullanımı ile ilgili bilgi:
V2pJRy.gif


. . .
Genişletmek için tıkla ...

:bravo::bravo::bravo::mutlu::mutlu::mutlu:

hocam bi tanesin ellerin kolların dert görmesin dualarım seninle :dua::dua::dua:

hocam bu kodu nereye atıcaz ?

Emeginizin karşılığını olamaz ama nacizane içimden gelerek kendimce imkanlarımın elverdiğince destek olmak isterim (maddi) bi yolu var mı?
 
En alttaki sayfa sekmelerinin üstünde
Çalışma sayfası isminin üzerinde sağ tıklayıp >
Kod görüntüle >
Sayfanın kod penceresi açılacaktır. Kodlar burada. Sizde çalışmanızda oraya kopyalayın ki G12 hücresinde değişiklik olunca çalışsın.

Benim için yok ancak site ve kendiniz için altın üye olarak takipte kalabilirsiniz.
 
Son düzenleme:
Hüseyin Çoban' Alıntı:
. . .

G12 hücresine elile veya barkod okuducu ile giriş yaptığınızda çalışmaya başlar.

İlgili barkod kodunu Veritabanın da arayıp, bilgilerini getirir. Yok ise uyarı verecektir.

Resimleri Pictures klasörünün içine alın ve .jpg uzantılı olsunlar.
Direkt yazıcıya göndermek için kodlarda ki printout satırını aktif edin.

Dikkat etmeniz gereken kısımları aşağıda belirtiyorum. Dosya yolları doğru oldukça sorun çıkarmaz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) <> "G12" Then Exit Sub
    
    Dim SV As Worksheet
    Set SV = Sheets("VERİTABANI")
    
    If WorksheetFunction.CountIf(SV.Range("A:A"), Range("G12")) <> 1 Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Range("D16") = ""
        Range("M20") = ""
        Range("V13") = ""
        Range("V17") = ""
        Range("Y19") = ""
        MsgBox " Mamul Yok ", vbCritical
        Exit Sub
    End If
    
    For i = 2 To SV.[A65536].End(3).Row
        If Range("G12") = SV.Cells(i, "A") Then
            Range("D16") = SV.Cells(i, "C")
            Range("M20") = SV.Cells(i, "D")
            Range("V13") = SV.Cells(i, "E")
            Range("V17") = SV.Cells(i, "F")
            Range("Y19") = SV.Cells(i, "G")
            resim = i
            Exit For
        End If
    Next i
    
    '''
    yol = SV.Cells(resim, "H")
    
    If Dir(yol) = "" Then
        Image1.Picture = LoadPicture("[B]C:\Users\PC_Emre\Pictures\ResimYok.jpg[/B]")
        Exit Sub
    Else
        
        Image1.Picture = LoadPicture(yol)
        Image1.PictureSizeMode = fmPictureSizeModeStretch
    End If
    '''
[COLOR="SeaGreen"]    ' ActiveSheet.PrintOut  'YAZDIRMAK İÇİN SATIRI AKTİF EDİN.[/COLOR]
End Sub

Kullanımı ile ilgili bilgi:
V2pJRy.gif


. . .
Genişletmek için tıkla ...


hocam bir sayfada 6 adet resimli barkod olsa olur mu çünkü kağıt sarfiyatı fazlalaşıyor. eger mümkünse çok sevinirim
 
. . .

6 etiketin olduğu örnek bir dosya yükleyin üzerinde çalışalım.

. . .
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst