اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود ترحيل بناء علي لون الخلية


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

السلام عليكم

 

اولا تاكد من صحة الترحيل وخاصة بالنسبة للخلايا الست الاولى من ورقة1

.Cells(Lr, "A").Value = Lr - 6
    .Cells(Lr, "B").Value = [E6]
    .Cells(Lr, "C").Value = [C9]
    .Cells(Lr, "D").Value = [C8]
    .Cells(Lr, "E").Value = [E11]
    .Cells(Lr, "F").Value = [G13]

شاهد المرفق 2003

 

tast.rar

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

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

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

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

 

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

'   اول رقم تسلسلي
Const No As Double = 300

بالنسبة للاستدعاء تختار الرقم من ComboBox1 ثم تضغط زر الاستدعاء

 

تاكد من صحة الترحيل والاستدعاء

بعدين نستكمل الباقي

 

المرفق 2003

tast.rar

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

يعجز لساني عن شكرك 

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

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

يعجز لساني عن شكرك 

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

 

يتم الاستدعاء عند الاختيار من القائمة مباشرة

مع اضافة زر للتعديل وزر سجل جديد

وتم تفعيل المسح بعد الترحيل

 

المرفق 2003

tast.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