bulduklarımı listboxa atma

[k.guclu]

Merhaba arkadaşlar,

Bir form yaptım bir textbox1, label1 ve listbox1' den oluşuyor.

Amacım textboxta yazdığım kelime veya cümleyi sayfa1'de ki "B"
sütunundan bulup listboxa ekleyecek ve label1'e kaç adet bulduğunu yazacak.

Burada en büyük sıkıntım cümle içindeki kelimeleride listelemek istemem.

Örnek:
Fayans lavabo-1
Fayans lavabo-2
Eviye, Fayans -1
Sabunluk, Fayans-1


Yukarıda yazdıklarım gibi Sayfa1'in B sütununda çok ifadeler var. Ben Texbox1'e Fayans yazdığımda yukarıdaki gibi cümlenin içinde olsada listbox1'e eklemesini istiyorum.

SAYGILARIMLA ÜSTATLARA

 

[Necdet]

Merhaba,

TextBox a yazdığınız sözcük parçasını 1. sayfada arar ve ListBoxa getirir.
Aşağıdaki kod excelin kendi yardımından alınmış bir koddur, benim buna eklemem sadece aranan sözcüğü yazmak ve ListBoxa getirmek oldu Kırmızı olarak yazılanlar.

Private Sub CommandButton1_Click()
Dim c As Range
ListBox1.Clear
If TextBox1.Value = "" Then Exit Sub
With Worksheets(1).Range("B:B")
    Set c = .Find([COLOR=red][B]TextBox1.Value[/B][/COLOR], LookIn:=xlValues, [B][COLOR=red]LookAt:=xlPart[/COLOR][/B])
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            [COLOR=red][B]ListBox1.AddItem Worksheets(1).Cells(c.Row, "B")
[/B][/COLOR]            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

 

[k.guclu]

Sağol

üstat gönderdiğini şimdi inceleme imkanım oldu. Çok teşekkür ederim. Tam istediğim gibi ..
Tekrardan çok teşekkür ederim.

Üstat nerden aldığını biraz açarsan hangi yardımın hangi kısmında yazıyor. Bilgi verirsen lüzumsuz yere sorular yöneltmemiş oluruz.

ÇOK TEŞEKKÜRLER.
SAYGILARIMLA

 

[Necdet]

Merhaba,

Ben ne öğrendiğiysem çoğunu excelin yardım menüsünden öğrendim. Gerçekten excelin yardımı çok güçlü. Yukarıdaki kodları da VBA'nın yardım menusünden aldım. Her seferinde yeniden kodları yazmaktansa oradan alıp hemen kullanıyorum find diye arattırırsanız sizde rahatlıkla erişebilirsiniz.

 

[k.guclu]

üstat bu yardımın türkçesi varmı dediğiniz gibi yaptım bir çokşey buldu sizin bana gönderdiğiniz kodlarla alakalı bir not göremedim.

Üstat ben bu işi beceremedim. Resim olarak göndermen mümkün mü?
Anlayışısızlığımı hoş gör.

 

[ik]

necdet bey;

bu kod işime yaradı. ancak bir konum daha var. ürünlerimiz A ve B sütününda listeli. ben B sütününde bulunan ürün adına göre arama yaptırıyorum. A kolonunda ise bu ürünün stok kodu var. isterim ki listboxa (aynı listbox içinde) ürünün kodu ve adedini yan yana görmek istiyorum.

Ayrıca Ürünü seçtiğimde sadece ürünün adının textbox4 'e gitmesini istiyorum.

Ürünler birbirine çok benzer tanımlar içerdiği için ürünü seçemeden önce ürün kodundan kontrol ederek sonra ürünü seçmek istiyorum ki yanlış ürün seçilmesin

Şimdiden teşekkürler

 

[Necdet]

üstat bu yardımın türkçesi varmı dediğiniz gibi yaptım bir çokşey buldu sizin bana gönderdiğiniz kodlarla alakalı bir not göremedim.

Üstat ben bu işi beceremedim. Resim olarak göndermen mümkün mü?
Anlayışısızlığımı hoş gör.

Malesef VBA daki yardımın dili İngilizcedir.

 

[Necdet]

necdet bey;

bu kod işime yaradı. ancak bir konum daha var. ürünlerimiz A ve B sütününda listeli. ben B sütününde bulunan ürün adına göre arama yaptırıyorum. A kolonunda ise bu ürünün stok kodu var. isterim ki listboxa (aynı listbox içinde) ürünün kodu ve adedini yan yana görmek istiyorum.

Ayrıca Ürünü seçtiğimde sadece ürünün adının textbox4 'e gitmesini istiyorum.

Ürünler birbirine çok benzer tanımlar içerdiği için ürünü seçemeden önce ürün kodundan kontrol ederek sonra ürünü seçmek istiyorum ki yanlış ürün seçilmesin

Şimdiden teşekkürler

Merhaba, Dosyayı inceleyiniz.

Yukarıdaki kodlar arasındaki farkı renklendirdim.

Private Sub CommandButton1_Click()
Dim c As Range
[COLOR=red]Dim i As Long[/COLOR]
i = 0
ListBox1.Clear
[COLOR=red]ListBox1.ColumnCount = 2[/COLOR]
[COLOR=red]ListBox1.ColumnWidths = 40 & ";" & 60[/COLOR]
 
If TextBox1.Value = "" Then Exit Sub
With Worksheets(1).Range("B:B")
    Set c = .Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ListBox1.AddItem
                ListBox1.Column(0, i) = Worksheets(1).Cells(c.Row, "A")
                ListBox1.Column(1, i) = Worksheets(1).Cells(c.Row, "B")
            i = i + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Listboxta çift tıklama ile çalışan kod

[COLOR=red]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)[/COLOR]
[COLOR=red]TextBox4 = ListBox1.Column(0)[/COLOR]
[COLOR=red]End Sub[/COLOR]

 

[ik]

necdet bey;

teşekkürler. ayrıca sizden ricam aşağıdaki linki incelerseniz sevinirim.
,http://www.excel.web.tr/f48/listbox-dan-textbox-a-coklu-veri-aktar-m-t68493.html#post372522