ي البداية أعتذر على التأخر في الرد وذلك لسبب توقف النت عندي
سيدي الفاضل وأستاذي الكريم
الطلب هو كالتالي
الفورم التي أريدها
تحتوي على كومبوكس مجرد ما أجخل الكود
تظهر كل بيانات ذلك الكود بدون شرط يعني قاعدة البيانات تحتوي عل 20 حالة للكود المدخل تأتي20 حالة بعكس الفورم الول الذي يأتي ب 5 حالات يعني نزع كل الشروط
If Val(.Cells(i, 19)) < 5 Then GoTo 1
ينزع هذا الشرط
أما الأعمدة فالمقصود هو NdAry(1, ii) = .Cells(i, 1).Value
NdAry(2, ii) = .Cells(i, 2).Value
NdAry(3, ii) = .Cells(i, 19).Value
NdAry(4, ii) = .Cells(i, 4).Value
NdAry(5, ii) = .Cells(i, 5).Value
نفسها تظهرفي اللسصت بوكس