Soru Sayfada Ara bul

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,623
Excel Vers. ve Dili
2016 TR
Ekli dosyamda yer alan userformda
Combobox1' e kurum adlarını (benzersiz olarak) listelemek
Combobox2' ye o kurumda ki personellerin adlarını
Textbox1' e de personelin görev bilgisini getirmek için rica etsem yardımcı olabilir misiniz?

Saygılarımla .
 

Ekli dosyalar

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,094
Excel Vers. ve Dili
2013
Merhaba.
Personellerin hangi kurumda çalıştığını nasıl bileceğiz? Belirtmemişsiniz.
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,623
Excel Vers. ve Dili
2016 TR
Sayın Dalgalıkur
Personel................................... Görevi................................. Çalıştığı Kurum
A Kişi ...................................... Antrenör.............................. A KURUMU
şeklinde satır satır belirtilmiş örnekte .
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,094
Excel Vers. ve Dili
2013
Aşağıdaki kodları deneyin.

Kod:
Private Sub ComboBox2_Change()
    Dim BulSatir As Long
    If ComboBox2.ListIndex < 0 Then
        TextBox1.Text = ""
        Exit Sub
    End If
    With ThisWorkbook.Worksheets("Sayfa1")
        BulSatir = .Range("B:B").Find(What:=ComboBox2.Text, LookAt:=xlWhole).Row
        TextBox1.Text = .Cells(BulSatir, "H")
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim Say As Long
    Dim Bak As Long
    Dim Benzersiz As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        Say = .Cells(Rows.Count, "O").End(xlUp).Row
        For Bak = 2 To Say
            Benzersiz = WorksheetFunction.CountIf(.Range("O" & Bak & ":O" & Say), .Cells(Bak, "O"))
            If Benzersiz = 1 Then
                ComboBox1.AddItem .Cells(Bak, "O")
            End If
        Next
        Say = .Cells(Rows.Count, "B").End(xlUp).Row
        ComboBox2.RowSource = .Name & "!B2:B" & Say
    End With
End Sub
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,623
Excel Vers. ve Dili
2016 TR
Üstad
Teşekkür ederim. Ellerine sağlık.
Sadece seçilen kuruma ait personel gelebilir mi?
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,094
Excel Vers. ve Dili
2013
Tamam şimdi anladım.
Aşağıdaki kodları kullanın.

Kod:
Private Sub ComboBox1_Change()
    Dim Say As Long
    Dim Bak As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        Say = .Cells(Rows.Count, "O").End(xlUp).Row
        For Bak = 2 To Say
            If ComboBox1.Text = .Cells(Bak, "O") Then
                ComboBox2.AddItem .Cells(Bak, "B")
            End If
        Next
    End With
        
End Sub

Private Sub ComboBox2_Change()
    Dim BulSatir As Long
    If ComboBox2.ListIndex < 0 Then
        TextBox1.Text = ""
        Exit Sub
    End If
    With ThisWorkbook.Worksheets("Sayfa1")
        BulSatir = .Range("B:B").Find(What:=ComboBox2.Text, LookAt:=xlWhole).Row
        TextBox1.Text = .Cells(BulSatir, "H")
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim Say As Long
    Dim Bak As Long
    Dim Benzersiz As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        Say = .Cells(Rows.Count, "O").End(xlUp).Row
        For Bak = 2 To Say
            Benzersiz = WorksheetFunction.CountIf(.Range("O" & Bak & ":O" & Say), .Cells(Bak, "O"))
            If Benzersiz = 1 Then
                ComboBox1.AddItem .Cells(Bak, "O")
            End If
        Next
    End With
End Sub
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,094
Excel Vers. ve Dili
2013
Rica ederim. Helal olsun. İyi çalışmalar.
 
Üst