- Katılım
- 12 Eylül 2021
- Mesajlar
- 45
- Excel Vers. ve Dili
- Microsoft Office 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2024
Selamlar,
TextBox1 envanter listesinden veri geliyor Sayfa1(stokmiktarı) , TextBox2 ben miktar yazıyorum Sayfa2 (çıkış yapılan miktar) , TextBox3,= TextBox1 + TextBox2 toplamı kalan stok miktarı. Buda envanter listesinden seçilen sayfa1 kalan stok miktarı olacak.
yapmak istediğim TextBox1 aldığı veriyi TextBox2 yazdığım çıkış miktarını sayfa2 o satırına, TextBox3 sayfa1 F satırına yazdırmak istiyorum.
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox "textbox1 veya textbox2 boş olamaz.!!", vbCritical
Exit Sub
End If
Range("A1").Value = TextBox1.Value * 1
Range("B1").Value = TextBox2.Value * 1
Range("C1").Value = Range("A1").Value + Range("B1").Value
TextBox3.Value = Range("C1").Value
End Sub
TextBox1 envanter listesinden veri geliyor Sayfa1(stokmiktarı) , TextBox2 ben miktar yazıyorum Sayfa2 (çıkış yapılan miktar) , TextBox3,= TextBox1 + TextBox2 toplamı kalan stok miktarı. Buda envanter listesinden seçilen sayfa1 kalan stok miktarı olacak.
yapmak istediğim TextBox1 aldığı veriyi TextBox2 yazdığım çıkış miktarını sayfa2 o satırına, TextBox3 sayfa1 F satırına yazdırmak istiyorum.
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox "textbox1 veya textbox2 boş olamaz.!!", vbCritical
Exit Sub
End If
Range("A1").Value = TextBox1.Value * 1
Range("B1").Value = TextBox2.Value * 1
Range("C1").Value = Range("A1").Value + Range("B1").Value
TextBox3.Value = Range("C1").Value
End Sub