Soru Aranan değerlere göre bilgi getirmek

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Ustam
Sayfa1' in A1 hücresinde "Ortaöğretim" B1 hücresinde "Ortaöğretim okullarında yemek yiyen Öğrenci sayısı" başlıkları var
A2 den A23' e kadar Ortaöğretim sınıfında bulunan Okul adları B2 den B23' e kadar da Ortaöğretim okullarında yemek yiyen Öğrenci sayıları var
Sayfa1' in C1 hücresinde "Temel Eğitim" D1 hücresinde "Temel Eğitim okullarında yemek yiyen Öğrenci sayısı" başlıkları var
C2 den C23' e kadar Temel Eğitim sınıfında bulunan Okul adları D2 den D23' e kadar da Temel Eğitim okullarında yemek yiyen Öğrenci sayıları var
Talebim:
Eğer Combobox1 ="Ortaöğretim" ise ComboBox2' ye hemen altında ki okul adlarının listesini boşluksuz aldırmak
Textbox1' e de Seçilen Ortaöğretim okuluna ait yemek yiyen öğrenci sayısını almak
Eğer Combobox1 ="Temel Eğitim" ise ComboBox2' ye hemen altında ki okul adlarının listesini boşluksuz aldırmak
Textbox1' e de Seçilen Temel Eğitim okuluna ait yemek yiyen öğrenci sayısını almak
Rica etsem yardımcı olabilir misiniz?
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Dim ortaOgretim, temelEgitim

Private Sub ComboBox1_Change()
    ComboBox2.Tag = "Dur"
    ComboBox2.Clear
    ComboBox2.Tag = ""
    TextBox1.Text = ""
    
    If ComboBox1.Text = "Ortaöğretim" Then
        ComboBox2.List = ortaOgretim
    Else
        ComboBox2.List = temelEgitim
    End If
    
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Tag = "" Then TextBox1.Text = ComboBox2.Value
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Ortaöğretim", "Temel Eğitim")
    With ComboBox2
        .ColumnCount = 2
        .ColumnWidths = "228;0"
        .BoundColumn = 2
    End With
    With Sheets("Sayfa1")
        ortaOgretim = .Range("A2:B" & .Cells(Rows.Count, 1).End(3).Row).Value
        temelEgitim = .Range("C2:D" & .Cells(Rows.Count, 3).End(3).Row).Value
    End With
End Sub
 
Son düzenleme:

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Veysel Abi;
Allah razı olsun. Hakkınızı helal edin. Selametle
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Veysel Abi
Kod:
With ComboBox2
        .ColumnCount = 2
        .ColumnWidths = "228;0"
        .BoundColumn = 2
    End With
kısmını çoğaltılmasının imkanı var mıdır?
Örnek:
Kod:
With ComboBox2
        .ColumnCount = 3
        .ColumnWidths = "228;0;0"
        .BoundColumn = 3
    End With
Kod:
With ComboBox2
        .ColumnCount = 4
        .ColumnWidths = "228;0;0;0"
        .BoundColumn = 4
    End With
Gibi
 
Son düzenleme:
Üst