stok programı son rütuşlar...

[chilekeshhh]

merhaba arklarım ve büyüklerim stok programımı bitirmek üzereyim ve kemal demir abim saolsun çok yardımcı olsu ama son bi kaç tane küçük sorunum var yardımcı olursanız sevinirm şimdiden teşekkürler...
sorunu resimde anlattım ondna hariç birde her kaydet diyişimde önceki kaydın üstüne yazıyor benim istediğim her kaydet dediğimizde alt alta geçirmesi kayıtları diğer sorularda residme var resim ve proje ektedir....

 

[Ali]

Ekle butonu için

Private Sub CommandButton1_Click()
For Each secim In Worksheets("stok").Range("A3:A19")
If ComboBox1.Value = secim Then
secim.Offset(0, 1).Value = secim.Offset(0, 1).Value + TextBox1.Value
End If
Next
End Sub

Gerekenleri sıfırla butonu için

Private Sub CommandButton2_Click()
Range("C3:C19").Select
Selection.FormulaR1C1 = "0"
End Sub

Combobox1'e öğeleri yüklemek için

Private Sub Worksheet_Activate()
ComboBox1.List() = Range("A3:A19").Value
End Sub

 

[chilekeshhh]

çok teşekkür ederim ilgilendiğiniz için...

 

[Ali]

Özel mesaj ile sorduğunuz soru için yukarıdaki kodları güncelledim.