Stok listesi

[biohazard35]

Arkadaşlar merhaba Yapmış olduğum basit bir malzeme kayıt listesi bulunmaktadır.Bu userform olarak yapmak istiyorum.Bu userform şekli önemli değil.Tek istediğim nasıl yapıldığı ile ilgili.Ve bu listeye kolay bir şekilde malzemeyi bulmama yardımcı olacak BUL butonu istiyorum.

 

[Orion1]

İrsaliye numarasını giriniz ve bul butonun basınız.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim k As Range, i As Byte
Set s1 = Sheets("Sayfa1")
For i = 2 To 7
    Controls("TextBox" & i).Value = Empty
Next i
Set k = Range("C2:C65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Value = Format(CDate(s1.Cells(k.Row, "A").Value), "dd.mm.yyyy")
    TextBox3.Value = s1.Cells(k.Row, "B").Value
    TextBox4.Value = s1.Cells(k.Row, "D").Value
    TextBox5.Value = Format(s1.Cells(k.Row, "E").Value, "#,##0.00")
    TextBox6.Value = Format(s1.Cells(k.Row, "F").Value, "#,##0.00")
    TextBox7.Value = Format(s1.Cells(k.Row, "G").Value, "#,##0.00")
End If
Set k = Nothing
End Sub