depo programında ufak değişiklik yardım

[metince54]

merhaba arkadaslar.elimdeki programda stok no secme seklinde onun yerıne ben elle girmek istiyorum.olabılırse malzeme ismini girdiğimdede malzemenın stok no su cıkarsa cok güzel olur şimdiden teşekkür ederim yardımlarınızı beklerım

 

[Erdem Akdemir]

Merhaba

Aşağıdaki alanı silin,

Private Sub Stok_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
    MsgBox "Lütfen Listeden Seçiniz"
End Sub

Bu kısmıda silin

Me.Adet.SetFocus

Aşağıdaki kodu ekleyin, hem listeden seçebilir hemde elle yazabilirsiniz.

Private Sub Stok_AfterUpdate()
Dim tablo As Range
Dim x As String
On Error Resume Next
x = Me.Stok.Value
Set tablo = Worksheets("Veri").Range("Table1")
If Stok.Value = "" Then
Me.Malzeme.Value = ""
Else
Me.Malzeme.Value = Application.WorksheetFunction.VLookup(x, tablo, 2, 0)
End If

End Sub