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

(تمت الإجابة) كود ترحيل من شيت الى شيت بشروط متعددة


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

السلام عليكم

الاخوة والاساتذة الكرام

ارجو عمل كود ترحيل وقت حضور موظف كما هو في المرفق

من شيت فترة صباحية - فترة مسائية الى شيت الجدول

كود ترحيل فترة صباحية

وكود ترحيل للفترة المسائية

موضح المطلوب على المرفق

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

فقمت بعمل جزء من الملف

وتبقى فكرة الترحيل

ارجو من لدية فكرة تصميم حساب الوقت في شيت الجدول

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

لاني ارى فيها صعوبة كتابة كود لتباعد الاسطر بين الفترة والفترة

وايضا وجود معادلات بعد كل فترة لحساب الوقت

والسلام عليكم

ترحيل حضور يومية موظف1.rar

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

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

اخي الفاضل ابو نصار

بعد التحية و التقدير

اذا سمحت عندي بعض الملاحظات على الملف

نظام التواريخ في الملف به خطأ

ورقة صباحا ومساء وضعت الدالةNow ونسقت تاريخ هجري - اذا هنا التاريخ له قيمة عددية معروفة لدى الإكسل

ورقة الجدول وضعت التواريخ بصيغة يدوية حيث لم يتعرف عليها الإكسل وفي هذه الحالة يعتبر قيمتها العددية صفر

لذلك حتى وان وجد لديك كود للترحيل فانه لن يعمل بشكل صحيح

ممكن تدمج ورقتين صباح ومساء معا في ورقة واحدة بحيث تظهر صباح وتخفي مساء -او- تظهر مساء وتخفي صباح لكي يتم تصغير الملف وتقلقل الخطوات

و تصبح على خير

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

وعليكم السلام

تسلم على الملحوظة القيمة استاذ احمد

سوف اقوم بعمل مااتكرمت وارفقه

وانت من اهل الخير

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

اخي ابو نصار

صبحك الله بالخير

وجدت حل للمشكلة

وهومرفق في ورقة الفترة الصباحية

= = = = =

وانا دائما افضل العمل بشكل عمودي افضل من الرأسي

والله اعلم

ترحيل حضور يومية موظف1.rar

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

السلام عليكم

سلمت الانامل استاذ احمد

ولاكن مافائدة معادلة التاريخ في شيت الفترة الصباحية خليةg1

اظن حولت التاريخ الى نص

جزاك الله خير

اترقب الية الكود

وفقكم الله

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

السلام عليكم

وهذا المرفق تم حذف شيت فترة مسائية

واعتماد الفترتين على شيت فترة صباحية

علا يخف حجم الملف

ترحيل حضور يومية موظف2.rar

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

السلام عليكم

اخي ابو نصار

جرب المرفق

المسألة تعتمد على الدوال كثيرااا

لتحديد مكان وضع الوقت في الجدول


Sub TRHL_AM()

Dim FS As Worksheet, TS As Worksheet

Set FS = Sheets("ÝÊÑÉ ÕÈÇÍíÉ")

Set TS = Sheets("ÇáÌÏæá")

TC = FS.Range("H1")

ER = FS.Range("H2")

For FR = 4 To ER

TR = Cells(FR, 7).Value

If TR = "" Then GoTo 9

TS.Cells(TR, TC) = FS.Cells(FR, 5)

9 Next

End Sub

ترحيل حضور يومية موظف2.rar

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

السلام عليكم

الاستاذ القدير احمد زمان

حل مختصر وجميل جداً

والكود سلس ومختصر

ومثل ماتفضلت المعادلات اعتمد عليها كثيرا

زادك الله من علمه وفضله

مافي اليد غير الدعاء لك في ظهر الغيب

طلب اضافي من كرم عطائكم

شرح لجزئية الكود التاليه


Set FS = Sheets("ÝÊÑÉ ÕÈÇÍíÉ")

Set TS = Sheets("ÇáÌÏæá")

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

والله يعيننا على رد جمايلكم

والسلام عليكم

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

وعليكم السلام

FS و TS طبعا رموز انا اضفتها

وهي هنا تشير الى

الورقة المنقول منها البيانات FROM SHEET

و

الورقة المنقول اليها البيانات TO SHEET

مع التحية و التقدير

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

استاذنا المشرف " احمــــــــــــــــــــد زمان "

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

كلنا نستفيد

جزاك الله كل الخير ......... وفقك الله

ابو الحارث

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

استاذ احمد عند عدم توفر التاريخ في شيت الجدول

يظهر وجود خطاء في السطر التالي


TS.Cells(tr, TC) = FS.Cells(FR, 5)

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

استاذنا المشرف " احمــــــــــــــــــــد زمان "

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

كلنا نستفيد

جزاك الله كل الخير ......... وفقك الله

ابو الحارث

اخي الكريم ابو الحارث

جزاك الله كل خير

و هذا من اهداف المنتدى ان الكل يستفيد

استاذ احمد عند عدم توفر التاريخ في شيت الجدول

يظهر وجود خطاء في السطر التالي


TS.Cells(tr, TC) = FS.Cells(FR, 5)

اخي ابو نصار طبعا لازم يعطي خطأ

لأن الصيغة في الخلية H1 بتعطي ناتج الخطأ #N/A بمعنى غير موجود

و لذلك

تم عمل تعديلين على الكود في المرفق

1- رسالة كماطلبت سابقا

2- كل قيمة يتم نقلها يتم مسحها من خلية المصدر

آمل ان يكون فيه الفائدة

ترحيل حضور يومية موظف2.rar

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

السلام عليكم

استاذ احمد يظهر خطاء في الرساله


MsgBox "   التاريخ المطلوب لإتمام العملية غير متوفر حاليا" & ch(10) & " لم يتم حفظ البيانات "

في هذا الجزء

& ch(10) &

هذا نمط الرساله

sub or function not defined

فرعية او وظيفة غير محددة

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

السلام عليكم

استاذ احمد يظهر خطاء في الرساله


MsgBox "   التاريخ المطلوب لإتمام العملية غير متوفر حاليا" & ch(10) & " لم يتم حفظ البيانات "

في هذا الجزء

& ch(10) &

هذا نمط الرساله sub or function not defined فرعية او وظيفة غير محددة
ارجو المعذرة استبدل الجزء بــ



& Chr(10) & 

مع التحية

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

السلام عليكم

الاستاذ القدير احمد زمان

بارك الله فيك وزادك من علمه

توضيح بسيط

ما عمل هذا المرجع Chr

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

شيت خلاصه وفورم واحد لتحفيز الفترات

ترحيل حضور موظف.rar

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

اخي العزيز العيدروس

نهاية موفقة والحمد لله

تسلم ايدك ... وجزاك الله كل الخير

مع شكر كبير وجزيل جدا ... جدا لاستاذنا المعطاء المشرف " احمد زمان "

وفقكم الله

ابو الحارث

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

السلام عليكم

سلمت الانامل اخي ياسر التي نثرت هذا الرد

انشاء الله تكون استفدت من الملف

وفقك الله

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

السلام عليكم

الاستاذ الفاضل احمد زمان

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

لم تظهر رقم العمود من تاريخ 1/11/1432 الى 9/11/1432

علما ان التاريخ موجود في شيت الجدول

و تاريخ 10 / 11 /1432 ومافوق يظهره اين بيت الداء جزاكم الله خيرا

وهذا المرفق وعليه التاريخ

ggg.rar

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

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

اخي العيدروس

عجبتني ((بيت الداء))

المهم

نحنة لمن نحول التاريخ الى صيغة نص وليس رقم

اذا هنالك فرق بين رقم 1 ورقم 01 طبعا

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

بينما كتبت التاريخ في الورقة الثانية بصيغة مفردة وهي 1 فقط

الحل

تغير الدالة في H1 من الورقة الأولى الى


=TEXT(G1;"b2yyyy/m/d")

و ان شاء الله يسير كله تمام

مع التحية

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

السلام عليكم

الاستاذ القدير احمد زمان

هكذا الدروس وإلا فلا

جزاك الله كل كل خير

يعمل 100 %

والسلام عليكم

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

السلام عليكم

الاستاذ القدير احمد زمان

ارجو الاطلاع على المرفق

ماسبب عدم ظهورارقام صفوف الاسم من بعد احمد99

لاصباح ولا مساء

والعذر منك والسموحه على كثرة طلباتي

ومنكم نتعلم

تلميذك أبو نصار

والسلام عليكم

حضور موظفين.rar

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

السلام عليكم

ارجو من لديه الخبره في المشكله

ان لايقصر حوست لين مليت نفس المعادلة

والبيانات موجوده في شيت الجدول

ولاكنت غير موجود رقم الصف من اسم احمد99

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

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