[Yardım]  Eşleştirme

Verilerinizi listeleyebileceğiniz liste kutusu

Eşleştirme

İleti#1)  cherkesresit » 13 Eyl 2018 00:36

Öncelikle forumda yeniyim.. Güzel bir site emeği geçen herkese çok teşekkür ederim.
Benim sorum şu...
Listbox1 içerisinde diyelim ki 3 tane sayı var (100,101,102) gibi...
Listbox2 içerisinde de diyelim ki 4 tane sayı var (50,51,52,53) gibi...
Yapmak istediğim şey Listbox3 içerisine veya sayfaya

(100x50)
(100x51)
(100x52)
(100x53)
(101x50)
(101x51)
(101x52)
(101x53)
(102x50)
(102x51)
(102x52)
(102x53)
gibi eşleştirme yaptırmak istiyorum...

Not: Sayfaya Olursa...
A1 B1 C1
100 x 50
100 x 51
.
.
. gibi olması...

Yardımlarınız için şimdiden teşekkür ederim...
Kullanıcı avatarı
cherkesresit
 
Kayıt: 12 Eyl 2018 19:08
Meslek: teknik öğretmen
Yaş: 42
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Eşleştirme

İleti#2)  elfinito » 13 Eyl 2018 09:46

Merhaba,

Aşağıdaki kodu Userform üzerine 3 adet listbox yerleştirip denedim, sanırım istediğinizi tam olarak karşılıyor, deneyiniz. İyi çalışmalar.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
    For x = 0 To ListBox2.ListCount - 1
        ListBox3.AddItem ListBox1.List(i, 0) & " X " & ListBox2.List(x, 0)
    Next x
Next i
End Sub
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Eşleştirme

İleti#3)  cherkesresit » 13 Eyl 2018 12:31

Çok teşekkür ederim sayın "elfinito", istediğim sonucu veriyor.
Yalnız bunu listbox3'ün kolonlarına yazmak istersek nasıl yazmalıyız...

Listbox3

kolon1 kolon2 kolon3
101 x 51
.
.
. gibi

tekrar teşekkürler...
Kullanıcı avatarı
cherkesresit
 
Kayıt: 12 Eyl 2018 19:08
Meslek: teknik öğretmen
Yaş: 42
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Eşleştirme

İleti#4)  elfinito » 13 Eyl 2018 12:46

Rica ederim, aşağıdaki gibi deneyiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

ListBox3.Clear
ListBox3.ColumnCount = ListBox1.ListCount

For i = 0 To ListBox1.ListCount - 1
    For X = 0 To ListBox2.ListCount - 1
        ListBox3.AddItem
        ListBox3.List(i, X) = ListBox1.List(i, 0) & " X " & ListBox2.List(X, 0)
    Next X
Next i

End Sub
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

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

Cevap: Eşleştirme

İleti#5)  cherkesresit » 13 Eyl 2018 13:40

Çok teşekkür ederim sayın "elfinito" aslında bu da işimi görüyor, yalnız, ayrı ayrı kolon1'e 100,... kolon2'ye X,.. ve kolon3'e 50,... yazdırmam yeterli olacak.

Kusura bakmayın, zahmet veriyorum,

Tekrar teşekkür ederim.
Kullanıcı avatarı
cherkesresit
 
Kayıt: 12 Eyl 2018 19:08
Meslek: teknik öğretmen
Yaş: 42
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Eşleştirme

İleti#6)  elfinito » 13 Eyl 2018 14:56

Estağfurullah, anladığım kadarıyla aşağıdaki gibi düzenledim, deneyiniz. İyi çalışmalar.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

ListBox3.Clear
ListBox3.ColumnCount = 3

a = 0
For i = 0 To ListBox1.ListCount - 1

    For X = 0 To ListBox2.ListCount - 1
        ListBox3.AddItem
        ListBox3.List(a, 0) = ListBox1.List(i, 0)
        ListBox3.List(a, 1) = "X"
        ListBox3.List(a, 2) = ListBox2.List(X, 0)
        a = a + 1
    Next X

Next i

End Sub
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Eşleştirme

İleti#7)  cherkesresit » 13 Eyl 2018 15:56

Sayın "elfinito" çok teşekkür ederim, zahmet verdim, elinize emeğinize sağlık, istediğim sonuç budur...
Kullanıcı avatarı
cherkesresit
 
Kayıt: 12 Eyl 2018 19:08
Meslek: teknik öğretmen
Yaş: 42
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum ListBox

Online Kullanıcılar

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

Bumerang - Yazarkafe