بيان بخطابات الضمان

[محمد دياب]

قمت بإنشاء بيان بخطابات الضمان الصادرة خلال العام بجميع انواعها ( الابتدائى والدفعة المقدمة والنهائى ) وذلك فى شيت واحد ثم انشأت ثلاث شيتات كل شيت بنوع من هذه الخطابات واريد عند تسجيل خطابات الضمان فى شيت الاجمالى ان ينتقل كل خطاب مباشرة الى الشيت الخاص به وايضا يتم تغيير لون الصف عند كتابة تاريخ الرد فى البنك ......... مرفق الملف المراد العمل عليه

خطابات الضمان 2018.rar

[سليم حاصبيا]

جرب هذا الملف

الكود

Option Explicit
Sub copy_data()

Dim i%, My_Str$: My_Str$ = "OK"
Dim My_SH As Worksheet
Dim Source_Sh As Worksheet: Set Source_Sh = Sheets("الاجمالى")

Dim lr As Long: lr = Source_Sh.Cells(Rows.Count, 2).End(3).Row
If lr < 6 Then lr = 6
Dim lr2 As Long

 For i = 6 To lr
   If Source_Sh.Cells(i, "GR") <> My_Str Then
  Set My_SH = Sheets(Source_Sh.Cells(i, 2) & "")
  lr2 = My_SH.Cells(Rows.Count, 2).End(3).Row + 1
   My_SH.Cells(lr2, 2).Resize(1, 19).Value = Source_Sh.Cells(i, 2).Resize(1, 19).Value
  Source_Sh.Cells(i, "GR") = My_Str
  End If
  Next
End Sub

الملف مرفق

 

خطابات Salim.xls

[Ali Mohamed Ali]

ولإثراء الموضوع جرب هذا

 

خطابات الضمان 2018.xls

[محمد دياب]

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

1- عند فتح ملف الاستاذ سليم اوالاستاذ على وعند القيام بتسجيل اى خطابات ضمان جديدة تظهر لى رسالة خطأ كما هو مبين فى المرفق

2- فى رد الاستاذ سليم اخبرنى ان استعمل الكود المكتوب فى الرد ولكن لااعلم كيف استخدمه

فبرجاء توضيح كيفية التسجيل فى الملف وكيفية استخدام الكود

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

خطابات الضمان 2018.rar

[سليم حاصبيا]

تم معالجة الامر 

المشكلة انك تكتب اسم الشيت بشكل مختلف عن اسمها الحقيقي(تزيد او تنقص مسافات) او تكتب مع الاسم ال التعريف

اختر اسم الشيت من القائمة المنسدلة(في العامود B من الصفحة Main ولا تكتبه  كتابة(ذلك يضمن ان الاسم مطابق تماماً)

تم تغيير اسم الشيت الاول الى Main لحسن عمل الكود

اذا اردت ان تعيد نسخ صف ما  (اذا ورد فيه اخطاء مثلاً ) مرة ثانية (قم بمسح كلمة "OK"  من العامود GR من نفس الصف)

الكود

Option Explicit
Sub copy_data()

Dim i%, My_Str$: My_Str$ = "OK"
Dim My_SH As Worksheet
Dim Source_Sh As Worksheet: Set Source_Sh = Sheets("Main")

Dim lr As Long: lr = Source_Sh.Cells(Rows.Count, 2).End(3).Row
If lr < 6 Then lr = 6
Dim lr2 As Long

 For i = 6 To lr
   If Source_Sh.Cells(i, "GR") <> My_Str Then
  Set My_SH = Sheets(Source_Sh.Cells(i, 2) & "")
  lr2 = My_SH.Cells(Rows.Count, 2).End(3).Row + 1
   My_SH.Cells(lr2, 2).Resize(1, 19).Value = Source_Sh.Cells(i, 2).Resize(1, 19).Value
  Source_Sh.Cells(i, "GR") = My_Str
  End If
  Next
End Sub

الملف

 

خطابات الضمان 2018 Salim.xls

[محمد دياب]

شكرا جزيلا الاستاذ سليم احاول ان اتعامل مع الملف ولكن لى استفسار صغير

اولا :اذا اردت ان احذف صف ما فماذا افعل ؟ ( حذف وليس تعديل )

ثانيا : بفرض ان السنة انتهت واريد ان اسجل بيانات السنة الجديدة هل اقوم بعمل كوبى من الفايل القديم وتفريغه ؟

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

تم تعديل مارس 15, 2018 بواسطه محمد دياب

[سليم حاصبيا]

لحذف اي صف     كبسة يمين على رقم الصف  تظهر لك قائمة اختر منها حذف(delete)

لا انصحك بالحذف أو اضافة اي صفوف (في الورقة   Main خصوصاً الصفوف من 1 الى 8 )اذ ربما ذلك أثر سلبًا على عمل  الكود (يمكنك مسح محتويات الصف و ذلك بتحديد الخلايا  في هذا الصف ثم كبسة Delete

لا نتس ان تزيل كلمة OK من العامود GR في نفس الصف لاعادة نسخه الى الورقة المطلوبة

اكسل يضيف هذه الكلمة(OK ) في العامود (GR) اوتوماتيكياُ لكل صف تمت عملية نسخة من اجل عدم تكرراها

بالنسبة للسؤال الثاني يمكنك فعل ذلك

تم تفريغ الجداول بانتظار تعبئة البيانات

 

 

خطابات الضمان 2018 Salim1.xls

[محمد دياب]

 بارك الله فيكم واعذرونى على كثرة الاسئلة ولكن هناك مشكلة ظهرت بعد التعديلات الاخيرة وهى اذا اردت التعديل على اى خلية فى اى صف فى البيان ثم الضغط على Transfer الاحظ ان البرنامج يقوم بنقل الصف بعد التعديل فى صف آخر فى الشيت الذى يخصه ويترك الصف الذى حدث فيه التعديل كما هو على وضعه الاول ومرفق ذلك فى بيان خطابات الضمان الابتدائى 

خطابات الضمان 2018.rar

تم تعديل مارس 18, 2018 بواسطه محمد دياب

[محمد دياب]

السلام عليكم 

ارجو الرد سريعا لان عندى خطابات ضمان كثيرة واريد تسجيلها

وشكرا على اهتمامكم

[محمد دياب]

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

[محمد دياب]

هل من مجيب ؟ لعل المانع خيرا

[محمد دياب]

الى الآن لم يتم الرد على العموم شكرا لكم ولكن هل يمكن تصميم برنامج مماثل على الاكسيس ؟