Listbox Bölüm Ayarları Sorunsalı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listbox Bölüm Ayarları Sorunsalı

İleti#1)  ejderha2k » 07 Ekm 2020 10:35

İyi günler ürün ağaçları ile ilgili bir çalışma yapıyorum farklı ürün gruplarım ve bunlara ait farklı nitelik bilgilerim var bu bilgileri listbox a çekerken listbox bölüm isimleri bu niteliklere göre değişiyor fakat boyutları sabit kalıyor(nasıl yapacağımı bulamadım boyut konusunu) buda sonuç olarak nitelik isimlerinin doğru gözükmesini engelliyor bu konuda ne yapmalıyım yardımcı olursanız sevinirim.

Seçtigim ürün gurubuna göre Listbox bölümlerini büyütmem mümkünmü yada farklı bir şekilde çözüm öneriniz olursa şimdiden teşekkür ediyorum

Örnek Dosya ektedir yaşadığım sorunla ilgili olarak görselleride ekledim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
The Hunter is Nothing Without the Hunt
Kullanıcı avatarı
ejderha2k
 
Kayıt: 05 Ağu 2020 16:07
Meslek: emekli
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#2)  Ali ÖZ » 07 Ekm 2020 14:21

Merhaba,
Veri aldığınız sütun genişliğini listbox sütun genişliği olarak ayarlayabilirsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10221
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#3)  ejderha2k » 07 Ekm 2020 16:58

Teşekkür ederim Ali bey , sitede vermiş olduğunuz bilgi ile alakalı bir kod buldum umarım halledebilirim.
The Hunter is Nothing Without the Hunt
Kullanıcı avatarı
ejderha2k
 
Kayıt: 05 Ağu 2020 16:07
Meslek: emekli
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#4)  ejderha2k » 16 Ekm 2020 19:48

İyi günler bir önceki problemi listeyi ufaltarak çözdüm ama şu an için yeni bir sorunum var arama kriteri olarak "sku" secilince liste düzgün cıkıyor ama arama kriteri olarak ölcü yada model secip buna göre arama yaparsam listboxdaki itemlerin yeri kayıyor bu konuda yardımcı olursanız sevinirim örnek dosya ektedir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
The Hunter is Nothing Without the Hunt
Kullanıcı avatarı
ejderha2k
 
Kayıt: 05 Ağu 2020 16:07
Meslek: emekli
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#5)  Miraç CAN » 17 Ekm 2020 13:12

TextBox1_Change olayında ki ListBox1.AddItem kodlarınızı düzelttim.
Sütunlardaki boş satırlardan dolayı .End(xlToLeft) doğru sonuç almanızı engelliyor.

Kod: Tümünü seç
        With Sheets(ComboBox1.Text)
            ListBox1.AddItem .Cells(Bul.Row, 1).Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Bul.Row, 9).Value
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Bul.Row, 10).Value
            ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Bul.Row, 11).Value
            ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(Bul.Row, 13).Value
            ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(Bul.Row, 14).Value
            ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(Bul.Row, 15).Value
            ListBox1.List(ListBox1.ListCount - 1, 7) = .Cells(Bul.Row, 16).Value
            ListBox1.List(ListBox1.ListCount - 1, 8) = .Cells(Bul.Row, 17).Value
        End With

Hatta şu şekilde daha da kısaltabiliriz kodları.
Kod: Tümünü seç
        With Sheets(ComboBox1.Text)
            ListBox1.AddItem .Cells(Bul.Row, 1).Value
            For Rw = 1 To 8
                ListBox1.List(ListBox1.ListCount - 1, Rw) = .Cells(Bul.Row, Rw + IIf(Rw < 4, 8, 9)).Value
            Next Rw
        End With
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 744
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#6)  Miraç CAN » 17 Ekm 2020 13:17

Böyle daha sade oldu: ;;_)
Kod: Tümünü seç
        With Sheets(ComboBox1.Text).Cells(Bul.Row, 1)
            ListBox1.AddItem .Value
            For Rw = 1 To 8
                ListBox1.List(ListBox1.ListCount - 1, Rw) = .Offset(, Rw + IIf(Rw < 4, 7, 8)).Value
            Next Rw
        End With
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 744
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listbox Bölüm Ayarları Sorunsalı

İleti#7)  ejderha2k » 17 Ekm 2020 14:55

Miraç Bey elinize sağlık , teşekkür ederim sorunsuz çalışıyor.
The Hunter is Nothing Without the Hunt
Kullanıcı avatarı
ejderha2k
 
Kayıt: 05 Ağu 2020 16:07
Meslek: emekli
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe