raf stoklama

[muhammethezer]

Malzeme Kod numarası verilmiş olan Ürünlerden
Farklı Raflarda bulunan aynı kodlu Ürünleri nasıl bulunabilir.
kod girildikten sonra Sayfa2'ye rapor olarak verecek.

 

[Recep İpek]

Anladığım kadarıyla Malzeme Koduna göre liste almak istiyorsunuz.

Bunun için aşağıdaki kodları kullanabilirsiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:d50").ClearContents
For i = 2 To s1.[a65536].End(3).Row
If [f10] = s1.Cells(i, "a").Value Then
sat = s2.[a65536].End(3).Row + 1
s2.Cells(sat, "a").Value = s1.Cells(i, "a").Value
s2.Cells(sat, "b").Value = s1.Cells(i, "b").Value
s2.Cells(sat, "c").Value = s1.Cells(i, "c").Value
s2.Cells(sat, "d").Value = s1.Cells(i, "d").Value
End If
Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Bitti"
[f10].Select
End Sub