مساعدة في ملف لقيد يومية لعمل تسلسل بشروط لصفحات اليومية العامة

[sami salem]

الأخوة الكرام

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

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

ولكم جزيل الشكر.

Kaid yomia.rar

[طارق محمود]

السلام عليكم

الشق الأول من سؤالك والخاص بتغير رقم صفحة اليومية حسب رقم القيد بالخلية C2

وحيث ان الخلية C2 مرتبطة ببيانات في الخلية IV2 والتي تأخذ بياناتها من ملف آخر عندك

فالحل أن تضع المعادلة التالية في الخلية E2

=INT((C2-1)/47)+1

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

Private Sub Workbook_Open()Private Sub Workbook_Open()

x_date = Sheets("قيداليومية").[c3].Value

[IU2].Value = x_date

End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


If Target.Column <> 3 Or Target.Row <> 3 Then Exit Sub

ttv = Target.Value

If ttv = [IU2].Value Then Exit Sub

Target.Value = [IU2].Value

Sheets("قيداليومية").Copy Before:=Sheets(1)

[IU2].Value = ttv

[c3].Value = ttv

End Sub

[طارق محمود]

وهذا المرفق وبه حل جزئي السؤال

Kaid yomia2.rar

[sami salem]

الأخ الفاضل

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

بارك الله ولكم جزيل الشكر في الرد بالحل الجميل ولكن لم أوفق في شرح الشق الثاني من السؤال لأني لا أريد انشاء صفحة يومية ولكن الشق الأول مرتبط بتغيير الشهر في الشق الثاني أي سوف يتغير التسلسل عند تغيير الشهر في التاريخ ( أسأل الله أن أكون قد وفقت في الشرح )

[طارق محمود]

السلام عليكم

ماذا تقصد بتغير التسلسل

هل تقصد أن يبدأ من (1) مثلا أم ماذا تريد أن يحدث بالضبط إذا تغير التاريخ؟

[sami salem]

السلام عليكم

ماذا تقصد بتغير التسلسل

هل تقصد أن يبدأ من (1) مثلا أم ماذا تريد أن يحدث بالضبط إذا تغير التاريخ؟

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

أسف على التعب والازعاج .

أقصد عند تغير الشهر أي الانتقال لشهر آخر في التاريخ وكان التسلسل مثلا في صفحة اليومية 2 يصبح 3 وبعد ذلك يبدأفي حساب عدد 47 قيد في الصفحة وشكراً

[طارق محمود]

السلام عليكم

جرب المرفق

Kaid yomia3.rar

[sami salem]

السلام عليكم

جرب المرفق >>>>>>>>><<<<<<<<<<<<<

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

بارك الله لك ولكافة المسلمين . بالنسبة للحل بالملف المرفق هو المطلوب ولكن توجد ملاحظة انه يجب ان يبدأ التسلسل في معادلة INT 47 بعد رقم القيد قبل تغير التاريخ بمعنى بالملف المرفق يجب أن يتغير التسلسل لصفحة اليومية عند وصول القيد 20 + 47 =67 وليس 94 لأن التسلسل الذ كان مفترض تم تغيره بمجرد تغير التاريخ حسب المرفق

Kaid yomia3.rar

[طارق محمود]

السلام عليكم

إن كنت تقصد أن يبدأ التسلسل من 1 عند تغيير التاريخ

فأضف السطر التالي إلي آخر الكود

[C2].Value = 1

ليصبح الكود كله بعد التعديل هكذا

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


If Target.Column <> 3 Or Target.Row <> 3 Then Exit Sub

m1 = Month([iu2].Value)

m2 = Month(Target.Value)


If m1 = m2 Then Exit Sub

[iu2].Value = Target.Value

[e2].FormulaR1C1 = [e2].FormulaR1C1 & "+1"

[C2].Value = 1


End Sub

تم تعديل أكتوبر 6, 2010 بواسطه TareQ M

[sami salem]

الأخ / الفاضل

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

لا لم أقصد تسلسل قيود اليومية في c2 يبدأ من 1 ولكن المقصود ( في الدالة INT ) في E2 تغير رقم الصفحة لليومية بعدد قيود 47 ومضاعفته ) .

فالرجاء عمل عند تغير رقم صفحة اليومية عند تغير التاريخ يبدأ في حساب 47 قيد من التسلسل المنتهي قبل تغيير التاريخ.

وشكراً جزيلاً

[طارق محمود]

السلام عليكم

مازلت لم افهم

إعطيني مثالا

إذا كانت C2 = 20 ، E2=2

ثم تغير لشهر في التاريخ

فما المفروض أن تكون كلا منهما

هل سيكون C2 = 67 ، E2=3

أم ماذا

[sami salem]

السلام عليكم

مازلت لم افهم

إعطيني مثالا

إذا كانت C2 = 20 ، E2=2

ثم تغير لشهر في التاريخ

فما المفروض أن تكون كلا منهما

هل سيكون C2 = 67 ، E2=3

أم ماذا

اذا تغير الشهر E2=3 ولكن C2 لاتتغير قيتها ولكن E2 متى تتغير الى رقم 4 عند احتمالين تغير الشهر او وصول C2 الى القيد رقم ( القيد عند تغيير E2 + 47 )

وشكراً

[طارق محمود]

السلام عليكم

مازلت لم افهم

أخي الكريم

أجب ببساطة علي السؤال

إذا كانت C2 = 20 ، E2=2

ثم تغير الشهر في التاريخ

فسيكون E2=3

ولكن C2

ستظل 20

أم تزيد إلي 21

أم تبدأ من 1

أم ماذا

[sami salem]

السلام عليكم

مازلت لم افهم

أخي الكريم

أجب ببساطة علي السؤال

إذا كانت C2 = 20 ، E2=2

ثم تغير الشهر في التاريخ

فسيكون E2=3

ولكن C2

ستظل 20

أم تزيد إلي 21

أم تبدأ من 1

أم ماذا

الأخ / الكريم

بالنسبة للخلية c2 فهي العداد الذي يجب تغيير E2 عليه والخليه C2 لاتتأثر بالتغيير فهي تأخذ قيمتها من خلية آخرى