Combobox seçimine ilave...

[magnesia]

Arkadaşlar tekrar merhaba.
Az önceki soruma bir ilave daha yapmak gerekti..

Az önce de dediğim gibi; GİRİŞ" butonuna bastıktan sonra açılan userformda combobox2'ye basıp firma kategorisini seçiyoruz.

İsteğim şu :

Seçimi yaptıktan sonra hemen altındaki combobox1'e basınca üstte seçtiğimiz kategoriye uygun firmaları "Firmalar" sayfasından seçip combobox1'e listelemesi..


Umarım anlatabilmişimdir...


Kısa bir örnek vereyim.


Diyelim ki Combobox2'de "Hırdavat Tedarikçilerimiz"i seçtik.
Combobox1'e bastığımızda "Firmalar" sayfası D sütunundaki firmaları listelemeli.

Şimdiden teşekkürler

 

[muygun]

Syn.ecem1989;
Bu sorunun çözümü ;
1-Sayfayı oluşturmak,
2-Userformu oluşturmak,
3-kodları yazmakla mümkün.
Bir zahmet ilk iki maddeyi siz oluşturun ve örnek dosyanızı buraya ekleyin.
Böylece isteğiniz örnek destekli anlaşılır olsun.

 

[magnesia]

İlk 2 madde zaten hazır...
Ben sadece kodları bekliyorum...
Örnek dosya çok uzun...
Temizleyip buraya konabilir hale getirmem neredeyse olanaksız..
Yine de ilginize teşekkür ederim...

 

[magnesia]

Yardım lütfen...

 

[magnesia]

Arkadaşlar yardım lütfen...

 

[magnesia]

Arkadaşlar lütfen yardım eder misiniz?

 

[PLİNT]

Merhaba
Sn muygun'un önceki konunuzda yazdığı kodlar biraz değişiklikle
"Combobox1" e veri eklemek için şöyle olabilir

Private Sub ComboBox2_Change()
m = ComboBox2.ListIndex + 2
Set s1 = ThisWorkbook.Worksheets("Firmalar")
ComboBox1.Clear
Application.ScreenUpdating = False
Set combo = CreateObject("scripting.dictionary")
For i = 2 To s1.Cells(Rows.Count, m).End(3).Row
combo.Add s1.Cells(i, m), Nothing
Next i
ComboBox1.List = Application.Transpose(combo.keys)
End Sub

Ek dosyayı inceleyiniz
http://s3.dosya.tc/server13/vge30m/deneme.zip.html

 

[magnesia]

Plint arkadaşım.
Öncelikle ilgi ve emeğinize teşekkürler..
Verdiğiniz örnek tam benim istediğim şekilde..
Ancak kodları benim userforma uyarladığımda;

"compile error..Can't find project or library" hata mesajını veriyor ve n üst satırdaki "m=" kısmı maviye boyanıyor...

 

[PLİNT]

Merhaba
Bu sorun gönderdiğim dosyada değilde kullandığınızda nasıl oldu anlayamadım,
vba penceresinden tools/references den bir bakın kutucukların yanında "MISSING" varsa kutucuğu tıklayıp deneyin
Dosyalarınızın bir örneğini; verileri silerek ekleyebilirsiniz www.dosya.tc
Şu eki de yapın

[SIZE="2"]Private Sub ComboBox2_Change()
[COLOR="Red"]dim m as long[/COLOR]
m = ComboBox2.ListIndex + 2
[/SIZE]

 

[magnesia]

Sayın Plint.
Verdiğim zahmet için öncelikle özür diliyorum.
MISSINGB_XP_Button satırının yanındaki kutucuk seçili.
Dediğiniz satırı ekledim bu sefer de "compile error..Can't find project or library" hatasını tekrar veriyor ve s1 kısmı maviye boyanıyor...

 

[PLİNT]

MISSING yazanların kutucuklarındaki tiki kaldıracaktınız Bir den fazlada olabilir.
Vba kütüphanesi dışından eklenenleri tanımlayın

Private Sub ComboBox2_Change()
[COLOR="Red"]Dim m As Long
Dim s1 As Worksheet
Dim combo As Object[/COLOR]

En azından şöyle yapın

Private Sub ComboBox2_Change()
Dim s1,combo,m,k
Dim X

veya vba sayfa başlarında
"Option Explicit" varsa silin