texboxtan vlookup işlemi

[ogoktas]

merhabalar,
istediğim textbox1 'e deger girdiğimde herhangi bir sheette kayıtlı olan bu değerin karşılığının textbox2'de görünmesini istiyorum. bunu yaparken excel sayfasına herhangi bir deger atamak istemiyorum.

örnekteki gibi textbox1'e 100 yazdığımda sheet1'de bu değerin karşılığı olan a değerini textbox2'ye a olarak getirmesini istiyorum.

yardımınız için teşekkürler.

 

[Orion1]

Dosyanzız ektedir.

Private Sub TextBox1_Change()
Dim k As Range, sh As Worksheet
TextBox2.Text = ""
For Each sh In Worksheets
    Set k = sh.Range("A:A").Find(TextBox1.Text, , xlValues, xlWhole)
    If Not k Is Nothing Then
        TextBox2.Text = k.Offset(0, 1).Value
        Exit For
    End If
Next
End Sub

 

[ogoktas]

çok teşekkürler, ellerinize sağlık. ayrıca açılışta userform gelsin, excel sayfaları görünmesin bunun için ne önerirsiniz?
teşekkürler

 

[Orion1]

çok teşekkürler, ellerinize sağlık. ayrıca açılışta userform gelsin, excel sayfaları görünmesin bunun için ne önerirsiniz?
teşekkürler

Dosya ektedir.

Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
If Workbooks.Count = 1 Then
    Application.Quit
    Else
    ThisWorkbook.Close
End If
End Sub

 

[ogoktas]

çok teşekkürler. iyi akşamlar.

 

[Orion1]

çok teşekkürler. iyi akşamlar.

Rica ederim.
İyi geceler.