stok durumu

[bedirbey]

Merhabalar herkese iyi çalişmalar dilerim bi konuda yardımınıza ihtiyacım olacak stok giriş çıkış ve raporlama ile ilgili. Bu Konuda yardımcı olrsanız çok sevinirim Şimdiden tekekkür ederim

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim S1, S2 As Worksheet
Dim SUT, S As Integer
Set S1 = Sheets("stok")
Set S2 = Sheets("rapor")
S2.[A2:I1000].Clear
For SUT = 6 To S1.Cells(65536, "C").End(3).Row
If S1.Cells(SUT, "C") = ListBox1 Then
Range(S1.Cells(SUT, "A"), S1.Cells(SUT, "I")).Copy
S = S + 1
Range(S2.Cells(S + 1, "A"), S2.Cells(S + 1, "I")).PasteSpecial
End If
Next
Application.CutCopyMode = xlCopy
Unload Me
End Sub
Private Sub CommandButton2_Click()
Dim S1, S2 As Worksheet
Dim SUT, S As Integer
Set S1 = Sheets("stok")
Set S2 = Sheets("rapor")
S2.[A2:I1000].Clear
For SUT = 6 To S1.Cells(65536, "E").End(3).Row
If S1.Cells(SUT, "E") = ListBox2 Then
Range(S1.Cells(SUT, "A"), S1.Cells(SUT, "I")).Copy
S = S + 1
Range(S2.Cells(S + 1, "A"), S2.Cells(S + 1, "I")).PasteSpecial
End If
Next
Application.CutCopyMode = xlCopy
Unload Me
End Sub
Private Sub TextBox1_Change()
Dim SUT As Integer
ListBox1.Clear
ListBox1.ColumnCount = 1
For SUT = 6 To Cells(65336, "C").End(3).Row
If Cells(SUT, "C") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "C")
S = S + 1
End If
Next
End Sub
Private Sub TextBox2_Change()
Dim SUT As Integer
ListBox2.Clear
ListBox2.ColumnCount = 1
For SUT = 6 To Cells(65336, "E").End(3).Row
If Cells(SUT, "E") Like "*" & TextBox2 & "*" Then
ListBox2.AddItem
ListBox2.List(S, 0) = Cells(SUT, "E")
S = S + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
TextBox2 = "."
TextBox2 = ""
End Sub

 

[bedirbey]

çok teşekkür ediyorum eline emeğine sağlık

 

[N.Ziya Hiçdurmaz]

Bişey değil

 

[bedirbey]

Sayın Ziya Bey öncelikle ilginize çok teşekkür ederim. bi sorum daha olacak size ekte ki (tamsayfa) dosyasında olduğu gibi stokdeneme dosyasını nasıl tam sayfa yapabilirim. Yardımlarınız için tekrar teşekkür ederim.

 

[lahnetsel]

eline sağlık çok süper

 

[cihan1984]

Stok Kontrol

bEDİR ABI
programın sade hali çok hoşuma gitti.(ilk eklediğin)ben vba yeni başladım.yaptıgın program üzerinde biraz çalışıyorum ama suan için excelden verileri almakta zorluk çekiyorum.yardımcı olurmusun abi