- Katılım
- 11 Mayıs 2005
- Mesajlar
- 167
- Excel Vers. ve Dili
-
office 2003 tr & eng.
office 2007 tr & eng.
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
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