User form üzerindeki listboxta secilmiş satıra renk verme

[eftel]

Herkese merhaba, user form üzerinde listbox var burada çift tıklama ile sectiğimiz bir satıra nasıl renk verebiliriz acaba ? Renklendirme işlemi Checkbox yardımıyla olsa mesela .

 

[Korhan Ayhan]

Merhaba,

ListBox nesnesinde seçim yaptığınız zaman zaten seçili satır bir renklenerek belirginleşir. Siz farklı renk yapmak istiyorum derseniz yapamazsınız.

Bu nesne yerine SpreadSheet nesnesi ile dilediğiniz renklendirmeyi yapabilirsiniz. Forumda arama yaparak ulaşabilirsiniz.

 

[eftel]

Teşekürler ilginiz için ,peki şu şekilde birşey yapılabilir mi.
listboxtansatırı sectiniz, bir checkbox eklediniz, checbox u işaretlediğiniz zaman excel sayfasında sectiğimiz satırı boyadı ?

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[eftel]

Korhan bey örnek için teşekkür ederim fakat ben sunu merek ediyorum ekte dosya gönderiyorum incelerseniz cok memnun olurum.

 

[Korhan Ayhan]

Merhaba,

Kendi dosyanızı eklerseniz onun üzerinden çözüm yolu arayabiliriz.

 

[eftel]

Dosya ekte. daha öncede yazmıştım fazla ilgilenen olmamıştı kopyalayıp yapıştırıyorum... Excelde belli kriterlere göre sınıflanmış verileri sadece user formu kullanarak yapmak istiyorum yeniyim birşeyler yaptım denedim olmadı beceremedim. Ekteki dosyada ad soyad kısmına-müşteri no kısmına-risk numarası kısmına aranacak veriyi yazdığımda listbox1 'e sadece bulunan satırın tamamını almasını, sonra checkboxlarda yazdığım gibi yine sadece secilen satrın tamamını sarı-kırmızı yada yeşile boyama işlemi konusunda bana yardımcı olursanız cok sevinirim. Boyanmış satırları mesela hatalı uygulamaları göster ve yazdır dediğimde de de listbox tan görünmesini nasıl yapabiliriz. Enson olarak da tespitleri yazdığımda süzdürülmüş satırımın yanındaki ilk boş hucreye(örnekte N sutununda süzdürülmüş satrın yanındaki ilk boş hücre) nasıl yazdırabilirim. Karışık ve zor farkındayım. Mümkünse yardımlarınızı bekliyorum.
özet olarak veri aramalrını ve veri girişlerini userform üzerinde yapıp en son kaydet dediğimde de tüm değişikliklerin Excel sayfasına kaydedilmesi gerekiyor. Son olarakda aradığım veriler listboxta listelenince üzerine tıkladığım zaman, mavi yazıyla yazılmış müşteri no merkezi fiş no miktar tarih açıklama( Excel sayfasındaki fiş açıklama1 e karşılık geliyor) kısmında görünmesi gerekiyor.
örnek dosya içinde ben yazabildiğim kadar birşeyler yapmaya çalıştım.

 

[Korhan Ayhan]

Merhaba,

Formunuz ilk açıldığında "ListBox" boşmu gözükecek yoksa tüm kayıtlar listelenecek mi?

Ayrıca arama işlemleri aşağıdaki sütunlardamı yapılacak?

Ad Soyad ?
Risk Numarası "M"
Müşteri No "G"

 

[eftel]

Merhaba, listbox dolu gözükebilir, arama 3 kritere göre de yapılabilecek cok teşekkür ediyorum bu arada. Ad soyad kısmı M nin içinden gelecek ad soyad m sutununa dahil hücrelerde.

 

[Korhan Ayhan]

Merhaba,

"HATALI UYGULAMALARI GÖSTER" dediğinizde hangi renkler listelenecek?

 

[Korhan Ayhan]

Merhaba,

Bu aşamaya kadar düzenlediğim dosyayı ekliyorum. Üzerinden gerekli düzeltmeleri yaparız.

 

[eftel]

Korhan Bey çok çok teşekkür ederim cok sağolun kaç gündür uğraşıyordum siz şak diye yapmışsınız ellerinize sağlık. Bende üzerine birkaç sey ekledim örneğin listboxtaki satıra daubleclick yapınca verileri ilgili textboxta gönderiyor ama sanırım yine birseyi yanlış yaptım su kodu yazıyorum



Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 13)
TextBox5 = ListBox1.List(ListBox1.ListIndex, 6)
TextBox6 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox7 = ListBox1.List(ListBox1.ListIndex, 10)
TextBox8 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox9 = ListBox1.List(ListBox1.ListIndex, 12)
TextBox10 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox11 = ListBox1.List(ListBox1.ListIndex, 8)

doubleclick yaptığımda veriler textboxa yerleşiyor fakat bu seferde aramalar aktif olmuyor arama kutucuklarına aradığım şeyi yazınca örneğin ahmet yazıyorum listbox boş görünüyor. KAYDET butonuna bastığımda da aynı şey oluyor.Nasıl düzeltebilirim, bu arada hatalı uygulamaları göster dediğimde kırmızı renktekiler gelecek. Çok teşekkür ederim tam istediğim gibi olmuş tam.

 

[Korhan Ayhan]

Merhaba,

#11 nolu mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[eftel]

Korhan Bey ellerinize sağlık çok iyi cok güzel tam aradığım şey budur ama tek bir sıkıntı var, dataa sayfasına yeni veriler yüklediğimde arkadaki excell sayfasında sadece en üst satır seciliyor listboxtan cift tık yapıyorum yine yanlızca data sayfasındaki en üst satır aktif oluyor tek sorun bu, çabalarınız emeğiniz ve sabrınız için cok cok teşekkür ederim.

 

[eftel]

Buarada veri ekleme işini kopyala yapıştır işlemiyle yapıyorum birşeyi bozuyor olabilir mi.

 

[eftel]

Korhan Bey, tamamdır ilk sutunu silip kodları ayarlayınca halloldu. Elleriniz dert görmesin çoook çok teşekkür ederim tam istediğim ibi olmuş,zahmet verdim sizede, zaman ayırdığınız uğraştığınız için teşekkür ederim.

 

[eftel]

Son bi soru sorup bu olayı tamamlayım . aynı çalışma kitabına yaklaşık 13-14 tane yeni sayfa ekleyip (herbirinin ismi farklı olmak kosuluyla) userform üzerine de combobox ekleyip ,comboboxta eklediğimiz sayfaların ismi gözükse ve comboboxtan sayfayı sectiğimizde userform o sayfadaki verilere göre işlem yapsa mükemmel birşey ortaya cıkacak. Korhan bey, siz kod yazarken data sayfası ismindeki sayfaya göre yazmıştınız bunu düzenleme imkanımız var mı. Örneğin : data sayfasının olduğu yerde user form açılıyor, comboboxtan 3.sayfayı seciyoruz userforma listboxa vs 3. sayfadaki veriler geliyor ve orada işlemleri yapıyoruz, comboboxtan 10sayfayı seciyoruz........ böyle birşey mümkün olabilir mi ve herbir sayfaya userformu acacak düğmeyi nasıl taşıyabiliriz. Çok sey istediğimin farkındayım, affola.

 

[eftel]

Korhan Beyin büyük yardımıyla oldukça güzel oldu, ekte örneği gönderiyorum birtek eksiklik olarak #17 deki mesajda açıkladığım sorunlar kaldı. ilgilenirseniz sevinirim . ben bir combobox ekledim sayfalar çıkıyor safalara gidiyor, label ekledim comboboxta sayfayı seçince labeldede gözüküyor.geri kalanına yetemiyorum.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[eftel]

Korhan Bey,teşekkürler elinize sağlık, yanlız şöyle bir sorun cıktı ; örneğin " bireysel krediler 140.200 konut" sayfasına aynı data sayfasındaki gibi bilgileri giriyorum orada ad soyad risk numarası ve müşteri noya göre arama yapıyorum tespit kısmına veri giriyorum kaydet diyorum( kaydet demesemde aynı şey oluyor) arama verilerini siliyorum direkt listbox'a data sayfasındaki veriler geliyor. Aşagıda comboboxta sayfayı secsem bile tekrar sayfayta gitmiyor. Ellerinize sağlık çok teşekkür ederim. Tek sorun bunlar kaldı.