3'lü Combobox

[Yesilyurtlu]

Değerli Üstadlarım;

Ekli Dosyada Sayfa1 de açıklamaya çalıştığım konu için yardımcı olabilir misiniz?

1.Combobox
GENEL KONULAR
ANA HİZMET FAALİYETLERİ
DANIŞMA-DENETİMLE İLGİLİ FAALİYETLER
YARDIMCI HİZMETLERLE İLGİLİ FAALİYETLER

2.Combobox
ANA HİZMET FAALİYETLERİ
Eğitim ve Öğretim İşleri
Öğrenci İşleri
Sosyal, Kültürel ve Sportif Faaliyetler
Öğretmen Yetiştirme ve Eğitimi
Özel Öğretim Kurumları
Eğitim Teknolojileri İşleri

DANIŞMA-DENETİMLE İLGİLİ FAALİYETLER
Araştırma ve Planlama İşleri
Basın ve Halkla İlişkiler İşleri
Hukuk İşleri
Teftiş / Denetim İşleri

YARDIMCI HİZMETLERLE İLGİLİ FAALİYETLER
Bilgi-İşlem İşleri
Dış İlişkiler ve Avrupa Birliği
Emlak ve Yapım İşleri
Eğitim İşleri
İdari ve Sosyal İşler Tanıtım ve Yayın İşleri
Mali İşler Özel Kalem ve Protokol İşleri
Personel İşleri
Satınalma ve Satış İşleri
Sivil Savunma İşleri

3.Combobox ise belirtilen kısım alınacak

 

[Yesilyurtlu]

Konunun güncel kalması amacı ile ve başka bir alternatif olması amacı ile dosyayı güncelledim. Üstadlarımdan Bu konuda yardım bekliyorum

Teşekkür Ederim

 

[Necdet]

Merhaba,

Private Sub ComboBox1_Change()
    Dim i   As Long, _
        Son As Long, _
        c   As Range, _
        s3  As Worksheet
    
    Set s3 = Sheets("Sayfa3")
    
    Set c = s3.Range("B3:E3").Find(ComboBox1.Value, LookIn:=xlValues)
    If c Is Nothing Then Exit Sub
        
    Son = s3.Cells(Rows.Count, c.Column).End(3).Row
    If Son < 4 Then Son = 4
    
    For i = 4 To Son
        ComboBox2.AddItem s3.Cells(i, c.Column)
    Next i
End Sub

Private Sub ComboBox2_Change()
    Dim i   As Long, _
        Son As Long, _
        c   As Range, _
        s3  As Worksheet
    
    Set s3 = Sheets("Sayfa3")
    
    Set c = s3.Range("F3:AL3").Find(ComboBox2.Value, LookIn:=xlValues)
    If c Is Nothing Then Exit Sub
        
    Son = s3.Cells(Rows.Count, c.Column).End(3).Row
    If Son < 4 Then Son = 4
    
    For i = 4 To Son
        ComboBox3.AddItem s3.Cells(i, c.Column)
    Next i
End Sub

Private Sub Worksheet_Activate()
    
    Dim i   As Long, _
        Son As Long, _
        s3  As Worksheet
    Set s3 = Sheets("Sayfa3")
    
    ComboBox1.Clear
    ComboBox2.Clear
    ComboBox3.Clear
    
    Son = s3.Cells(Rows.Count, "A").End(3).Row
    If Son < 3 Then Son = 3
    
    For i = 3 To Son
        ComboBox1.AddItem s3.Cells(i, "a")
    Next i
End Sub

 

[Yesilyurtlu]

Necdet Abi Allah ne muradın varsa versin.

 

[Necdet]

Amin.

Güle güle kullanınız.

 

[Yesilyurtlu]

Necdet abi eğer sitede iseniz ve müsaitseniz
Ekli dosyada Sayfa2' de ALT HİZMET açılır comboboxunda seçilen veri ne ise dosya sekmesinde G sütununda ki karşılığını sayfa2 de ki C10 kısmına aldıra bilirmiyiz?

 

[Necdet]

Merhaba,

Aşağıdaki kodu ekleyiniz.

Private Sub ComboBox3_Change()
    Dim c   As Range, _
        sd  As Worksheet
    
    Set sd = Sheets("Dosya")
    If ComboBox3.Value = "" Then Exit Sub
    Set c = sd.Range("E:E").Find(ComboBox3.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        [C10] = sd.Cells(c.Row, "G")
    Else
        [C10] = ""
    End If
    
End Sub

 

[Yesilyurtlu]

Necdet Abi Ahiretin Cennet Ola.

Bu konu kapanmıştır abi. Tüm sıkıntımı "Allah razı olsun Necdet Abi senden" giderdim.

 

[Necdet]

amin, hepimizin mekanı cennet ola.