Nadia Khalil

UP للرفع

يا مسهل الحال يارب

UP للرفع

كيف أقوم بوضع هذه المعادلة في كود VBA =IF(ISERROR(VLOOKUP($B$1,RNG,8,0)),"",VLOOKUP($B$1,RNG,8,0))

أرجو من الأخوة إخباري بوضوح المطلوب من عدمه جزاكم الله خيراً

UP للرفع

السلام عليكم ورحمة الله أرجو من الأخوة مساعدتي فى كيفية كتابة كود هذا الفورم الملف المرفق به صورة توضيحية للمطلوب عمله + ملف الاكسل أعلم أن لدي مشكلة في إيضاح المطلوب - لذا ارجو ان لم يتضح ما فى الصورة أن تخبروني كي أقوم بتوضيحه مرة اخرى وآسفة لازعاجكم book1.rar

هذا هو المطلوب جزاك الله خيرا أخي طارق والشكر موصول لأخى أبو أحمد (ولد المجرب)

يالله - أكثر من رائع أخى طارق انت حكاية ولكن فقط هناك ملاحظة بسيطة: كود الترحيل فى الفورم Add2 يرجى تعديل بسيط عليه الكمية التى ترحل من شيت MRSR الى شيت Material Index (العمود K) - يتم الترحيل بنجاح فعلا ولكن ماذا اذا تم اضافة كمية أخرى من نفس الصنف بمعنى لدى صنف X وكميته وليكن 10 كجم - يتم الترحيل فى شيت Material Index بنجاح اذا قمت باضافة نفس الصنف X ولكن بكمية مختلقة وليكن 20 كجم - يقوم الكود بمسح 10 كجم وتغييرها الى 20 كجم والمطلوب هو اضافتها لتصبح 30كجم أرجو ان تكون الأمور واضحة مرة أخرى مليون شكرا ليكى أخي - ولا أنسى الأستاذ أبو احمد(ولد المجرب) على جزيئة calender

رائع أخى طارق - اكثر من رائع ملحوظة بسيطة اخي : وهي الخاصة بالترحيل من شيت MRSR الى Material index عند تجربة الكود - وجدت انه يقوم باعادة اضافة الصنف مرة أخرى الى الجدول المطلوب هو اعتماد وبناء الكود على مكان الصنف الموجود فى شيت Material Index حيث أن الصنف لا يتكرر فى الجدول بالنسية للترحيل الخاص approved أعتقد انه مناسب تماما ولكن تبقى المشكلة بأعلى طلب آخر أخى : كيف أستطيع عمل calender فى الفورم Add2 وتحديدا فى (MFG. date & EXP.Date)

هل المطلوب غير واضح أخونى مرة أخرى أرجو الافادة

طبعا اخي هانكوك حسك معايا - بارك الله فيك وشاكرة متابعتك جدا

بدلا من أن تقولي في الشيت AMRSR عند اختيار نتيجة المعمل Approved(أين نتيجة المعمل ، هل هي العمود I ، ولكنه يختار Refused وليس Rejected )يتم ترحيل كمية الخامة من عمود الـ Quarantine تقصدين العمود K في شيت MaterialIndex حيث لايوجد عمود Quarantine إلا في شيت MaterialIndexبإختصار لابد من شرح جيد لما تريدينفأنا شخصيا لم افهم جيدا المطلوبوأخشي أن أضيع وقتي ثم لايكون هو المطلوبأعذريني للصراحة ولكن قد يكون هذا هو حال باقي الزملاء أخي طارق - بصراحة عندك حق - مكنتش واخدة بالى خالص شكرا للفت النظر - كرما لا امرا - قمت بتعديل المرفق عله يفى بالايضاح المطلوب أرجو النظر فيه بارك الله فيك MRS2_new.rar

للرفع UP

وعليكم السلام ورحمة الله أخى Hankock جزاك الله خيرا على المساعدة المطلوب بالمرفقات أخي كرما لا امرا

ما شاء الله لا حول ولا قوة إلا بالله هل يمكن أخي اعلامي كيف أقوم بعمل يوزرفورم يحتوى على مكان لادخال التاريخ بشرط أن يتم الادخال فى مكان أقوم بتحديده بناء على كود على سبيل المثال لدى جدول فى النطاق C15:M24 وعمود التاريخ فى النطاق I15:I24 ولدي يوزرفورم يقوم بادخال التاريخ كل مرة يتم تشغيله فى خلية (C15, C15+1, c16+1, etc......)

أرجو من خبراء الاكسل المساعدة للأعمية للرفع

هل من مساعدة كرما لا أمرا

أخوتى الأعزاء أرجو المساعدة فى هذا الملف للأهمية جزاكم الله خيرا MRS2.rar

هذا كود ترحيل قام بإنجازه أستاذ qhq لي Sub qhq() Application.ScreenUpdating = False answ = MsgBox("åá ÊÑíÏ ÊÑÍíá ÇáÈíÇäÇÊ ÇáÊÇáíÉ", vbYesNo, " ÑÓÇáÉ ÊÃßíÏ ") If answ = 6 Then sheet2.Visible = xlSheetVisible zz = Application.WorksheetFunction.CountA([c15:c24]) - 1 xx = sheet2.Cells(Rows.Count, sheet2.[a1:a11000].Column).End(xlUp).Row + 1 yy = Sheet1.Cells(Rows.Count, Sheet1.[f6:f11000].Column).End(xlUp).Row + 1 '--------------------------------------------------------------------------- sheet2.Range(sheet2.Cells(xx, "b"), sheet2.Cells(xx + 9, "c")) = Sheet4.[c15:d24].Value sheet2.Range(sheet2.Cells(xx, "d"), sheet2.Cells(xx + 9, "i")) = Sheet4.[f15:k24].Value sheet2.Range(sheet2.Cells(xx, "k"), sheet2.Cells(xx + 9, "k")) = Sheet4.[m15:m24].Value sheet2.Range(sheet2.Cells(xx, "a"), sheet2.Cells(xx + zz, "a")) = Sheet4.[l7].Value sheet2.Range(sheet2.Cells(xx, "j"), sheet2.Cells(xx + zz, "j")) = Sheet4.[l10].Value sheet2.Range(sheet2.Cells(xx, "l"), sheet2.Cells(xx + zz, "l")) = Sheet4.[d8].Value sheet2.Range(sheet2.Cells(xx, "m"), sheet2.Cells(xx + zz, "m")) = Sheet4.[d11].Value sheet2.Range(sheet2.Cells(xx, "n"), sheet2.Cells(xx + zz, "n")) = Sheet4.[l9].Value sheet2.Range(sheet2.Cells(xx, "o"), sheet2.Cells(xx + zz, "o")) = Sheet4.[d25].Value '--------------------------------------------------------------------------- Sheet1.Range(Sheet1.Cells(yy, "g"), Sheet1.Cells(yy + 9, "h")) = Sheet4.[c15:d24].Value Sheet1.Range(Sheet1.Cells(yy, "i"), Sheet1.Cells(yy + 9, "n")) = Sheet4.[f15:k24].Value Sheet1.Range(Sheet1.Cells(yy, "p"), Sheet1.Cells(yy + 9, "p")) = Sheet4.[m15:m24].Value Sheet1.Range(Sheet1.Cells(yy, "f"), Sheet1.Cells(yy + zz, "f")) = Sheet4.[l7].Value Sheet1.Range(Sheet1.Cells(yy, "o"), Sheet1.Cells(yy + zz, "o")) = Sheet4.[l10].Value Sheet1.Range(Sheet1.Cells(yy, "q"), Sheet1.Cells(yy + zz, "q")) = Sheet4.[d8].Value Sheet1.Range(Sheet1.Cells(yy, "r"), Sheet1.Cells(yy + zz, "r")) = Sheet4.[d11].Value Sheet1.Range(Sheet1.Cells(yy, "s"), Sheet1.Cells(yy + zz, "s")) = Sheet4.[l9].Value Sheet1.Range(Sheet1.Cells(yy, "t"), Sheet1.Cells(yy + zz, "t")) = Sheet4.[d25].Value '--------------------------------------------------------------------------- [l7] = (Left([l7], 5) + 1) & "R" Range("c15:m24,l9:m9,d8:f8,d11:e11,d25:m27").ClearContents MsgBox "Êã ÚãáíÉ ÇáÊÑÍíá ÈäÌÇÍ", vbMsgBoxRight, "ÑÓÇáÉ ÊÃßíÏ" sheet2.Visible = xlSheetHidden Else MsgBox "áÞÏ Êã ÅáÛÇÁ ÚãáíÉ ÇáÊÑÍíá", vbMsgBoxRight, "ÑÓÇáÉ ÊÃßíÏ" End If End Sub المطلوب : معرفة كيف يمكن جعل هذا الكود يتجاهل الخلايا غير المحتوية على اى بيانات فى الملف الهدف sheet4 وعدم ترحيلها أو بالأدق (تجاهلها) إلى الشيت المستهدف sheet1 أو sheet 2

السلام عليكم خبراء المنتدى - هل من مساعدة ؟؟؟؟

أرجو من أهل الخبرة مساعدتي جزام الله خيرا

UP للرفع

أخى qhq - جزيل الشكر لك الترحيل أكثر من ممتاز - عبقري هل أطمع فى أكثر من ذلك الملف مرفق شاكرة للأستاذ mohd.ic المساعدة وجزاه الله خيرا MRS11.rar

أخى mohd.ic الترحيل أكثر من رائع ولكن تبقى مشكلة الترقيم المشكلة انى اريد الترقيم بصيغة معينة وهى 11001R حيث يرمز (11) الى السنة و (001) الى ترقيم مسيريل و ® يرمز الى الورقة بمعنى ان المتغير هو (001) فقط والباقى ثايت أريد ان يبدأ الترقيم ب (11001R) وبعد الترحيل يتم توليد السيريال ليصبح (11002R) وهكذا جزاك الله خيرا للمساعدة