تعبئة الليست بوكس

[roross]

السلام عليكم

أريد تعبئة الليست بوكس عن طريق boucle بالدالة offset بواسطة Labc و Laba

IFERROR(OFFSET(Stock!$F$1;SUMPRODUCT((Stock!$B$2:$B$10000=B$1)*(Stock!$A$2:$A$10000=$A2)*(ROW($2:$10000)-1));0);"")

Me.ListBox1.AddItem IFERROR(OFFSET(Stock!$F$1;SUMPRODUCT((Stock!$B$2:$B$10000=Labc1)*(Stock!$A$2:$A$10000=Laba1)*(ROW($2:$10000)-1));0);"")

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = IFERROR(OFFSET(Stock!$F$1;SUMPRODUCT((Stock!$B$2:$B$10000=Labc2)*(Stock!$A$2:$A$10000=Laba2)*(ROW($2:$10000)-1));0);"")

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = IFERROR(OFFSET(Stock!$F$1;SUMPRODUCT((Stock!$B$2:$B$10000=Labc3)*(Stock!$A$2:$A$10000=Laba3)*(ROW($2:$10000)-1));0);"")

 

 

 

 

Stock.xlsm