Süzme işlemi yaptığımda verilerin diğer ComboBox'a aktarılması

[millis]

Değerli arkadaşlar; Yapmak istediğim işlem şöyle. Bir veri tablom var bu tabloda bulunan değerlere bağlı olarak diğer verilerin kontrol edilip ComboBox'a aktarılması konusu. Açıklamaya çalışayım. A, B, C sütunlarında bulunan verileri ilk önce UserFormu aktive ettiğimde 1.ComboBox'a A sütunundaki veriler aktarılıyor, daha sonra seçimi yaptığımda 2.ComboBox'a 1.ComboBox da seçmiş olduğum seçeneğe bağlı olarak verilerde süzme yapacak ve çıkan sonucu B sütununda bulunan verileri 2.ComboBox'a aktaracak bu ComboBox da seçtiğim veriye göre yine bir süzme yapıp 3.ComboBox'a C sütunundaki verileri aktaracak. Daha iyi anlaşılabilmesi için dosyayı ekde gönderiyorum.

 

[Levent Menteşoğlu]

Userformdaki tüm kodları silin ve aşağıdakileri userformun kod sayfasına kopyalayın.

Dim s1
 
Private Sub ALTBIRIM_Click()
IMZA.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "c") = ALTBIRIM Then IMZA.AddItem s1.Cells(a, "d")
Next
End Sub
 
Private Sub BIRIM_Click()
ALTBIRIM.Clear
IMZA.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "b") = BIRIM Then
ALTBIRIM.AddItem s1.Cells(a, "c")
IMZA.AddItem s1.Cells(a, "d")
End If
Next
End Sub
 
Private Sub KURUM_Click()
BIRIM.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "a") = KURUM Then BIRIM.AddItem s1.Cells(a, "b")
Next
End Sub
 
Private Sub UserForm_Initialize()
Set s1 = Sheets("VERILER")
For a = 2 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("a2:a" & a), s1.Cells(a, "a")) = 1 Then KURUM.AddItem s1.Cells(a, "a")
Next
End Sub

 

[millis]

Bir sorum daha olacak.

Userformdaki tüm kodları silin ve aşağıdakileri userformun kod sayfasına kopyalayın.

Dim s1
 
Private Sub ALTBIRIM_Click()
IMZA.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "c") = ALTBIRIM Then IMZA.AddItem s1.Cells(a, "d")
Next
End Sub
 
Private Sub BIRIM_Click()
ALTBIRIM.Clear
IMZA.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "b") = BIRIM Then
ALTBIRIM.AddItem s1.Cells(a, "c")
IMZA.AddItem s1.Cells(a, "d")
End If
Next
End Sub
 
Private Sub KURUM_Click()
BIRIM.Clear
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "a") = KURUM Then BIRIM.AddItem s1.Cells(a, "b")
Next
End Sub
 
Private Sub UserForm_Initialize()
Set s1 = Sheets("VERILER")
For a = 2 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("a2:a" & a), s1.Cells(a, "a")) = 1 Then KURUM.AddItem s1.Cells(a, "a")
Next
End Sub

İlginiz için çok teşekkür ederim. Yanlız, İmza kısmındaki isimlerin 4 ü de herhangi bir bölüm seçilsede karşıma çıkacak. Bunu nasıl yapabilirim.

 

[millis]

Ek bir soru

İlginiz için çok teşekkür ederim. Yanlız, İmza kısmındaki isimlerin 4 ü de herhangi bir bölüm seçilsede karşıma çıkacak. Bunu nasıl yapabilirim.

Fazla meşgul etmezi isem, Yazılımda Dim s1 tanımlaması var. Bu tanımlamayı çoğu yerde kullanmışsınız, Örneğin; If s1.Cells(a,"c")=ALTBIRIM Then ........ gibi burada s1 in kullanım amacı nedir? Bu açıklamayıda yaparsanız sevinirim. İyi çalışmalar.

 

[Levent Menteşoğlu]

Fazla meşgul etmezi isem, Yazılımda Dim s1 tanımlaması var. Bu tanımlamayı çoğu yerde kullanmışsınız, Örneğin; If s1.Cells(a,"c")=ALTBIRIM Then ........ gibi burada s1 in kullanım amacı nedir? Bu açıklamayıda yaparsanız sevinirim. İyi çalışmalar.

s1, set s1=sheets("VERILER") satırı ile VERILER sayfasını tanımlamak için kullanılmıştır. Yani her seferinde sheets("VERILER") yazmak yerine sadece s1 kullanmak yeterli olacaktır.

 

[millis]

Bu sorunun devamı

İlginiz için çok teşekkür ederim. Yanlız, İmza kısmındaki isimlerin 4 ü de herhangi bir bölüm seçilsede karşıma çıkacak. Bunu nasıl yapabilirim.

Sayın Leventm; bu yazılımda imza kımındaki isimler herhangi bir bölümü seçtiğimde de imza comboBox kutusunda çıkması gerekiyor. Bunu için yazılımda ne gibi bir düzeltme yapmam lazım. Teşekkürler.