• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Combobox ile Sayfalardan Textboxlara Bilgi Alma

  • Konbuyu başlatan Konbuyu başlatan ocamsul
  • Başlangıç tarihi Başlangıç tarihi
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 

Ekli dosyalar

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

Ekli dosyalar

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
 
Verdiğiniz cevaplar için çok teşekkür ederim. Forumumuz baya hızlanmış mı ne :) iki yolda işimi gördü.
 
Geri
Üst