listboxta filtre

[uguristanbul]

arkadaslar bi kac keredir soruyorum ama nedense bir türlü cvp alamadım
bende sorumda bir yalnıs var veya anlasılamıyor diye sorumu tekrar gonderiyorum
ekteki dosyada inceleyenler goruruler soru butonuna basıldığında form acılıListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "60;50;30;50;30;70;30;65;30"
ListBox2.RowSource = "sıralama!k2:S" & [k65536].End(3).Rowyorbu formda sıralistesi(listbox2) k ile s sutunları arasında
kodu ile bilgi almakta
yapmak istediğim ise eğer R sutunu dolu ise o satırın listede gozukmemesi
lütfen bu sefer bir cvp yazın
tesekkurler
saygılar

 

[halit3]

arkadaslar bi kac keredir soruyorum ama nedense bir türlü cvp alamadım
bende sorumda bir yalnıs var veya anlasılamıyor diye sorumu tekrar gonderiyorum
ekteki dosyada inceleyenler goruruler soru butonuna basıldığında form acılıListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "60;50;30;50;30;70;30;65;30"
ListBox2.RowSource = "sıralama!k2:S" & [k65536].End(3).Rowyorbu formda sıralistesi(listbox2) k ile s sutunları arasında
kodu ile bilgi almakta
yapmak istediğim ise eğer R sutunu dolu ise o satırın listede gozukmemesi
lütfen bu sefer bir cvp yazın
tesekkurler
saygılar

listbox2 nesnesine ait UserForm_Initialize deki kodu aşağıdakiyle değiştiriniz. tabi buna paralel olarakda listbox9 daki kodlarıda değiştirmelisiniz

ListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "60;50;30;50;30;70;30;65;30"
sat = 0
For i = 2 To [k65536].End(3).Row
If Cells(i, 18).Value <> "" Then
ListBox2.AddItem
ListBox2.List(sat, 0) = Cells(i, 11).Value
ListBox2.List(sat, 1) = Cells(i, 12).Value
ListBox2.List(sat, 2) = Cells(i, 13).Value
ListBox2.List(sat, 3) = Cells(i, 14).Value
ListBox2.List(sat, 4) = Cells(i, 15).Value
ListBox2.List(sat, 5) = Cells(i, 16).Value
ListBox2.List(sat, 6) = Cells(i, 17).Value
ListBox2.List(sat, 7) = Cells(i, 18).Value
ListBox2.List(sat, 8) = Cells(i, 19).Value
sat = sat + 1
End If
Next

 

[uguristanbul]

kodda gene hata

sayın halit3
dediğiniz gibi kodları değiştirdim ancak gene olmadı
şöyle:
list1 e cift tıkladığımızda liste2 ye veriler geliyor(sorun yok)
liste2 deki dolu olan herhangi bir satıra cift tıkladığımızda frame 5 enable= true oluyor listeden veya combo10 dan veriyi sayfaya aktarıp liste2 de görüyoruz (sorun yok)
liste 2 herhangi bir satırına cift tıklarsak ve 7. kolona kadar da dolu ise nöbet(frame2)cizelgesi kaybolup gonder cizelgesi(frame5) acılıyor(sorun yok)
ancak gonder çizelgesinden veri seçilip combo9 exit ine yazılmış veriyi kayıt edince liste2 ya saçma sapan şeyler kaydediyor
veya son satırdaki veriyi 2 kez listede gösteriyor
(ancak formu açıp kapatınca normale dönüyor)
ilginize teşekkür eder;
saygılar sunarım
(R satırı dolu olunca o satırı göstermeyecek)

 

[halit3]

kırmızı yerler değiştirildi veya ilave edildi kodunuzu bu dğrultuda değiştiriniz.
birde ListBox2.RowSource kodu olan yerleri iptal ediniz.

[COLOR=red]ListBox2.Clear
[/COLOR]ListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "60;50;30;50;30;70;30;65;30"
sat = 0
For i = 2 To [k65536].End(3).Row
If Cells(i, 18).Value [COLOR=red]= ""[/COLOR] Then
ListBox2.AddItem
ListBox2.List(sat, 0) = Cells(i, 11).Value
ListBox2.List(sat, 1) = Cells(i, 12).Value
ListBox2.List(sat, 2) = Cells(i, 13).Value
ListBox2.List(sat, 3) = Cells(i, 14).Value
ListBox2.List(sat, 4) = Cells(i, 15).Value
ListBox2.List(sat, 5) = Cells(i, 16).Value
ListBox2.List(sat, 6) = Cells(i, 17).Value
ListBox2.List(sat, 7) = Cells(i, 18).Value
ListBox2.List(sat, 8) = Cells(i, 19).Value
sat = sat + 1
End If
Next

 

[uguristanbul]

çok teşekkür ederim
elinize sağlık
sayğılar

 

[halit3]

iyi çalışmalar

 

[uguristanbul]

kodda gene hata

hocam olmuş dedim ama gene olamamış
nasıl olduğunu anlamadım ama gene bazı satırlarda cift yazıyor
ekteki dosyayı incelerseniz göreceksiniz
6.sutun dolu iken tekrar değiştirmeye öalıştığımda bazı satırları mükerrer olarak yazıyor
çok uğraştırdım sizi
çok teşekkür ederim
(not:satırlar sıra ile dolmuyor en alttanda ortadanda veri girilebilir)

 

[halit3]

hocam olmuş dedim ama gene olamamış
nasıl olduğunu anlamadım ama gene bazı satırlarda cift yazıyor
ekteki dosyayı incelerseniz göreceksiniz
6.sutun dolu iken tekrar değiştirmeye öalıştığımda bazı satırları mükerrer olarak yazıyor
çok uğraştırdım sizi
çok teşekkür ederim
(not:satırlar sıra ile dolmuyor en alttanda ortadanda veri girilebilir)

dosyandaki RowSource özelliklerini kaldırdım kontrol et

 

[uguristanbul]

hocam gene olmuyor

sayın hocam ekteki dosyada deneme yaptım gene olmadığını gördüm
sizi çok uğraştırdım
şimdide sorun şu
sayfada p sutununa formdaki mev gonder deki combo 10 veya altındaki listeden veri girince /veya veriyi değiştirince mükerrer kayıt yapıyor(ornek:sayfada 7 ve 8 nci satırlar)
veya göneder frame i aktif hale gelip burdan sayfanın r sutununa combo9 dan kayıt yapınca p sutunundaki veriyi siliyor (ornek:sayfada 11 ve 16 ncı satırlar)
sayın hocam sanıyorum combo 9 ve combo 10 un kayıt şeklini değiştirmek gerekiyor hatta bunu icin ayrı bir konu açmam gerekir belkide
yani su olmalı
herhangi bir kodla (benim yaptığım gibi olmak zorunda değil)
liste 2 ye cift tıklayınca mev.gonder frame i aktif hale geçip combo 10 daki veriyi (bu veri list box 5 in cift tıklaması ile combo 10 a gelmeli veya combo 10 dan direk seçilmeli) sayfada satırın p sutununa veriyi q sutununa saati yazmalı
ve bu veri değiştiriliyor olmalı
eğer pve q sutunları dolu ise
frame 6 aktif hale gelip combo 9 daki veriyi r sutununa ve s sutununa da saati yazmalı
saygılar sunarım

 

[halit3]

ben esasında 1. nolu mesajınıza cevap vermiştim. dosyanızın içeriliğini anlıyamadım tam olarak birazcık karışık geldi bana

 

[uguristanbul]

hocam
buraya kadar olan ilgi ve yardımlarınıza once teskkurle baslamak istiyorum
ne yapmak istediğimi anlatmaya çalışayım.
simdi ocelikle uğraştığım dosya bir taksi durağı programı(biterse tabii)
simdi formdaki
liste1 kayıtlı araç plaka kod şöför ad soyad vs gibi kayıtları içeriyor
liste 1 e çift tıkladığınızda kayıtlı araç sıraya girmiş oluyor
liste 2 durağa gelmiş ancak henuz hiç bir mevkiide (liste5) de beklemeyen sadece durağın içinde bekleyen araçları temsil ediyor.
liste 2 ye çift tıkladığınızda ise mev gonder listesi aktif hale geliyor çünki araç artık durakta değil
durağın müşteri bekleme nokatalarına gönderiliyor.
bunu mevgonder frame indeki combo10 click veya liste 5 e cift tıkladığımızda yapmaya calısıyorum( liste2 nin daha once veri girişi olmuş 1234 kolonları ve gene liste 2 nin 6 ve 7 nci kolonları da veri ile doluyor ki buraya kadar zaten sorun yok)
araç burda beklerken A-müşteri almış olabiliryor (o zaman gonder frame i aktif hale gelip ordan combo 9 veya liste 9 dan bir semt seçip aracı duraktaki sıra listesinden ki liste 2 çıkmış olacak yani liste 2 de gözükmüyor olmalıki o aracın peşindeki araö bekleme noktasına göndereyim.
veya araç o noktada beklerken X bekleme noktasından Y bekleme noktasına git diyorum(liste 2 nin 1 2 3 4 5 6 7 kolonları dolu olduğu halde ben 6 ve 7 nci kolonlar daki verileri değiştirmeye çalışıyorum.
6 ve 7 nci kolonlardaki veriyi gene mev gonder frame inden combo 10 veya liste5 ile değiştirmeye çalıştığımda o veriyi 2ni 3 ncü .. kere tekrar yazıyor.
veya gonder formunda bir veri girmeye çalıştığımda sayfada p sutununu siliyor.
konuyu açtığımda r sutububu filtreleyemedim buda çıkış yapan araçların hala liste 2 de gözükmesine neden olyordu onun için yardım istedim.
sizin yardımlarınız sonucu liste 2 filtrelendi ancak simdi de kayıtlarda sorun oldu
yani olması gereken şu:
liste 1 e cift tıklayıp veriyi sayfanın K ile 0 sutunlarına aktardık ve bunu liste 2 de gösterdik
liste 2 ye çift tıkladığımızda combo10 daki veriyi o satırın p kolonuna yani liste 2 nin 6 nci kolonuna
aktarmalı ve bu veri değişir olmalı
(yani kod liste 2 nin aktif satırını veya sayfanın liste 2 de satırını seçip combo 10 daki veriyi kayıt etmeli)
eğer sayfadaki p kolonu dolu ise gonder formu aktif hale gelip combo 9 daki veriyi de sayfadaki r sutununa kayıt etmeli ve o araç artık sıradan cıkmalı
umaraım anlatabilmişimdir.

 

[halit3]

bir adet label1 ekledim. label1 ilgili satır numarasını veriyor buna göre değişimler gercekleşiyor dosyayı bir incele

 

[uguristanbul]

sayın hocam
dünde bir bir açıklama yazdım ama sanıyorum bağlantı sorunlarından dolayı ulaşmamış
açıklamaya çalışayım
bu dosyayı bir taksi durağı programı yapmaya uğraşıyorum.kısıtlı kod bilgimle bir yerlere buraya kadar getirdim.simdi program soyle calısıyor
A-once liste1 deki kayıtlı araclar cift clickle sayfanın j:s sutunları arasına aktarılıyor ve liste 2 de bu veri gozukuyor.(bu aracın durak ta beklediğini anlatıyor)
B-sırası gelen araç mev gonder frame indeki X yere gene aynı frame in combo 10 u ile gidiyor bu kod
sonsat = ListBox2.ListIndex + 2
Cells(sonsat, 11) = TextBox3
Cells(sonsat, 12) = TextBox4
Cells(sonsat, 13) = TextBox5
Cells(sonsat, 14) = TextBox6
Cells(sonsat, 16) = ComboBox10
Cells(sonsat, 17) = TextBox9
'ListBox2.AddItem
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
UserForm_Initialize
burada beklemeye başlıyor.eğer müşteri gelirde cıkıs yaparsa
gonder frame i aktif hale geliyor.
ve bu frame deki combo 9 daki mevkiye gidiyor (sorun burda zaten)
işte benim kısıtlı kod bilgimle ben bu kayıt işini aynı combo 10 daki gibi yapmaya çalışıyorum o zamanda ya p sutunu siliyor yada baska yerlere kayıt yapıyor.
eğer araç X yerinde beklerken müşteri almadıysada Y bölgesinden bir yere gidecekse gene mev gönder frame inden ben onu X bölegesinden Y bölgesine gonderiyorum.
işte onun için p sutununu değiştirmeye uğraşıyorum.
düşündüğümü anlatmakta zorluk çekiyorum.
yardımlarınıza tesekkur eder
saygılar sunarım

 

[halit3]

dosyayı bir incele böyle birşeymi olacaktı