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

[علي الشيخ]

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

اتمنى ان شاء الله تكونوا جميعا بالف خير

والله يجزاكم خير مقدما على مساعدتكم

مشكلتي انى عندي برنامج فيه شئ انا مش عارف اعمله

وهو ان عندى 30 شيت خاصة بال30 يوم في الشهر

كل يوم له شيت

وعندى عدد من الموردين ولنفترض انهم 3 لكل مورد شيت

اللى انا عاوز اعمله هو ان في اليوم الاول مثلا اعمل ادخالات لكل الاصناف اللى وصلت من الموردين دول

سواء التلاته قاموا بالتوريد او واحد بس مهما يكن

عاوز بعد ما يتم التوريد وادخال الاصناف بكمياتها في الشيت بتاع اليوم الاول بكتب انا جنبه اسم المورد اللى جاب الصنف لي

وانا عاوزه يترحل تلقائيا لصفحة المورد بتاعه

انا قدرت اعمل كده مع اليوم الاول فقط انما لما ادخل على اليوم التانى عاوز اضيف اصناف جديدة تخص اليوم وفى نفس الوقت تترحل اتوماتيكا لشيت المورد كل حسب اصنافه

=========

دى مشكلة واقفة عقبة في البرنامج بتاعي

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

مع العلم ان الادخالات اللى هتكون في الشيتات الثلاثين مش همسحها هتفضل بداخله

========

يعنى الشرط في الترحيل هو هيكون اسم المورد

وانا اعمل على اوفيس 2010

انا ارفقت ملف مصغر للى عاوزه بالظبط فيه الشيتات من 1 - 30 وهى الخاصة بالادخالات

وعملت 3 شيتيات للموردين

اتمنى اكون قدرت اوصل مشكلتي ويتم حلها باذن الله والله يكركم

Book1.rar

تم تعديل أكتوبر 5, 2012 بواسطه A.El Sheikh

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Sub ali_Sh()

On Error Resume Next

Dim Sh As Worksheet

Dim Rn As Range

With Application

.ScreenUpdating = False

.EnableEvents = False

A = ActiveSheet.Name

For Each Sh In ThisWorkbook.Worksheets

With ActiveSheet

For Each Rn In .Range("K3:K" & .Cells(Rows.Count, 11).End(xlUp).Row)

If Rn = Sh.Name Then

.Range("C" & Rn.Row).Copy

Sh.Select

Sh.Cells(Sh.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row, "C").PasteSpecial xlPasteValues

Sheets(A).Select

End If

Application.CutCopyMode = False

Next

End With

Next

.ScreenUpdating = True

.EnableEvents = True

End With

End Sub

Book1_A.rar

تم تعديل أكتوبر 5, 2012 بواسطه عباد

[علي الشيخ]

ما شاء الله تبارك الله

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

ضبط معايا وهو اللى انا محتاجة وبجد الله يزيدك علم الكود فيه مرونه اضفت موردين واضفت ايام وبيشتغل بشكل مثالي الله يسعدك

دعواتي واحترامي لك ولاهل اليمن الحبيب ربنا يكرمك