اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

خطابات الضمان 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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه محمد دياب
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

 

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

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه محمد دياب
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information