combobox

[mrt]

Selamlar;

Sira Bölge Adı Soyadı Bas.Tarihi Bit Tarihi
1 2.Bölge mehmet 01.01.2005 31.12.2005
2 3.Bölge Hale 01.01.2005 31.12.2005
3 2.Bölge Nermin 01.01.2004 30.06.2005
4 4.bölge haluk 01.01.2005 30.06.2005
5 3.bölge hakkı 15.02.2004 31.12.2004

cbbolge combobox'ını açtığımda karşıma farklı olan bölgeler çıksın istiyorum.

Þu an aynı isimi taşıyan bölgeler tekra tekra görünmektedir.

Yukarıdaki örnege göre Combobox açıldığında;

2.bölge
3.bölge
4.bölge gelmelidir.

mevcutta;

2.Bölge
3.Bölge
2.Bölge
4.bölge
3.bölge gelmektedir.

Kod:

Private Sub UserForm_Initialize()
Dim say As Integer
With Sheets("Veri").Select
txtsira.Locked = True
If Range("C2") = "" Then
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAd.RowSource = "Veri!C2:C" & say + 1
Else
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAd.RowSource = "Veri!C2:C" & say
End If
End With

With Sheets("Veri").Select

txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
Cbbolge.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
Cbbolge.RowSource = "Veri!B2:B" & say
End If
End With

txtsira.Value = say
cbAd.SetFocus

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:d1acf34fc6]Private Sub UserForm_Initialize()
say = WorksheetFunction.CountA(Range("C1:C65000"))
set s1=Sheets("Veri")
txtsira.Locked = True
For a =2 To s1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("C2:C" & a),s1.Cells(a, 3).Value) = 1 Then
cbAd.AddItem s1.Cells(a, 3).Value
End If
If WorksheetFunction.CountIf(s1.Range("B2:B" & a), s1.Cells(a, 2).Value) = 1 Then
cbbolge.AddItem s1.Cells(a,2).Value
End If
Next
txtsira.Value = say
cbAd.SetFocus
End Sub
[/vb:1:d1acf34fc6]

 

[ozgur2]

mrt,
merhabalar,
sayın leventm yazmış olduğu kodlarndan yeni bir form oluşturmaya çalıştım ama başaramadım bu formun bir örneğini gönderebilir misiniz? sakıncası yoksa elbette
başarılar

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[mrt]

Þu an dışarı çıkacağım.

Yarın sabah göndereyim.

 

[mrt]

Selamlar,

Dosya boyutu büyük olduğu için gönderemiiyorum.

sayın Leventm Yapmak istediklerimiz konusunda sizinle daha yakın irtibat kurabilir miyiz ?