Sayfadan veri almak

[TİKOS]

Üstadlar,
Ekteki dosyada vlookup ile sheet1'den aldım verileri kod ile yapmak istiyorum
yardımcı olursanız sevinirim.
teşekkürler

 

[dEdE]

Merhaba,
Sheet2 ye bir Combobox ekleyip, Kod sayfasına da aşağıdaki kodları ekledim.

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = "Sheet1!b2:b100"
End Sub

Private Sub ComboBox1_Change()
For i = 2 To Sheets("Sheet1").[B65536].End(3).Row
    If ComboBox1.Value = Sheets("Sheet1").Cells(i, 2).Value Then
        [F38].Value = Sheets("Sheet1").Cells(i, 3).Value
        [G38].Value = Sheets("Sheet1").Cells(i, 4).Value
    End If
Next
End Sub