VBA da düşey ara

[enegen]

selam ustalarım.
UserForm1.Label11 = Application.VLookup(UserForm1.TextBox1.Value, Sayfa10.Range("B2:I1000"), 2, False)
yukarıdaki kodu kullanarak formumdaki label11 e tablodaki değeri getiriyorum.
benim yapmak istediğim label12,13,14... label11 getirilen hücrenin 1 alt hücresindeki değeri ve değerleri yazdırmak. yine aynı formülle yapamıyorum çünkü düşeyaramadaki değeri label12 için uygulayamıyorum. mesela
elma 1
2
3
elmayı buluyor label11 1 diye yazıyor ama label12 karşılığı yok. label12 2 yazmasını istiyorum. yardımlarınızı bekliyorum. şimdiden teşekkürler.

 

[enegen]

yukarıdaki mesajımda sayılar elmanın altına denk gelmiş ama sayılar hep aynı sütunda.

 

[enegen]

arkadaşlar başka bi yöntemde olabilir.
bir türlü çözemedim yardım lütfen.

 

[scorpix]

selamlar ekteki dosya işinize yarayabilir

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim k As Range
Set k = Range("B:B").Find(TextBox1.Text, , xlValues, xlWhole)
Label11.Caption = "": Label12.Caption = "": Label13.Caption = "": Label14.Caption = ""
If Not k Is Nothing Then
    Label11.Caption = k.Offset(0, 1).Value
    Label12.Caption = k.Offset(1, 1).Value
    Label13.Caption = k.Offset(2, 1).Value
    Label14.Caption = k.Offset(3, 1).Value
End If
End Sub

 

[enegen]

çok özürdilerim ben tam anlatamadım konuyu
dosyam ekte
mesela kuaför öğrenciyi seçince label11 e kuaförlük meslek dalının ilk dersi olan ortak beceri dersi geliyor. bunu başardım ama label12 ve diğerlerine
kuaförlük mesleğinin derslerinden ortak beceri dersinin altındaki derslerin sıralanmasını istiyorum.
yardımlarınız için çok teşekkür ederim.