Sorgu için arama sonuçları: barkod

...As String, strSQL As String Sheets("Stokdurumu").Range("A2:C" & Rows.Count) = "" Sheets("Stokdurumu").Range("A1:D1") = Array("Barkod", "MalinCinsi", "SubeStok", "MerkezStok") Sheets("Stokdurumu").Range("A1:B1").ColumnWidth = 20...

@BaY_KaPTaN ustadım bende sızlerden alt alta 60 tane olan tabloda ( bu tek barkod ıcın bunun gıbı 20 tane daha barkod var ) her ıkı tabloyu tek a4 sayfasına yarı yarıya gelıcek sekılde yazdırabılır mıyız ? demek ıstemıstım box number degısıyor ya da suda olabılır 50 satırı bır sayfaya ıkıye...

Stok kodu ve barkod ile ilgili herhangi bir işlem yapılmaksızın. Kategori1 Userform yüklenirken veri alırken Kategori2 ve 3 bağımlı seçime bağlı olarak benzersiz yüklenecek. Umarım olmuştur. Kolay gelsin.

Merhaba Hakan Bey, Desteğiniz için çok teşekkürler, Sanırım talebimi ifade ederken Stok Kodu ve Barkod'un Kategorilerden bağımsız olduğunu belirtmemişim, Kategori 1 tamamen bağımsız olacak ve kategori 2 , kategori 1'e bağlı olacak, yine kategori 3 de kategori 2'ye bağlı olacak. Bu durumda kodu...

Merhabalar 2 Farklı SQL tablosundan aldığım, barkod ve fiyat bilgilerini içeren listede karşılaştırma yapmak istiyorum. Yardımcı olabilirseniz çok sevinirim. Örn Aşağıdaki tablo birebir aynı, fakat 100k lık bir satırda hangisi aynı hangisi değil bilmiyorum ve aralarında fiyat farkı...

elinize sağlık Veysel Bey kod doğru çalışıyor sadece 1den 8e kadar stunları seçip çalıştır dediğimde bir soldaki barkod sütununun üstüne geliyor urller o stunda karışıklık oluyor. alt alta sıralamayı 1 yazan stunda yapabilir miyiz?

merhaba Evet denedim ama barkod zaten boş olacağı için sk bulmadığı zaman hata veriyordu. En son çalışan sorunsuz haline şu kodlarla ulaştım Dim barkod As Variant Dim lastRow As Long lastRow = Sheets("liste").Cells(Sheets("liste").Rows.Count, "A").End(xlUp).Row If TextBox1.Value =...

Son verdiğim kodları denediniz mi?

Ama bunun da şöyle bir problemi var textbox1 tamamen silindiğinde hataya giriyor. boş olması durumunu ise bu kodlarla çözdüm Dim barkod As Variant Dim lastRow As Long lastRow = Sheets("liste").Cells(Sheets("liste").Rows.Count, "A").End(xlUp).Row If TextBox1.Value = "" Then...

Merhaba aşağıdaki kodlarla sorunumu çözdüm desteğiniz için çok teşekkür ederim, harikasınız Private Sub CommandButton1_Click() Dim barkod As Variant Dim lastRow As Long lastRow = Sheets("liste").Cells(Sheets("liste").Rows.Count, "A").End(xlUp).Row barkod = CDbl(TextBox1.Value)...

Bunda da sk olan kodları getirdi ama if değerini barkod üzerinden yaptığımız için sk değeri olmadığı zaman hata verdi o yüzden sk değeri yoksa kayıt yok diyordum ben

Ya da Butonunuzdaki kodların yerine aşağıdaki kodu kullanın Private Sub CommandButton1_Click() Dim barkod As Variant Dim lastRow As Long lastRow = Sheets("liste").Cells(Sheets("liste").Rows.Count, "A").End(xlUp).Row If TextBox1.Value = "" Then TextBox3.Value = "KART KAYITLI...

Selamlar kodlarınızdaki barkod = TextBox1.Value yerine barkod = CDbl(TextBox1.Value) bu kodu yazıp deneyin

...bir şey olmadı maalesef. Hatta chatgpt den kopya çektim kodu düzenledi ama yine de hata veriyor. Düşeyarama sonucunu bulamıyor Dim barkod As Variant Dim sk As Variant Dim urunadi As Variant Dim birim As Variant Dim miktar As Variant Dim lastRow As Long lastRow =...

Merhabalar Private Sub CommandButton2_Click() barkod = TextBox5.Value() sk = Application.VLookup(TextBox5.Value(), Sheets("liste").Range("A:E"), 2, 0) kodunda sürekli tür uyuşmazlığı hatası alıyorum. Neden bu hatayı alıyor olabilirm

Haluk Hocam okutulan barkod metninin içeriğinde "Tab" karakterleri de mevcut, geldiği anda bu karakterleri nasıl silebiliriz? Word dosyasına okutulunca aşağıdaki gibi bir bir sonuç geliyor. TextBox içine okutulurken Buradaki "tab" ve "enter" karaktelerini silerek düzgün hale getirmeye...

Hocam tekrar merhaba, Barkod okutmanın sonunda "enter" bulunuyormuş, KeyPress - Enter olayı ile okutmayı denedim, yalnız olmadı

Merhaba, Barkod okuyucuların çoğunda oto - Enter işlevleri kendi içlerinde var. Kullandığınız cihaza dair ayarları bulduktan sonra KeyPress - Enter olayı ile okutmayı yapabilirsiniz.

Barkod uzunlukları aynı ise Change eventinde uzunluk kontrolü yapılabilir. Private Sub TextBox1_Change() Dim rw As Long rw = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row If Len(Me.TextBox1.Value) = 10 Then Sayfa1.Range("A" & rw + 1).Value = Me.TextBox1.Value Me.TextBox1 = ""...

Merhaba, userform' da barkod okuturken, okutalan değeri Sayfa' da hücreye aktarsın istiyorum değerleri sırayla okuttuğu için Textbox' un Change olayına yazdığımda, her bir harf' te değişiklik olarak algıladığı için her bir yeni karakter geldiği zaman hücrede aşağıya doğru yazmaya devam ediyor...