Ürün girişi ve stokdan otomatik düsürülmesi

[ttrance]

arkadaşlar ekteki yolladıgım dosyayı incelerseniz sevinirim..

amacım hazırlanan userform ile ürün girişi yapabilmek ve satış sırasında onaylama butonu ile ürün girişi yaptıgım sayfadan stokdaki ürünün düşmesini saglayabilmek...

sayfa uzerinde de acıklama yaptım daha detaylı bir şekilde

şimdiden yardımlarınız için teşekkürler

iyi çalışmalar....

 

[Recep İpek]

Ekteki dosyada size örnek olabilecek bazı çalışmalar yaptım.

Bunlara göre dosyanızı geliştirebilirsiniz.

Ayrıca barkod cihazınızı excel'e nasıl okuttuğunuzu öğrenebilirmiyim?

Normalde hangi program açık ise ekrana barkodu yazması lazım.

Fakat ben bir türlü uygulayamadım.

 

[ttrance]

HOCAM İLGİN İÇİN TEŞEKKÜRLER

ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
bu kodda "Me" komutu hata veriyor.. hatayı anlayamadım

 

[Recep İpek]

Büyük ihtimalle eksik referanslardan kaynaklanıyor.

Siz me'le kaldırabilirsiniz.

Yani;

ActiveCell.Offset(0, 1).Value = TextBox2.Value

 

[ttrance]

hocam bu seferde ürün ekleme kısmında hiç bir degişiklik olmuyor guncelleme yapmıyor; stokdan dusme tamanlamıyla gercekleşmiyor elimizde olan sabit bir stokgibi gorunuyor

 

[ttrance]

Private Sub CommandButton1_Click()
Dim Ayni
tür = 0
For Each Ayni In [A7:A50]
If Ayni.Value = Val(Me.TextBox1.Text) Then
If MsgBox("Bu kaydınız var, Güncellemek İstiyormusunuz!", vbYesNo) = vbYes Then
Ayni.Select
tür = 1
Call KayıtEkle
End If
Exit Sub
Else
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
tür = 2
End If
Next Ayni
Call KayıtEkle
If tür = 1 Then
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = TextBox7.Value
ElseIf tür = 2 Then
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = TextBox7.Value
Else
Exit Sub
End If
End Sub

hocam modul'deki kodları form1 deki butona ekledim yeni kayıtları guzel yapıyor fakat guncellemelerde ürün eklemiyor üstüne yani bu kadar daha stoga girdi yapmıyor

 

[Recep İpek]

Bunların hepsini bir butona yazamazsınız.

Call KayıtEkle satırı çalışmayabilir.

Banim gönderdiğim şekilde olması gerekiyor.

 

[ttrance]

Bunların hepsini bir butona yazamazsınız.

Call KayıtEkle satırı çalışmayabilir.

Banim gönderdiğim şekilde olması gerekiyor.

kayıt ekliyor hocam ama eksiklik oldugu kesin

 

[Recep İpek]

Dosyanızı zip olarak ekleyebilirmisiniz?

 

[ttrance]

tabiki acemi şansı galiba bendeki

 

[Recep İpek]

fakat guncellemelerde ürün eklemiyor üstüne yani bu kadar daha stoga girdi yapmıyor

Maalesef rar. yok..Bunu biraz daha açıklayabilirmisiniz?

 

[ttrance]

tekrar yukledim

elimizde 50 tane "A" kodlu üründen var.. ürün gir deyip "A"kodunu okutup 10 tane daha ekleyemiyoruz

 

[Recep İpek]

Önceki mesajımda yazdığım gibi KayıtEkle modülü ayrı olacak.İlk gönderdiğim dosyayı kontrol ederseniz Sub KayıtEkle() ayrı.

Call KayıtEkle satırı
bu modülü çağırır , bulamayıncada hata veriyor..

 

[ttrance]

Önceki mesajımda yazdığım gibi KayıtEkle modülü ayrı olacak.İlk gönderdiğim dosyayı kontrol ederseniz Sub KayıtEkle() ayrı.

Call KayıtEkle satırı
bu modülü çağırır , bulamayıncada hata veriyor..

hocam birturlu giriş yapamadım... onayla diyorum hareket yok

 

[ttrance]

arkadaşlar ekteki yolladıgım dosyayı incelerseniz sevinirim..

amacım hazırlanan userform ile ürün girişi yapabilmek ve satış sırasında onaylama butonu ile ürün girişi yaptıgım sayfadan stokdaki ürünün düşmesini saglayabilmek...

sayfa uzerinde de acıklama yaptım daha detaylı bir şekilde

şimdiden yardımlarınız için teşekkürler

iyi çalışmalar....

yokmu başka yardım edecek

 

[ttrance]

bir turlu urun eklemeyi beceremedim arkadaşlar

 

[Levent Menteşoğlu]

Barkod nosunun daha önceden kayıtlı olduğunu tespit etmek için textbox1e aşağıdaki kodu kopyalayın.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
say = WorksheetFunction.CountIf([a:a], TextBox1)
If say > 0 Then
MsgBox "Bu borkod nosu önceden kayıtlıdır."
TextBox1 = ""
End If
End Sub

Onayla butonunada aşağıdaki kodu kopyalayın.

Private Sub CommandButton1_Click()
For a = 1 To 7
If Controls("textbox" & a) = "" Then
MsgBox "veri girişi eksiktir"
Controls("textbox" & a).SetFocus
Exit Sub
End If
Next
son = [a65536].End(3).Row + 1
For a = 1 To 7
Cells(son, a) = Controls("textbox" & a)
Next
MsgBox "Kayıt yapıldı"
End Sub

 

[ttrance]

HOCAM

If Controls("textbox" & a) = "" Then

bu satır hata veriyor...

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[ttrance]

HOCAM ELİNE KOLUNA SAĞLIK
Super Moderator CİDDEN SÜPERSİN