• DİKKAT

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

ürün sayımları hk;

foruma da dosya yükleme imkanı mevcut.
 
ama benim bilgisayarımda bunu yapamıyorum .şirket kısıtlama getirdi.
 
açıklama!!
veri sayfasında a , b,c sutunlarında bulunan barkod kodu,ürün adı,bakiye adı dikkate alınarak,barkodu okuttuğumda ürün ismini sayım sayfasındaki b sutununa otomatik alacak şekilde.diğer bilgileri elle girebileceğim kod yazabilir miyiz.

Tşkler.

iyi günler.

http://www.dosya.tc/server23/zhovjz/SAYIM.xls.html
 
Tşkler.
ama sanırım ben tam olarak açıklayamadım.

şöyleki sayım sayfasında bulunan sayıma başla dediğimde veri sayfasında olan ürünlerinleri saymaya başlıyorum.
-barkod kodlarını girdiğimde ürün kodunu sayım sayfasına kendi alacak.
-ben barkod kodunu,kaç adet olduğunu ve hangi lokasyonda olduğunu yazmak durumdayım.
-açıklama kısmı zorunlu olmak durumunda değil,
-sürekli enter diyerek barkod,adet,lokasyon alanlarını zorunlu doldurlması gerekecek şekilde ilerlemem gerekiyor.
-tüm bu bilgiler sayım sayfasına aktarılacak.
yani;yazılan barkod numarası a sutununda bulunan hücreye,lokasyon yine aynı şekilde c sununda buluna hücreye,adet yine d sutunuda buluna hücreye aktarılacak.


yardımlarınızı rica ediyorum.

iyi günler.
 
Günaydın,
sitenizde şöyle bi kod buldum ama uyarlayamadım yardımcı olabilir misiniz?

Tşkler.
iyi günler.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox1_Enter()
If TextBox1.Value = "" Then GoTo bitti
girilensayı = TextBox2.Value
uzunluk1 = Len(girilensayı)
If Not IsNumeric(girilensayı) Then GoTo SayiDegil
If girilensayı <= 0 Then GoTo sayiyanlıs
If uzunluk1 = 13 Then GoTo sayibarkodyeni
If girilensayı > 100000 Then GoTo sayibüyük
x = ActiveCell.Row
Worksheets("SAYIM").Cells(x, 2).Value = girilensayı
Worksheets("SAYIM").Cells(x, 6).Value = x - 1
TextBox1.Value = ""
TextBox2.Value = ""
Label4.Caption = ""
Worksheets("SAYIM").Cells(x + 1, 1).Select
TextBox1.SetFocus
GoTo bitti
SayiDegil:
For j = 1 To 3
Beep
Next j
MsgBox "GİRİLEN DEĞER SAYI DEĞİL!" & " GİRİLEN YANLIŞ DEĞER= " & girilensayı
TextBox2.Value = ""
TextBox2.SetFocus
GoTo bitti
sayiyanlıs:
For j = 1 To 3
Beep
Next j
MsgBox "GİRİLEN DEĞER SIFIRDAN BÜYÜK OLMALI!" & " GİRİLEN YANLIŞ DEĞER= " & girilensayı
TextBox2.Value = ""
TextBox2.SetFocus
GoTo bitti
sayibüyük:
For j = 1 To 3
Beep
Next j
MsgBox "LÜTFEN DİKKAT!!! GİRİLEN DEĞER ÇOK BÜYÜK!" & " GİRİLEN YANLIŞ DEĞER= " & girilensayı
TextBox2.Value = ""
TextBox2.SetFocus
GoTo bitti
sayibarkodyeni:
For j = 1 To 3
Beep
Next j
MsgBox "LÜTFEN DİKKAT!!! BİR ÖNCEKİ ÜRÜNÜN STOK MİKTARINI GİRMEDEN YENİ BARKOD OKUTTUNUZ!" & " GİRİLEN YANLIŞ DEĞER= " & girilensayı
TextBox2.Value = ""
TextBox2.SetFocus
GoTo bitti
bitti:
End Sub
Private Sub TextBox2_Enter()
girilenbarkod = TextBox1.Value
'Girilen barkod sayısal mı ona bakıyor

'girilen barkodun tanımlı olup olmadığını bulmaya çalışır
girilenbarkodsonhanesiz = Mid(girilenbarkod, 1)
kgbarkodu:
On Error GoTo tanımsız
ürünismi = WorksheetFunction.VLookup(girilenbarkodsonhanesiz, Worksheets("ÖZET").Range("A2:Z65000"), 2, False)
emtiano = WorksheetFunction.VLookup(girilenbarkodsonhanesiz, Worksheets("ÖZET").Range("A2:Z65000"), 3, False)
Beep
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
x = ActiveCell.Row
Worksheets("SAYIM").Cells(x, 1).Value = girilenbarkod
Worksheets("SAYIM").Cells(x, 3).Value = ürünismi
Worksheets("SAYIM").Cells(x, 4).Value = emtiano
Label4.Caption = ürünismi
GoTo bitti
tanımsız:
Beep
MsgBox "BU ÜRÜN DAHA ÖNCE TANIMLANMAMIŞ LÜTFEN ÜRÜN İSMİNİ DETAYLI OLARAK GİRİNİZ!"
UserForm2.Show
GoTo bitti
SayiDegil:
For j = 1 To 3
Beep
Next j
MsgBox "GİRİLEN DEĞER SAYI DEĞİL!" & " GİRİLEN YANLIŞ DEĞER= " & girilenbarkod
TextBox1.Value = ""
TextBox1.SetFocus
GoTo bitti
dijityanlış:
For j = 1 To 3
Beep
Next j
MsgBox "GİRİLEN BARKOD DEĞERİ HATALI LÜTFEN BARKODU KONTROL EDİNİZ!" & " GİRİLEN YANLIŞ DEĞER= " & girilenbarkod
TextBox1.Value = ""
TextBox1.SetFocus
GoTo bitti
bitti:
End Sub


Private Sub TextBox3_Change()

End Sub

Private Sub UserForm_Click()

End Sub
 
sanırım yardımcı olacak kimse yok.
tşkler.
iyi günler.
 
Geri
Üst