Sorgu için arama sonuçları: barkod

"Barkod ile Stoktağa Girilen Ürünün Tekrardan Barkod ile Arandığında Eşleşmesi ve Gerekli Fonksiyoları Yerine Getirmesini" sağlamaya çalışıyorum. Örnek: "ÜRÜN" "BARKOD" "ÇIKAN BARKOD"...

Merhaba; Örnek Excel dosyanızı verir misiniz? Mümkünse 1000 den fazla ya da tüm kayıtlar olabilir. Ayrıca barcode ları yine excel de mi istiyorsunuz ya da başka bir formata export edecek misiniz? Test yapmak isterim.

...sayfasında veriler kutucuklara değil, alt alta (A1,A2,A3 ..... A999) şeklinde veri girilebilsin ve "barcodes" sayfasında en azından 999 adet barkod oluşsun istiyorum. Çünkü benim onbinlerce satırdan oluşan verim var, bu verileri en azından biner biner (kopyala/yapıştır yöntemi ile)...

...My_Connection.Close Set My_Connection = Nothing Set My_Recordset = Nothing If Range("D1") <> "" Then MsgBox "Hatalı barkodlar bulundu!" & vbCrLf & _ "İşlem süresi ; " & Format(Timer - Process_Time, "0.00") & " Saniye", vbCritical Else MsgBox...

Merhabalar, Ekli dosyadaki gibi B süünunda 10 haneli barkod numaralarım var ancak bunların içinde 10 basamaklı olmayan sayılar mükerrer girişli olduğu için eğer hatalı giriş varsa makro bittiğinde hatalı barkodlar D sütünunda listelensin vemesaj box ile ""D sütünunda hatalı girişleri mevcut"...

İyi günler, solda barkod isim ve fiyatların bulunduğu bir listem var ve sağ tarafta barkod isim ve fiyatların bulunduğu listem var. Benim yapmaya çalıştığım şey ise sol taraftaki barkodlardan mesela A5 satırındaki barkodu sağ taraftaki barkod 2 diye sütunundan eşleşen bir barkod çıkarsa o...

Arkadaşlar merhaba, foruma yeni geldim. Yeni vba öğrenmeye çalışıyorum. Barkoda bağlı bir hızlı satış programı yaptım. Projemi tamamladığımda barkodu her okuttuğumda stoğumdan ilgili ürüne gidip ilgili ürünün stoğundan 1 adet stok azaltarak ürün stoğumu kontrol etmek istiyorum. Barkod...

...mesajımda belirttiğim adres çakışmasını düzenlemişsiniz. Aranacak alanı B100:ABC100 olarak düzenlemişsiniz. Deneyiniz. Option Explicit Sub Barkod_Listele() Dim Alan As Range, Bul As Range, Adres As String, Satir As Integer Set Alan = Range("B100:ABC100")...

Merhaba @Korhan Ayhan bey bir sorum olacaktı yukarıdaki arama çok işime yaradı ancak; arama esnasında kalibrasyon testinde akan "Barkod No:000000" verileri de geliyor ben bol sıfırlı bu değerleri çekmesini istemiyorum kodu nasıl revize edebilirmiyim, aramada bulduğu değeri (Barkod No:000000)...

...100 satırı aşarsa A100 hücresinde bulunan veri silinecektir. Bu durumu gözönüne alarak gerekirse kodu revize edersiniz. Option Explicit Sub Barkod_Listele() Dim Alan As Range, Bul As Range, Adres As String, Satir As Integer Set Alan = Range("A100:ABC100")...

Denemek isterseniz formül ile çözüm üretilebilir.. DİZİ formüldür. =İNDİS($A$100:$ABC$100;;KÜÇÜK(EĞER(SOLDAN($A$100:$ABC$100;UZUNLUK("Barkod No:"))="Barkod No:";SÜTUN($A$100:$ABC$100));SATIR()))

Excelde A100:ABC100 hücreleri boyunca "Barkod No:" ile başlayan veriyi arayıp bulma ve bulduğu her "Barkod No:" ile başlayan hücre değerini A1 den başlayarak alt alta sıralamak istiyorum. mümkünmüdür

Alternatif link.. Örnek Dosya

linki göremiyorum yardımcı olursanız sevinirim tşk

...* 300 ElseIf ComboBox_HammaddeAdi.Value = "Etiket" Then Range("M" & Satir).Value = KutuSayisi * 650 ElseIf ComboBox_HammaddeAdi.Value = "Barkod" Then Range("M" & Satir).Value = KutuSayisi * 7000 ElseIf ComboBox_HammaddeAdi.Value = "Barkod" Then Range("M" & Satir).Value =...

Linkte verdiğim bağlantıları inceleyiniz. https://www.excel.web.tr/threads/excel-barkod-okutma.202958/#post-1137584

Barkod okutulacak alan H2 hücresi okutulacak barkod B sütününda varsa uyarı vermesi gerekiyor. Fakat H2 hücresinde barkod okyuldumu H3'e düşmeyecek. Şimdiden yardımlarınız için teşekkür ederim.

...teşekkürler, Set WB = ThisWorkbook Set WS = WB.ActiveSheet myPath = WB.Path dataFile1 = "\\192.168.1.142\Barkod-3\Barkod.xlsm" dataFile2 = "\\192.168.1.124\Barkod-2\Parekende.xlsm" dataFile3 = "\\192.168.1.119\Barkod-1\Barkod.xlsm" On Error Resume...

...gidiyor dosyanın kendisini salt okunur olarak açıyor; sebebini bir türlü anlayamadım; iyi çalışmalar. myFile = ""\\192.168.1.119\Barkod-1\Barkod.xlsm"" If Con.State = 1 Then Con.Close Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel...

Merhaba alternatif link iletebilirmisiniz ?