Soru Textbox ile düşeyara

[sirkülasyon]

Private Sub TextBox4_Change()
Set s1 = Sheets("DATA")
TextBox9 = Application.VLookup(TextBox4.Value, s1.Range("B2:C17"), 2, 0)

End Sub

Textbox4' e veri girince DATA sayfasında Düşeyara ile Textbox9' a değerini getirmek istiyorum. Ancak yukarıdaki kod hata veriyor. Rica etsem yardımcı olabilir misiniz?

 

[sirkülasyon]

Sorun Çözüldü