توزيع مواد الرسوب

[محمد يوسف محمد1]

السلام عليكم

بالملف المرفق

اريد توزيع مواد الرسوب فى العمود المناسب

بمعنى اكتب العربى فى خانة العربى وبالمثل فى باقى المواد

مصنف1.rar

تم تعديل مايو 31, 2014 بواسطه محمد يوسف محمد1

[رجب جاويش]

وعليكم السلام ورحمة الله وبركاته

أستاذى الفاضل محمد

تفضل ما تريد

عن طريق كود

Sub ragab()
Application.ScreenUpdating = False
[E2:R30].ClearContents
For i = 2 To 30
MyArr = Trim(Cells(i, 4))
    For Each cl In [E1:R1]
       x = UBound(Filter(Split(MyArr, ","), cl)) + 1
       If x > 0 Then Cells(i, cl.Column) = cl
    Next
Next
Application.ScreenUpdating = True
End Sub

مصنف2.rar

[محمد يوسف محمد1]

كود جميل يا أستاذ رجب

كود جميل بس كل المواد تم ترحيلها عدا الاحياء

[محمد يوسف محمد1]

الكود تمام كان هناك اختلاف بين كلمة أحياء فى رأس عمود الاحياء ونفس الكلمة فى عمود مواد الرسوب

الله ينور عليك

شاكرين أفضالكم

[ايمن ريا]

السلام عليكم : فيه مسافة في الخلية J1 قبل كلمة أحياء ، امسح المسافة .

[محمد يوسف محمد1]

السلام عليكم : فيه مسافة في الخلية J1 قبل كلمة أحياء ، امسح المسافة .

شكرا على تعقيبكم تم عمل اللازم

[رجب جاويش]

أستاذى الفاضل / محمد يوسف

تفضل آخر بالمعادلات

 

مصنف3.rar

[أبو إيمان]

السلام عليكم ورحمة الله وبركاته

ترددت كثيرا لعرض مشاركتي هذه حيث قام الأستاذ رجب جاويش بعمل ما يكفي من خلال الأكواد وكما تعودنا منه أعمال مميزة  وأيضا من خلال المعادلات

لكنى كنت بدأت البحث عن معلومات تفيدنى في الحل

وإثراءا ً للموضوع اقدم هذا الحل بعد إذن أستاذنا القدير رجب جاويش جزاه الله خيرا

توزيع مواد الرسوب002.rar

[رجب جاويش]

أخى الحبيب / أبو إيمان

معادلة ممتازة

تسلم ايديك

[محمد يوسف محمد1]

أحبائى بارك الله لكم

على فكرة انا لى يومين بأحاول اعمل معادلة ولما غلبت لم أجد سواكم كعادتكم اتعلم منكم

جعله الله فى ميزان حسناتكم

[هانى الصفتى]

جزاكم الله كل خير

[أبو إيمان]

أستاذنا القدير / رجب جاويش هذة المعادلة تم استخدامها بفضل من الله وتوفيق منه وجلبها من ملف من المنتدى الكريم وهذا بفضل تشجعكم للمبتدئين أمثالي 

الأستاذ محمد يوسف نتمنى لك التوفيق في عملك

الأستاذ هاني نتمنى لك مزيد من التقدم