Stok takibi

[Civan Jack]

Stok takibimizi yapacağımın bir çalışma yapamak istiyorm ama nasıl ??
taslağı hazırladım 2 form var üzerlerinde ne yapılmasını yazdım.
yardımcı olabilirseniz sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
Dim sat As Integer
    For sat = 3 To Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") Like ComboBox1.Value Then
            TextBox5 = Cells(sat, "b")
        End If
    Next
End Sub
Private Sub CommandButton1_Click()
Dim sat As Integer
        If ComboBox1.Value = "" Then
            MsgBox "Önce bir malzeme kodu seçmelisiniz.", vbInformation
        Exit Sub: End If
    For sat = 3 To Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") Like ComboBox1.Value Then
            Cells(sat, "c") = Cells(sat, "c") + Val(TextBox3)
            Cells(sat, "d") = Cells(sat, "d") - Val(TextBox4)
        End If
    Next
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a3:a" & [sayfa1!a65536].End(xlUp).Row
End Sub

 

[Civan Jack]

Teşekkürler Sn. N.Ziya Hiçdurmaz.
Yalnız bir sorun var gibi.
Girişe rakam yazıp kaydettiğim de bir sorun yok.
Çıkışa rakam yazıp kaydettiğimde, sayfadaki çıkışa doğru rakam yazılıyor fakat depo miktarını artırıyor. Çıkan bir ürünün depo dan düşmesi lazım..
Düzeltebilirseniz sevinirim.
Teşekkürler..

 

[Civan Jack]

Sn. N.Ziya Hiçdurmaz, aşağıdaki kodu kopyalayıp ilave ettim ve sorun çözüldü,
İlgi ve alâkanız için teşekkürler.

Cells(sat, "e") = Cells(sat, "e") - Val(TextBox4)

 

[Civan Jack]

Sn. N.Ziya Hiçdurmaz, ben bu programı kâğıt stok programı olarak değiştirip, biraz geliştirdim.
Beğeneceğinizi umarım.
Teşekkürler..

 

[blade123]

Sn. N.Ziya Hiçdurmaz, ben bu programı kâğıt stok programı olarak değiştirip, biraz geliştirdim.
Beğeneceğinizi umarım.
Teşekkürler..

emeginize saglık güzel bir program.yalnız bunu kullanıcı adı ve şifreyi bulamadım.gönderirseniz sevinirim teşekkürler

 

[Civan Jack]

Programı indirdiğinizde bir jpeg göreceksiniz sağ tıklayıp birlikte açtan Not Defterini seçin şifreyi göreceksiniz..