ListBox koşullu listeleme

[AKTAY27]

meraba arkadaşlar

Excel"PERSONEL KARTLARI" sayfasının
D sütununda personel isim listesi var
AC sütununda ise çıkış tarihi var


listbox1 personel isimleri listeleniyor.
benim istediğim "AC" sütunun da çıkış tarihi yazıyorsa o personeli listbox'a dahil etmesin. sadece çalışan personelin listesini versin
teşekkürler

 

[Mahmut Kök]

Aşağıdaki gibi deneyebilirsiniz. Olmazsa örnek dosyanızı ekleyebilirsiniz.

for a=1 to 100
if cells(a,"AC")<>0 then goto 3
listbox.additem cells(a,"D")
3
next

 

[AKTAY27]

say&#305;n mesleki
ilginizden &#246;t&#252;r&#252; te&#351;ekk&#252;r ederim ama olmuyor ben a&#351;a&#287;&#305;daki kodlar&#305; kullan&#305;yorum ve bu kodlara ek olarak i&#351;ten &#231;&#305;kanlar&#305;n listeye dahil etmesin istiyorum rica etsem bu kodlara uyarlayabilirmiyiz.
te&#351;ekk&#252;rler
---------------------------------------------------
Private Sub TextBox1_Change()
Dim i As Long, VER&#304; As String, KR&#304;TER As String

Sheets("PERSONELKARTLARI").Select
ListBox7.Clear '"i&#351;ten &#231;&#305;k&#305;&#351; tarihi"
ListBox5.Clear
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox6.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0;50"

KR&#304;TER = UCase(Replace(Replace(TextBox1.Value, "&#305;", "I"), "i", "&#304;"))
For i = 2 To Cells(65536, "W").End(xlUp).Row

VER&#304; = UCase(Replace(Replace(Cells(i, "D").Value, "&#305;", "I"), "i", "&#304;"))

If VER&#304; Like KR&#304;TER & "*" Then
ListBox5.AddItem Cells(i, "A").Value
ListBox1.AddItem
ListBox1.List(sat&#305;r, 0) = Cells(i, "C")
ListBox1.List(sat&#305;r, 1) = Cells(i, "D")
sat&#305;r = sat&#305;r + 1
ListBox2.AddItem Cells(i, "W").Value
ListBox3.AddItem Cells(i, "Z").Value
ListBox4.AddItem Cells(i, "C").Value
ListBox6.AddItem Cells(i, "AA").Value
ListBox7.AddItem Cells(i, "AC").Value '"i&#351;ten &#231;&#305;k&#305;&#351; tarihi"
End If

Next i
End Sub
----------------------------------------------------------

 

[AKTAY27]

arkada&#351;lar hala yard&#305;mlar&#305;n&#305;z&#305; bekliyorum te&#351;ekk&#252;rler

 

[Mahmut Kök]

Sayın AKTAY27, işten çıkış tarihi varsa, o kişiye ait bilgileri, hiçbir listekutusuna mı eklemeyeceksiniz, yoksa o kişinin bilgilerini, diğer listekutularına ekleyip, sadece listbox7'ye mi eklemeyeceksiniz.

Diğer husus, işten çıkış tarihinin olduğu AC sütununda, işten çıkış tarihi olmayanlarda herhangi bir veri bulunuyor mu?

Aşağıdaki örneği, işten çıkış tarihi olanları, hiçbir listeye eklemeyecek şekilde ayarladım. Gerekirse düzenlemenize yardımcı olalım.

Private Sub TextBox1_Change()
Dim i As Long, VERİ As String, KRİTER As String

Sheets("PERSONELKARTLARI").Select
ListBox7.Clear '"işten çıkış tarihi"
ListBox5.Clear
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox6.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0;50"

KRİTER = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
For i = 2 To Cells(65536, "W").End(xlUp).Row

if Cells(i, "AC")<>empty then goto 3 'eklendi.

VERİ = UCase(Replace(Replace(Cells(i, "D").Value, "ı", "I"), "i", "İ"))

If VERİ Like KRİTER & "*" Then
ListBox5.AddItem Cells(i, "A").Value
ListBox1.AddItem
ListBox1.List(satır, 0) = Cells(i, "C")
ListBox1.List(satır, 1) = Cells(i, "D")
satır = satır + 1
ListBox2.AddItem Cells(i, "W").Value
ListBox3.AddItem Cells(i, "Z").Value
ListBox4.AddItem Cells(i, "C").Value
ListBox6.AddItem Cells(i, "AA").Value
ListBox7.AddItem Cells(i, "AC").Value '"işten çıkış tarihi"
End If

3
Next i
End Sub

 

[AKTAY27]

te&#351;ekk&#252;rler mesleki
elinize sa&#287;l&#305;k tam istedi&#287;im gibi olmu&#351;

sizden bi&#351;ey daha rica etsem birde &#231;&#305;k&#305;&#351; tarihinin listelendi&#287;i listbox7'nin tarih format&#305;n&#305; de&#287;i&#351;tirebilirmiyiz gg/aa/yyyy olarak gelmesini istiyorum
sayg&#305;lar

 

[Mahmut Kök]

Aşağıdaki şekilde deneyebilirsiniz.

ListBox7.AddItem format(Cells(i, "AC"),"dd/mm/yyyy")

 

[Mahmut Kök]

Diğer sorunuzda yukarıda yazdığım kodu kullanmışsınız ama olmamış...

Aşağıdaki gibi deneyiniz, bir de ilgili hücredeki tarih şekline bakar mısınız? Belki, hücrede aa.gg.yyyy şeklindedir. İyi çalışmalar dilerim.

[LEFT]ListBox7.AddItem format(cdate(Cells(i, "AC")),"dd/mm/yyyy")[/LEFT]

 

[AKTAY27]

SAYIN MESLEK&#304;;
sizede fazla zahmet verdim fark&#305;nday&#305;m ama verdi&#287;iniz kodu denedim yine olmad&#305; ben yanl&#305;&#351; yap&#305;yor olabilirmiyim listbox7 in &#231;ine a&#351;a&#287;&#305;da g&#246;r&#252;nd&#252;&#287;&#252; gibi yazd&#305;m ba&#351;kada bir i&#351;lem yapmad&#305;m ba&#351;ka i&#351;lem yapmama gerek varm&#305;
te&#351;ekk&#252;rler
----------------------------------------------------------------------
Private Sub ListBox7_Click()
For i = 0 To 1000
ListBox7.AddItem format(cdate(Cells(i, "AC")),"dd/mm/yyyy")
Next i
End Sub
---------------------------------------------------------------------

 

[oburs]

örnek excel dosyasını alabilirmiyim..yardımcı olabilirmisiniz..