Listeden seçime göre sonuç yazma

[resmiplaka]

ali - futbol
veli - basket
can- yüzme

bu eşleşmelere ilişkin olarak A1 e isimlerin açılır listesini oluşturdum. İstediğim A2 hücresinde; açılır listeden seçtiğim ismin karşısındaki branşın otomatik olarak çıkması..bunu hangi fonksiyondan yapabiliriz?

 

[bzace]

Merhaba,
En basit yöntem olarak DÜŞEYARA fonksiyonu inceleyiniz.

 

[resmiplaka]

merhaba,ilginize teşekkür ederim.
ancak bu listeden seçimi sürekli yapacağım. yani ali için seçip çıktı alacağım,sonra veli için seçim yapıp çıktı alacağım amacım bu değişikliklerde bir de branş girmemek uzun uzun isme göre otomatik branş bulması.

 

[numan şamil]

ali - futbol
veli - basket
can- yüzme

bu eşleşmelere ilişkin olarak A1 e isimlerin açılır listesini oluşturdum. İstediğim A2 hücresinde; açılır listeden seçtiğim ismin karşısındaki branşın otomatik olarak çıkması..bunu hangi fonksiyondan yapabiliriz?

Merhaba Ekli dosyayı incelermisiniz

 

[bzace]

Ekli dosyaya bakarmısınız.
Fonksiyon ile ;

=EĞER($A1="";"";DÜŞEYARA($A1;Sayfa2!$A$1:$B$10;2;0))

Kodlama ile;

Private Sub Worksheet_Change(ByVal Target As Range)
On Local Error GoTo cikis
Dim ns As Worksheet
Set ns = Worksheets("sayfa2")
Select Case Target.Column
Case Is = 1
Select Case Target.Value
Case Is <> Empty
Target.Offset(0, 1).Value = _
WorksheetFunction.VLookup(Target, ns.Range("A1:B" & ns.Range("A65536").End(3).Row), 2, 0)
Case Else
End Select
Case Else
cikis:
    Exit Sub
End Select
Set ns = Nothing
End Sub

Ekli dosyaya bakarak daha iyi anlayabilirsiniz

 

[resmiplaka]

numan şamil ..yapmak istediğim tam da bu.kendi çalışmama uyarlayacağım ama kodları göremiyorum?

 

[resmiplaka]

Ekli dosyaya bakarmısınız.
Fonksiyon ile ;

=EĞER($A1="";"";DÜŞEYARA($A1;Sayfa2!$A$1:$B$10;2;0))

Kodlama ile;

Private Sub Worksheet_Change(ByVal Target As Range)
On Local Error GoTo cikis
Dim ns As Worksheet
Set ns = Worksheets("sayfa2")
Select Case Target.Column
Case Is = 1
Select Case Target.Value
Case Is <> Empty
Target.Offset(0, 1).Value = _
WorksheetFunction.VLookup(Target, ns.Range("A1:B" & ns.Range("A65536").End(3).Row), 2, 0)
Case Else
End Select
Case Else
cikis:
    Exit Sub
End Select
Set ns = Nothing
End Sub

Ekli dosyaya bakarak daha iyi anlayabilirsiniz

bunu anlayamadım.. yine de teşekkür ederim ilginiz için

 

[numan şamil]

numan şamil ..yapmak istediğim tam da bu.kendi çalışmama uyarlayacağım ama kodları göremiyorum?

Merhaba
gönderdiğim dosyanın her hangi sayfa ismine gel sağ tuş yap kod görüntüle seç

açılan kod sayfasının sağda modül1 seçersen kodları görürsünüz
kodlar

Sub verigetir()
Dim Son, son1, Alan, i As Long
Application.ScreenUpdating = False
On Error Resume Next
Range("A2").ClearContents
Son = Cells(Rows.Count, 14).End(xlUp).Row
son1 = Cells(Rows.Count, 15).End(xlUp).Row
Alan = "N1:P" & son1
For i = 1 To Son
If Range("A1") <> "" And Range("A1") = Range("n" & i) Then Range("A2") = WorksheetFunction.VLookup(Range("N" & i), Range(Alan), 3, 0)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, ""
End Sub

 

[resmiplaka]

merhaba..istediğim ismi seçtiğim zaman bransı altına otomatik olarak yazması..