combobox a süzülmüş veri

[fedeal]

Private Sub ComboBox1_Change()
ComboBox2.Clear
Sheets("sayfa2").Columns("Eg:Eg").ClearContents
son = Sheets("Sayfa2").[b65536].End(3).Row
For i = 3 To son
If ComboBox1.Text = Sheets("sayfa2").Cells(i, "b") Then
a = Sheets("Sayfa2").[eg65536].End(3).Row
If WorksheetFunction.CountIf(Sheets("sayfa2").Range("eg1:eg" & a), Sheets("sayfa2").Cells(i, "c")) >= 1 Then
Else
Sheets("sayfa2").Cells(a + 1, "eg").Value = Sheets("sayfa2").Cells(i, "c").Value
End If
End If
Next
For i = 2 To Sheets("SAYFA2").Range("eg65536").End(xlUp).Row
ComboBox2.AddItem Sheets("sayfa2").Cells(i, "eg")
Next
End Sub

Private Sub ComboBox2_Change()
son = Sheets("Sayfa2").[a65536].End(3).Row
For i = 3 To son
If ComboBox3.Text = Sheets("sayfa2").Cells(i, "a") And ComboBox1.Text = Sheets("sayfa2").Cells(i, "b") And ComboBox2.Text = Sheets("sayfa2").Cells(i, "c") Then
Label1.Caption = Sheets("sayfa2").Cells(i, "d").Value
End If
Next
End Sub

Private Sub ComboBox3_Change()
ComboBox1.Clear
Sheets("sayfa2").Columns("EF:EF").ClearContents
son = Sheets("Sayfa2").[a65536].End(3).Row
For i = 3 To son
If ComboBox3.Text = Sheets("sayfa2").Cells(i, "a") Then
a = Sheets("Sayfa2").[ef65536].End(3).Row
If WorksheetFunction.CountIf(Sheets("sayfa2").Range("ef1:ef" & a), Sheets("sayfa2").Cells(i, "b")) >= 1 Then
Else
Sheets("sayfa2").Cells(a + 1, "ef").Value = Sheets("sayfa2").Cells(i, "b").Value
End If
End If
Next
For i = 2 To Sheets("SAYFA2").Range("ef65536").End(xlUp).Row
ComboBox1.AddItem Sheets("sayfa2").Cells(i, "ef")
Next
End Sub

Private Sub Worksheet_Activate()
Dim son As Long, a As Long, i As Integer
ComboBox3.Clear
Sheets("sayfa2").Columns("Ee:Ee").ClearContents
Sheets("sayfa2").Columns("EF:EF").ClearContents
son = Sheets("Sayfa2").[a65536].End(3).Row
For i = 3 To son
a = Sheets("Sayfa2").[ee65536].End(3).Row
If WorksheetFunction.CountIf(Sheets("sayfa2").Range("ee1:ee" & a), Sheets("sayfa2").Cells(i, "a")) >= 1 Then
Else
Sheets("sayfa2").Cells(a + 1, "ee").Value = Sheets("sayfa2").Cells(i, "a").Value
End If
Next
For i = 2 To Sheets("SAYFA2").Range("ee65536").End(xlUp).Row
ComboBox3.AddItem Sheets("sayfa2").Cells(i, "ee")
Next
End Sub

sayfanın kodlarını üstekinlerle değiştirin.

 

[kuşak]

sayın fedeal bütün stoklarda üç farklı renk ve bu renkleri sayısal veri olarak kullandım fakat doğru envanteri vermiyor sizde incelerseniz durumu farkedersiniz. Teşekkürler