Combobox ile Sayfalardan Textboxlara Bilgi Alma

[ocamsul]

Arkadaşlar herkese merhabalar. Uzun bir süre buralara vakit ayıramadım, dolayısıyla excel e de. Herkese iyi seneler, hayırlı mesailer dilerim.

Ekli DENEME çalışmamda da görüleceği üzre aylık puantaj gibi bir şey tasarladım ancak elimde 1 VERI sekmesi 3 tanede aylara ait sekme var. Userformdan öncelikle ismi seçiyoruz. Daha sonra ayı seçtiğimizde, seçmiş olduğumuz kişinin o ayki puantajını Textboxlara SABAH, ÖĞLE ve AKŞAM olarak almam lazım. Bu konuda yardımlarını bekliyorum arkadaşlar.

 

[Orion1]

dosyanız ektedir.
Bu mantıkla çalışmalrınız yapmalısınız.

 

[sbayyigit]

yüksek müsadenizle siz değerli ustalardan aldığım kodlarla kendimce bir şeyler yaptım. ComboBox1_Change olayına aşağıdaki kodları eklerseniz istediğiniz oluyor. tabiki evren ustamın yaptıkları beni aşıyor.

Private Sub ComboBox1_Change()
TextBox1.Text = Sheets("VERI").Range("C" & ComboBox1.ListIndex + 2)
TextBox2.Text = Sheets("VERI").Range("D" & ComboBox1.ListIndex + 2)
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

basla = ActiveCell.Offset(0, 0)

For f = 3 To 34
ad = "TextBox" & f
Controls("TextBox" & f).Value = ActiveCell.Offset(0, f)
Controls("TextBox" & f + 32).Value = ActiveCell.Offset(1, f)
Controls("TextBox" & f + 64).Value = ActiveCell.Offset(2, f)

Next


End Sub

 

[ocamsul]

Verdiğiniz cevaplar için çok teşekkür ederim. Forumumuz baya hızlanmış mı ne iki yolda işimi gördü.