commodore.gen.tr

iş yerinde işleri biraz daha kolaylaştırmak için barcode a geçmeyi düşünüyorum

çalıştığımız 3-4 firma var ve hepsinin barcode formatları bir birinden farklı

barcode okuyucudan okuttrduğumda aldığım txt

060800077010651310, 014345

excel e aktardığımda bir hücreye bu barcodeu yapıştırdğımda, bana gerekn kısmı

0651310

065
13
10

bunu ayrı hücrelere nasıl bölerim

155503761132301824, 014345

bana

230
18
24

kısmı lazım

Boy için =SAYIDEĞERİ(PARÇAAL(A2;12;3))
En için =SAYIDEĞERİ(PARÇAAL(A2;15;2))
Yaprak için =SAYIDEĞERİ(PARÇAAL(A2;17;2))

Örneğinizde "230" Soldan onbirinci sıradaki karakterle başlıyor ve 3 karakter uzunluğunda. Bu pozisyon durumu diğer verileriniz için de geçerli ise 18 ve 24'e de aynı şekilde yaklaşmak gerek. Her ne kadar rakamlardan oluşsa da metin fonksiyonları olan "Soldan(), Sağdan()" fonksiyonlarına bakmanızı öneririm.  

teşekkürler arkadaşlar parça al ile yaptım, peki bunu nasıl otamatik yaparım

barcode cihazı bana

barcode.txt çıktısı veryor ve barcodelar
082300479123253124
082300453123103324
082300455123203524
082300532122903720

bu şeklde sıralı yapıyor

banada bu şekilde toplam çıktı vermesini istiyorum

yani text dosyasındaki satırları
1. satır A2
2. satır a3

diye otamatik nasıl ekleme yaparım

barkod okuyucu da sonuçta klavye gibi davranan bir cihaz. Diğer sütunları kilitlediğinde A2'de iken enter'a basınca A3'e nasıl geçmesini sağlıyorsan o şekilde sağlayabilirsin. Bu yapılamıyorsa vbscript ile yahut macrolarla yapılabilir sanırım.

Formülü yazdığın satırın köşesindeki + işaretinden tutup, aşağı doğru sürükleyince olması lazım. ;)

Selam,
Özkan ben sana formülüyle bir excel dosyası gönderirim.
sen sadece en son boş A hücresine gelir barkot okutursun.
yan tarafa formül değerleri otomatik atar.
excel macro vba vs excelde herşey yapabilirim.

bana bir tane örnek dosya yollayabilir misin ?
emrez@garanti.com.tr, 3 tane barkod note pad ve excel den okutup.

Barcode.txt dosyası tek kullanımlık mı olacak ?
Yoksa o txt dosyasına sürekli veri mi işlenecek ?

Eğer sürekli veri eklenecekse ;
Excelde, barkodu ayrıştıracak şekilde form oluşturuldukdan sonra,
txt dosyasının en son içeriği okutulup A sütununa yazdırılabilinir.

Emrez'in bahsettiği gibi, barkod, direkt excel'e atabiliyorsa veriyi,
iş daha kolaylaşır. Sadece formulleri ayarlamak yeter.

txt dosyası ham veriyi görmem için aslında, excel girdiyi bir şekilde çevirirse asıl değeri okumam için. örnek 12/01/2016 yerine ekranda 40442 gibi bir değer yazması. barkod okuyucu klavye işlevi görüyor.
sanki ekrana veri yazıp enter tuşuna basılmış gibi.
excelde sql veri tabanına bağlantı kurup açık diğer 2 excel dosyasındaki verileri de alıp yeni bir sayfaya sunum oluşturma gibi bir çok şey excel de yaptım. Bir txt çıktısını ssis ile sql e yüklediğim excel makrosu:


Sub GetFile()



Dim txt
Dim i As Integer
Dim filen
Dim fNameAndPath As Variant, wb As Workbook
fNameAndPath = Application.GetOpenFilename(FileFilter:="VKN Dosyası (*.TXT), *.TXT", Title:="adını yazmak istemedim Dosyasını Seçiniz...")
If fNameAndPath = False Then Exit Sub


If (Len(fNameAndPath) > 4) Then
txt = Split(fNameAndPath, "\")
For i = 0 To UBound(txt)
filen = txt(i)
Next i


End If

If (Left(filen, 7) = "ADINI YAZMAK İSTEMİYORUM") Then

Workbooks.OpenText Filename:=fNameAndPath, _
       Origin:=932, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(10, 1), Array(22, 1), Array(33, 2), Array(45, 2)), _
        TrailingMinusNumbers:=True
Else
MsgBox "SEÇİLEN ADINI YAZMAK İSTEMİYORUM DOSYASI DEĞİL !!!"
Exit Sub

End If

   

filen = Range("A1").Value
If (Right(filen, 7) = "ADINI YAZMAK İSTEMİYORUM") Then
GoTo devam

Else
MsgBox "HATALI İÇERİK İŞLEM YAPILMADI !!!"
Exit Sub
End If
devam:
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ADINI YAZMAK İSTEMİYORUM"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "ADINI YAZMAK İSTEMİYORUM"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "ADINI YAZMAK İSTEMİYORUM"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "ADINI YAZMAK İSTEMİYORUM"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "ADINI YAZMAK İSTEMİYORUM"
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Columns("B:C").Select
    Selection.Delete Shift:=xlToLeft

Range("A1").Select


   
        ActiveWorkbook.SaveAs Filename:=Environ$("UserProfile") & "\Documents\ADINI YAZMAK İSTEMİYORUM.txt", _
        FileFormat:=xlText, CreateBackup:=False

        MsgBox "Hazir"
       
     Dim strPackageName As String
     strPackageName = Environ$("UserProfile") & "\Documents\ADINI YAZMAK İSTEMİYORUM.dtsx"
     Shell "cmd.exe /c dtexec /CONSOLELOG NM /f " & strPackageName, vbNormalFocus
     MsgBox "SSIS Package completed successfully", vbOKOnly
     
     
     

End Sub

Merhaba,
Burada sıkıntı olabilecek ayrıntıyı söylemişsiniz.

Eğer Ayırdığınız bölümler bir ölçüyü ifade ediyorsa, firmaların farklı formattaki barkodları size şu şekilde sıkıntı yapabilir:
* Yazılım ile len kullanılırsa, uzunluğu farklı olan barkodlar faklılık gösterecektir.
* uzunluk aynı olsa bile, her firma belirtilen bölümdeki numaraları belirli bir ölçüyü düşünerek vermemiş olabilir.

Tavsiyem barkod numarasının tamamını kullanıp; her bir ürünü evvela 1 kereliğine veri tabanına örn. firmaadi, barkodid, boy, gibi bilgilerle tanıtmalısınız.

Bunun için piyasada hazır programlar var.

formatlar önemli değil, kaç firma varsa hepsinden bir örnek txt ve olması gerekeni yazarsan çözerim. yapısal ayırt edebileceğim birşey mutlaka vardır. arkasına vba yazarım okutmalar bitince bitti ikonunu tıklaman yeterli olur.

=mid(a1,1,8)& mid(a1,9,1) örnek a1 de 1 den başla 8. karaktere kadar al, birleştir 9 dan başla 1 karakteri
if(len(a1)=7;şunları al;yoksa şunları al) gibide yazılabilir.
iç içe baya bir if yazılabilirde.
excel çok başarılı bir program tek sorunu hız ve yeterli veri tabanı olmaması, veri tabanı büyükse bir tık üstü için acces bir tık üzeri sql, kurumsal ise oracle. excel vba hayat kurtarır. 4 günlük bir eğitim bizim gibi bilgisayar kurtlarına yetiyor.