Uygulamamda Açılan_STOK, Açılan_DURUM, AltForm1 ve AltForm2 var. AltForm1 ile AltForm2 değerlerinden sadece STOK sütunu eşit. Tablo1 ve AltForm1 bilgileri Forma metin kutularına geliyor.
Yaptıklarım örneğin
- 996655887 stok seçip durumunu HEK deyip UYGULA dediğimde Tablo1 e HEK yazıyor, Tablo2 ye yani Form1e durumuna HEK yazıyor HEK miktarına Tablo1 deki adedini yazıyor. 2.bir satır açıp 996655887 stoğun bilgilerini yeni satıra kaydediyor ve bu satırda DURUMU boş kalıyor. SİPARİŞDE sutunun
|
Private Sub CommandButton1_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("MÜŞTERİLER").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("MÜŞTERİLER").Cells(sonsatır, 1) = 1
Worksheets("MÜŞTERİLER").Cells(sonsatır, 2) = TextBox2.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 3) = TextBox3.value
Worksheets("MÜŞTERİLER").Cells(sonsatır, 4) = ComboBox1.value
Else
Worksheets("MÜŞTERİLER").Cells(sonsatır, 1) = Worksheets("MÜŞTERİLER").Cells(sonsatır - 1, 1) + 1
Worksheets("MÜŞTERİ
|