basit stok takibi

[ikuyucak]

degerli forum uyeleri : giris ve cikislarin fatura seklinde yani birden fazla malzeme girisi ve cikisinin sadece miktar olarak (tutar ve kdv yok) yapilabilecegi stogun giris cikis kalan olarak takip edilebildigi ve rapor alabilecegim bir stok programina ihtiyacim var..ekte gonderdigim dosyada yardimlarinizi bekliyorum..saygi ve selamlarla

 

[gezgin-49]

Sayın ikuyucak ekli dosyayı bir inceleyin "STOK" sayfasına veri girişi ile ilgili olarak yaptığım doğru ise diğerlerine de devam edeceğim. buraya kadar hatalı olan bir yer varsa bildir düzeltelim.

 

[meslan]

Sn.gezgin-49 bu konuda ben de bir çalışma yapmıştım. Ama baktım başlı başın bir prom yapmak gerkiyor yarıda bıraktım. Buraya verdiğim emek boşuna gitmesin. Madem siz bunu yapmaya başladınız benim çalışmamın da size bir nebze katkısı olsun. Saygılar.

 

[gezgin-49]

Sayın Meslan dosyayı açamadım "Could not load an object because it is not available on this machine" uyarısı veriyor,

 

[meslan]

Sn.gezgin_49 dosyayı yeniledim tekrar denermisiniz. Açılmasına engel bir durum yok.

 

[gezgin-49]

tamam şimdi oldu, galiba benim bilgisaydan kaynaklanan bir sorundu. ben ikuyucak arkadaşın göndermiş olduğu formlar üzerinde çalışma yapıyordum, gerçi tam olarak ne yapmak istediğini anlamış değilim, ama sizin düşünceniz müthiş, kodlarda aynen öyle eksik kalan kısmı neresi, onu kestiremedim. saygılar.

 

[meslan]

aslında eksik kalan pek fazla birşey yok firma tanımlama ve raporlama. Raporlama ölçütleri ne olacak bilemediğimiz için bu konuda bir fikrim yok.

 

[gezgin-49]

Sayın meslan sizi kutluyorum, gerçekten güzel olmuş, ellerinize, emeğinize sağlık, benim gibi acemilerin sizin gibi üstadlardan öğrenecek çok şeyimiz var, ama ben Userform kullanmaya yaklaşık 1 aylık bir zamandır başladım, zaten kodlara bakıldığında acemice olduğu gözükecektir. Saygılarımı sunuyorum.

 

[meslan]

Esteğfirullah kardeş, tartılsak sen ağır gelirsin. Bundan eminim.

 

[gezgin-49]

Yok yok bu söylediklerim iltifat değil gerçek, başarılarınızın devamını diliyor, saygılar sunuyorum.

 

[meslan]

Sağol, varol.
O halde bu proğramı elbirliği ile beraber tamamlayalım. Tabi ikuyucak ta destek vermeli.

 

[gezgin-49]

tamam, bana uyar,sizin gibi birini yakalamışken kolay kolay bırakmak, ama yemekten sonra devam edeceğim, sizinle kodları tartışırız olur mu

 

[gezgin-49]

isterseniz sizin yazdığınız kodlardan kaydet butonu ile başlayalım bu kodların bir açıklamasına yapabilirmisiniz. bakarsınız çok arkadaşın işine de yarar.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If No20.Caption <> "" Then
No0.Value = No20.Caption
Else
For i = 1 To 20
If Me.Controls("No" & i).Caption = "" Then No0.Value = Controls("No" & i - 1).Caption: Exit For
Next
End If
Set S1 = Sheets("STOK")
If CheckBox1 = True Then
Set S2 = Sheets("GIRIS")
Else
Set S2 = Sheets("CIKIS")
End If
For X = 1 To (No0 * 5) Step 5
If Me.Controls("textbox" & X + 3).Value = "" Then MsgBox "Miktar Yazınız.", vbQuestion, Application.UserName: Exit Sub
If Me.Controls("textbox" & X + 4).Value = "" Then MsgBox "Tutar yazınız.", vbQuestion, Application.UserName: Exit Sub
Next
For X = 1 To (No0 * 5) Step 5
sn = WorksheetFunction.CountA(S2.[A:A]) + 1
S2.Cells(sn, 1) = WorksheetFunction.Max(S2.[A:A]) + 1
S2.Cells(sn, 2) = DTPicker1.Value
S2.Cells(sn, 3) = TextFATURA
S2.Cells(sn, 4) = Me.Controls("textbox" & X).Value
S2.Cells(sn, 5) = Me.Controls("textbox" & X + 1).Value
S2.Cells(sn, 6) = Me.Controls("textbox" & X + 2).Value
S2.Cells(sn, 7) = CDbl(Me.Controls("textbox" & X + 3).Value)
S2.Cells(sn, 8) = CDbl(Me.Controls("textbox" & X + 4).Value)
S2.Cells(sn, 9) = ComboFIRMA
If WorksheetFunction.CountIf(S1.[A:A], Me.Controls("textbox" & X).Value) >= 1 Then
a = WorksheetFunction.Match(Me.Controls("textbox" & X), S1.[A:A], 0)
If CheckBox1 = True Then
S1.Cells(a, 5) = CDbl(Me.Controls("textbox" & X + 3).Value) + S1.Cells(a, 5)
Else
S1.Cells(a, 6) = CDbl(Me.Controls("textbox" & X + 3).Value) + S1.Cells(a, 6)
End If
Else
s = S1.[A65536].End(3).Row + 1
S1.Cells(s, 1) = Me.Controls("textbox" & X).Value
S1.Cells(s, 2) = Me.Controls("textbox" & X + 1).Value
S1.Cells(s, 3) = Me.Controls("textbox" & X + 2).Value
S1.Cells(s, 4) = CDbl(Me.Controls("textbox" & X + 3).Value)
If CheckBox1 = True Then
S1.Cells(s, 5) = CDbl(Me.Controls("textbox" & X + 4).Value)
Else
S1.Cells(s, 6) = CDbl(Me.Controls("textbox" & X + 4).Value)
End If
End If
Next X
Mesaj.Visible = True
Application.Wait Now + TimeValue("00:00:05")
Mesaj.Visible = False
Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
End Sub