ترحيل بيانات من ورقة الى أوراق بنفس الشيت

[samycalls2020]

السلام عليكم 

برجاء التكرم والمساعدة في عمل ماكرو ترحيل بيانات من ورقة الحركة الى الـ 14 ورقة الأخرى على أساس (المادة) لسبع ورقات بالمجموعة

الزرقاء وعلى أساس (اليوم) لسبع ورقات أخرى بالمجموعة الحمراء ويكون الترحيل مرتب حسب التاريخ  ( التسلسل الزمنى ) وبدون اسطر فارغة .

كل الشكر والتقدير

دروس.xlsm

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub TrData()
Dim Sh As Worksheet, ws As Worksheet
Dim LR As Long, i As Long
Dim ShNam As String, Arr As Variant
Dim Temp As Variant, j As Long, p As Long
Set Sh = Sheets("الحركة")
LR = Sh.Range("D" & Rows.Count).End(3).Row
Arr = Sh.Range("C5:K" & LR).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For Each ws In Worksheets
If ws.Name <> Sh.Name Then
ShNam = ws.Name
For i = 1 To UBound(Arr, 1)
If Arr(i, 2) = ShNam Or Arr(i, 5) = ShNam Then
p = p + 1
For j = 1 To 9
Temp(p, j) = Arr(i, j)
Temp(p, 1) = p
Next
End If
Next
Sheets(ShNam).Range("C5").Resize(p, UBound(Temp, 2)).Value = Temp
End If
p = 0
Next
End Sub

 

[samycalls2020]

أ/ إبراهيم .. السلام عليكم

شكرا للتواصل والمساعدة

قمت بتطبيق الكود وقام الكود بالترحيل الى أور اق المواد الدراسية ذات اللون الأزرق ولكنه أعطى رسالة بمشكلة ما وهذه صور لها

وأيضا لم يقوم الكود بالترحيل الى أوراق الأيام ذات اللون الأحمر.

 

[ابراهيم الحداد]

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

اخى الكريم معذرة فقد كنت فى عجلة من امرى

سقط منى سهوا ان انبهك بتغيير اسماء الشيتات التى تسمى حسب ايام الاسبوع 

كما هى مكتوبة فى عمود الايام بشيت الحركة 

يستحسن التغيير بنسخ اليوم من عمود الايام و لصقه فى تعديل اسم الشيت بدلا من كتابته

عن طريق الكيبورد لضمان دقة تنفيذ الكود

هذا و  الله ولى التوفيق

[samycalls2020]

تمام أ / إبراهيم الكود يعمل . . الله يبارك فيك

ولو سمحت لي بإضافة ورقتين على أساس أسماء الطلاب محمود ومصطفى وده أخر طلب

فكيف يتم تعديل الكود

دروس1.xlsm

[ابراهيم الحداد]

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

استبدل هذه العبارة :

If Arr(i, 2) = ShNam Or Arr(i, 5) = ShNam Then

بهذه العبارة :

If Arr(i, 2) = ShNam Or Arr(i, 4) = ShNam Or Arr(i, 5) = ShNam Then

 

[samycalls2020]

بسم الله والصلاة والسلام على رسول الله

أ / إبراهيم .. السلام عليكم .. عند التطبيق وأستخدم الملف

لم يقبل الكود مسح أو تغير هذه البيانات في هذه الخلايا وذلك لكى أتمكن من كتابة البيانات الحقيقية الخاصة بي

تغير بيان معين أو بعض البيانات أحياناً يكون أمر ضروري لأسباب مختلفة

أ / إبراهيم .. أذكر أنى قلت أن إضافة ورقتين على أساس أسماء الطلاب محمود ومصطفى أخر طلب لي

ولكني وجدت أن المصلحة لي ولغيرى تتطلب أن أتكلم عن هذا الأمر

وهذه صورة الخلايا والبيانات التي لا تقبل المسح أو التغير

كل الشكر والتقدير والاحترام

 

[ابراهيم الحداد]

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

اخى الكريم . هل تريد كود بمسح البيانات فى ورقة الحركة

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

و بالاسلوب العادى يمكن مسح البيانلت بسهولة

و ان كنت تقصد ان يقوم الكود بمسح البيانات بعد الترحيل لابد من تعديل الكود السابق

لتسجيل بيانات اخرى يتم ترحيلها تواليا يرجى توضيح ذلك بدقة حتى لا تبذل جهود بلا فائدة

 

[samycalls2020]

أستاذي الكريم .. وعليكم السلام ورحمة الله

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

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

فرفض الكود العمل عند تغير البيانات في الخلايا من D5 إلى D11 فمثلا D5 مادة أحياء إذا غيرتها بماده أخرى لا يعمل الكود

وكذلك من G5 إلى G11 لو غيرت اسم يوم بيوم أخر لا يعمل الكود وكذلك في F

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

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

الخلاصة : الكود تمام ويعمل جيدا ..بارك الله فيك . . ولكن كل المطلوب أن الخلايا المذكورة استطيع التعديل عليها كباقي الخلايا في ورقة الحركة

دون اعتراض وتوقف الكود .

دروس3.xlsm

[ابراهيم الحداد]

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

ضع هذه العبارة

On Error Resume Next

قبل هذا السطر

Sheets(ShNam).Range("C5").Resize(p, UBound(Temp, 2)).Value = Temp

 

[samycalls2020]

الحمد لله الذى بنعمته تتم الصالحات

شكر وعرفان للأستاذ / إبراهيم الحداد . . على هذا المجهود العظيم 

إن لله عبادا اختصهم بقضاء حوائج الناس حببهم إلى الخير وحبب الخير إليهم

أسأل الله العلى القدير أن نكون منهم

حفظك الله وسدد خطاك