Combobox seçiminden listbox'a veri getirme

[heft]

Selamlar öncelikle,
Yapmak istediğim tam olarak şu;
Userform daki Comboboxtan firma adını seçtiğimde,
Listbox sadece o firmanın ürünlerini ekrana getirsin
ve
o ürünlerden birini seçtiğimde A sayfasındaki ilgili satırda seçilsin.

Yardımlarınıza şimdiden teşekkürler

 

[mraltin]

Ekteki ornegi yaptim inceleyiniz

 

[heft]

ilginize teşekkürler;
ancak tam olarak istediğimi anlatamadım sanırım.
Firma seçildiği anda o firmanın ürünleri gelecek ekrana

 

[mraltin]

dosyanizi degistirdim,Combodan secip Listele dediginizde aradiginizverileri getiriyor.Diger sorunuz Listboztan secince A hucresinde ilgili satira gecsin biraz calisip/arastirip yardimci olmaya calisicam

 

[heft]

teşekkürler
Firma adlarını comboboxtan seçiyoruz "Ok"
Peki bu adları tek gösterme şansımız yok mu?
Yani seçimde bir sürü "AAAAAAAAAAA" geliyor bunun yerine tek "A_B_C.. " gibi gelebilir mi?

İlgine teşekkür

 

[heft]

eski bir konu oldu ama...
tekrar hatırlarsam bir çözüm bulabilir miyim acaba?

 

[airborne]

ActiveCell.FormulaR1C1 = ""
ben bu konuları yeni öğrenmeye başladığım için r1c1 hangi hücreleri göstermektedir merak ettim

 

[Exelans]

R1C1 başvuru sitilidir.

 

[zafer]

Merhaba

Sayın Mraltin'in kodlarına koyu yerleri ilave ediniz.

Private Sub UserForm_Initialize()
a = WorksheetFunction.CountA(Sheets("A").Range("A2:A65536")) + 1
ListBox1.RowSource = "A!A2" & a
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;50;50;50"

For b = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & b), Cells(b, 1)) = 1 Then
ComboBox1.AddItem Cells(b, 1).Value


End If
Next

End Sub


Sayın Airborne r satır c kolon demektir yani a1 e denk gelmektedir

 

[airborne]

çok teşekkürler

 

[heft]

selam
ama bu "permission denied" hatası veriyor?