Userform combobox

[bilalege]

ekteki dosyada userformda sehri seçtiğimde exceldeki m sutunndaki ile karşılık gelen ilin meşhur olanının gelmesini istiyorum yardımcı olr msnz

 

[Orion1]

Lütfen konu başlığınızı konuya uygun bir şekilde değiştiriniz.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k  As Range, sat As Long
sat = Cells(Rows.Count, "L").End(xlUp).Row
Set k = Range("L3:L" & sat).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox2.Value = k.Offset(0, 1).Value
Set k = Nothing
End Sub

 

[bilalege]

Dha basitce nasil yazabilirim

 

[Orion1]

ComboBox1.Clear

Dim satir As Integer

satir = 3

While Cells(satir, 1).Value <> ""

ComboBox1.AddItem (Cells(satir, 1).Value)

satir = satir + 1

Wend

End Sub
Teşekkürler fakat
Bu formül gibi biraz basit yazabilir misnz

benim yazdığım kodlar daha uygundur.Daha hızlı çalışırlar.

 

[bilalege]

Haklısınız fakat bukadar ileri bilmediğim için anlayabilceğim düzeyde bişey daha yardımcı olcktr bana.. sizin gibi olrm inş ilerde

 

[bilalege]

Yardimci olabilir misiniz