userformu vlookup ile çalıştırma

[remote]

Çok deneme rağmen bu konuda uzman olmadığım için beceremedim.Şu şekilde bir user form oluşturmak istiyorum 1. kutucuk içine araç plakası yazılacak 2. kutucuğa gideceği adres 3. kutucuğa ürün kodu yazılacak ve 3. kutucuğa ürün kodu yazılınca vlooup fonksiyonu ile 4. kutucukta ürün açılımı yazılacak enter a basınca otomatik olarak farklı bir sheete alt alta bu verileri kaydererek gidecek.Bu şekilde bir tablo hazırlanması ihtimaller dahilinde midir?Yardımcı olacaklara şimdiden teşekkürler

 

[ASMET67]

örnek çalışmanızı hazırlayp eklermısınız.

 

[remote]

örnek çalışmanızı hazırlayp eklermısınız.

İstediğim şeyleri beceremediğim için ben bu şekilde bir tablo oluşturdum ama otomatik olarak kaydetmesini sağlayamadım.Yardımcı olursanız çok sevinirim.Teşekkürler

 

[ASMET67]

Dosyayı güvenlik duvarına takıldığı için indiremiyorum
alabas.ahmet@gmail.com mail adresime gönderebilirmisiniz.

 

[ASMET67]

Dsoyanızı denermsiniz.

 

[remote]

Süper olmuş ellerinize sağlık benim düşündüğğümden bile daha iyi


şu şekilde bir hata verdi

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s2 = ThisWorkbook.Worksheets(ComboBox1.Value)
a = 30
For i = 3 To 12
If Controls("Textbox" & i) Then
s2.Cells(Cells(65536, 1).End(xlUp).Row + 1, 1) = TextBox1.Value
s2.Cells(Cells(65536, 2).End(xlUp).Row + 1, 2) = TextBox2.Value
s2.Cells(Cells(65536, 3).End(xlUp).Row + 1, 3) = Controls("textbox" & i).Value
s2.Cells(Cells(65536, 4).End(xlUp).Row + 1, 4) = Controls("Label" & a).Caption
a = a + 1
End If
Next

'For i = 30 To 39
' If Controls("Label" & i) Then
' s2.Cells(Cells(65536, 4).End(xlUp).Row + 1, 4) = Controls("Label" & i).Caption
' End If
'Next

 

[ASMET67]

Hangi satırda hata verdi