ListBox'lar arası aktarımı

[imdatsaral]

Arkadaşlar,
ListBox'lar arası veri aktarımı ile ilgili bir sorunum var. ekteki dosyada ListBox3= müşteri, ListBox2=mode, ListBox1=sipariş olmasını istiyorum. ListBox3 müşteri listesinii alabiliyorum. ama oluşan listededen müşteriyi seçtiğimde ListBox2 de müşteriye ait modelleri listelemesini istiyorum yapamadım yardımcı olursanız sevinirim

İmdat saral
İzmir

 

[imdatsaral]

sorumu tam olarak anlatamadın sanırsam. ListBox dasüzme ile ilgili örnek çalışmalara baktım beni aştığını gördüm yapılan örnek çalışmaları kendi çalışma sayfama uyarlayamadım.
yardımcı olursanız sevinirim

 

[mrttrn]

Sn imdatsaral bir şeyler yapmaya çalıştım. İlk önce Listbox3 kutusuna Usrform.Initialize de OTTO ve KAPPA yükledim.

Private Sub ListBox3_Change() yeniden düzenledim.
İnşallah işinize yarar.
İyi çalışmalar.

Private Sub ListBox3_Change()
Dim seçilen_müş, aa
Dim toplam_sipariş_sayısı As Integer
Dim müşterim As Range
seçilen_müş = ListBox3.Value
Sheets("Sipariş").Select

On Error Resume Next 'B sutunundaki hücreleri saydık.
toplam_sipariş_sayısı = WorksheetFunction.CountA(Sheets("Sipariş").Range("B:B")) - 8
 For Each müşterim In Sheets("Sipariş").Range("B9:B" & toplam_sipariş_sayısı)
   If seçilen_müş = müşterim Then
     a = müşterim.Row 'bulunan Müşterinin bulunduğu satır no
      ListBox1.AddItem (Sheets("Sipariş").Cells(a, "A") & " - " & Sheets("Sipariş").Cells(a, "C") & " - " & Sheets("Sipariş").Cells(a, "D"))
   End If
   a = a + 1
 Next
end sub

 

[Tarkan VURAL]

Private Sub ListBox1_Click()
ListBox2.Clear: ListBox3.Clear
For i = 9 To Sheets("Sipariş").Range("a65536").End(3).Row
If Sheets("sipariş").Cells(i, "b").Value = ListBox1.Value Then
ListBox2.AddItem Sheets("sipariş").Cells(i, "c").Value
End If
Next i
End Sub

Private Sub ListBox2_Click()
ListBox3.Clear
For i = 9 To Sheets("Sipariş").Range("a65536").End(3).Row
If Sheets("sipariş").Cells(i, "b").Value = ListBox1.Value And _
Sheets("sipariş").Cells(i, "c").Value = ListBox2.Value Then
ListBox3.AddItem Sheets("sipariş").Cells(i, "p").Value
End If
Next i
End Sub

Private Sub UserForm_Initialize()
Dim son As Long, a As Long, i As Integer
son = Sheets("Sipariş").[B65536].End(3).Row
For i = 9 To son
a = Sheets("sipariş").[ee65536].End(3).Row
If WorksheetFunction.CountIf(Sheets("sipariş").Range("ee1:ee" & a), Sheets("sipariş").Cells(i, "b")) >= 1 Then
Else
Sheets("sipariş").Cells(a + 1, "ee").Value = Sheets("sipariş").Cells(i, "b").Value
End If
Next
Sheets("sipariş").Select
Columns("EE:EE").Sort Key1:=Range("EE1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ListBox1.RowSource = "Sipariş!EE1:EE" & Sheets("Sipariş").Cells(65536, "EE").End(xlUp).Row
Sheets("PartiKesim").Select
End Sub

 

[imdatsaral]

mrttrn ve Tarkan VURAL yardımlarınız için teşekkür ederim. emeğiniz bilginize sağlık