Barkod okutma hata

[erdincsen11]

Merhaba arkadaşlar sorum şu şekilde yardımcı olursanız çok sevinirim.

A sütununda
A1 hücresine barkod okutucam alta doğru , sütunda A1 hücresine girdiğim barkoddan farklı bir kod okuttugumda hata vermesini istiyorum.

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.
A1'deki barkodu A2 den itibaren aşağıya doğru arar bulursa işlem yapmaz, bulamazsa ileti gösterir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing And Target <> "" Then
        If Range("A2:A" & Rows.Count).Find(what:=Range("A1"), lookat:=xlWhole) Is Nothing Then
            MsgBox "Barkod bulunamadı.", vbCritical
        End If
    End If
End Sub

 

[Muzaffer Ali]

Veri doğrulama ile de yapabilirsiniz.

Veri doğrulama açın
İzin Verilen= Özel seçin
Formül kısmına =EĞERSAY(A2:A1048576;A1)<>0 kopyalayın.
Hata uyarısı kısmına istediğiniz uyarıyı yazın ve istediğiniz stil seçin.

 

[erdincsen11]

Cevap için teşekkürler, size bir sorum daha olacak , sayfa 1 satirlarda belirli sayıda adetleri belli olan barkodlu ürünlerim mevcut , sayfa 2 de bu ürünleri okutmak istiyorum tek bir sutunda , eğer bu ürünlerin dışında farklı bir ürün varsa hata nasıl verdidirim,

Örnek
Sayfa 1 de
A1 de barkod
B1 de ürün adı
C1 de adet
Alta devam eden ürünler aynı bu şekilde

Sayfa 2 de
A1 e barkod okutup sayısını cikarticam, adet sayisi eksik veya fazla çıkarsa uyarı versin vede farklı ürünlü barkod çıkarsa da

 

[Muzaffer Ali]

Örnek dosya hazırlayarak sorunuz.
Örnek dosyanız orijinal dosyanız ile bire bir aynı olmalı.

 

[Korhan Ayhan]

Ek olarak linki inceleyerek profilinizde yazan ofis sürümü ve dili bilgisini daha anlaşılır olacak şekilde düzenlemenizde fayda var..

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[erdincsen11]

Veri doğrulama ile de yapabilirsiniz.

Veri doğrulama açın
İzin Verilen= Özel seçin
Formül kısmına =EĞERSAY(A2:A1048576;A1)<>0 kopyalayın.
Hata uyarısı kısmına istediğiniz uyarıyı yazın ve istediğiniz stil seçin.

Merhaba olmadı maalesef

 

[erdincsen11]

Merhaba.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.
A1'deki barkodu A2 den itibaren aşağıya doğru arar bulursa işlem yapmaz, bulamazsa ileti gösterir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing And Target <> "" Then
        If Range("A2:A" & Rows.Count).Find(what:=Range("A1"), lookat:=xlWhole) Is Nothing Then
            MsgBox "Barkod bulunamadı.", vbCritical
        End If
    End If
End Sub

Hata verdi

 

[Muzaffer Ali]

Lütfen 5. ve 6. mesajları okuyunuz.

 

[erdincsen11]

Örnek dosya hazırlayarak sorunuz.
Örnek dosyanız orijinal dosyanız ile bire bir aynı olmalı.

 

[erdincsen11]

Örnek dosya hazırlayarak sorunuz.
Örnek dosyanız orijinal dosyanız ile bire bir aynı olmalı.

Merhaba örnek dosya ektedir

 

[Muzaffer Ali]

Ekli dosyanızdaki açıklamalarınız anlaşılmıyor.

 

[erdincsen11]

Ekli dosyanızdaki açıklamalarınız anlaşılmıyor.

Şöyle anlatayım
A2 hücresine barkod okutuyorum
Alt hucrelere devam ediyorum okutmaya. A2 deki barkoddan farklı bir barkod okuttugumda veri doğrulama ile uyarı versin istiyorum

 

[alicimri]

Eğer A3, A4, A5............... hücrelerine A2 hücresinde yazılı barkoddan farklı bir barkod girilmesini istemiyorsanız, A3 hücresine
Veri/Veri Doğrulama/Ayarlar
İzin Verilen : Özel
Formül: =$A$2=A3
uygulayın, A3 Hücresini kopyalayın, Özel Yapıştır/Doğrulama ile istediğiniz kadar A sütunundaki hücrelere uygulayın.