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

كود ترحيل


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

أخي الحبيب محمد الريفي

إني أحبك في الله

تفضل هذا الملف على السريع

وإن شاء الله تجد من يقدم الأفضل

Transfer Data.rar

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

احبك الله الذى احببتنى فيه

ربنا يبارك فى حضرتك يااستاذى الحبيب . ابوالبراء

حته بسيطه خالص وهى تكرار الترحيل  محتاجه لمسه منك

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

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

أعتذر عن التأخير حيث أنني منشغل قليلا

جرب الكود

Sub TransferData()
    Dim WS As Worksheet, SH As Worksheet, Cell As Range, Cel As Range, X
    Set WS = Sheets("الادخال"): Set SH = Sheets("الشهور")
    For Each Cell In WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row)
        If IsNumeric(Cell.Value) Then
            On Error Resume Next
            X = Application.WorksheetFunction.VLookup(Cell.Value, SH.Range("A5:A" & SH.Cells(Rows.Count, 1).End(xlUp).Row), 1, 0)
            If Cell.Value <> X Then Cell.Resize(1, 11).Copy SH.Range("A" & SH.Cells(Rows.Count, 1).End(xlUp).Row + 1)
        End If
    Next Cell
End Sub
تم تعديل بواسطه YasserKhalil
  • Like 2
رابط هذا التعليق
شارك

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

اخونا وحبيب الكل الاستاذ ياسر حفظه الله

 

في رد استاذنا الخلوق محمد الريفي بارك الله فيه المشاركة 3 :

حته بسيطه خالص وهى تكرار الترحيل  محتاجه لمسه منك

 

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

 

وفي كودك الاخير المشاركة 4  هنا الشرط  مبني علي عدم التكرار برقم الموظف فقط  

بمعنى لو تغير التاريخ لن يرحل إلا إذا غيرت رقم الموظف فقط

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

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

اخى الحبيب

جرب المرفق هل هو طلبك 

طالما بقى فيها زوجه تانية فأنا اولى بها ههههههههههههههههههه مش كل حاجه ابوالبراء حرام كدا 

تقبل تحياتى

 

Transfer Data.zip

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

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

 

اخي العزيز حسام شكرا وجزاك الله خير

إذا فيه عزومة بندعي لك ولايمهمك اخي منها العيال ومنك المال....ههههههاي

بخصوص الملف وحسب مانت واضع رقم الموظف 3 وتاريخ 2015/08/08 اضغط ترحيل تم الترحيل اضغط للمرة الثانية تأتي رساله نأسف تم الترحيل مسبقا إلي هنا تمام لكن لما اغير التاريخ واضغط ترحيل 20 مره يرحل

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

يا اخى الحبيب شكلك هضيع منى الجوازه المهم ربنا يبارك فى اللى معانا وخلاص ومتغلاش العروسى على ابوالبراء

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

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

معاك الخيارين مش خيار اكل لأ خيارين للحل شرط واحد بتاع ابوالبراء وشرطين اللى انا قدمته 

لو تقصد شئ اخر ياريت توضح طلبك 

تقبل تحياتى

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

ماشاء الله عليكم

وماشاء الله على اعضاء هذا الصرح ربنا يبارك فيهم

وجزاك الله خيرا اخى الحبيب الاستاذ حسام

وبارك فيك اخى الحبيب الاستاذ khmb

========================

وياريت مع بعض نكمل الباقى

التعديل والاستدعاء والطباعه

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

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

اخوي الفاضل حسام صقر العروبة

الله يحفظ ويبارك لك في زوجتك واولادك ووالديك ومالك

للمعلومة انا متزوج 3 في عقدي والثانية بعد ماتزوجت الثالثة  بسنه توفت الله يرحمها

 

مبين اني لم اوصل المعلومة بشكل اوضح

يعني الموظف رقم  والتاريخ مثلا 01/01/2015 يتم الترحيل مره واحدة إلي هنا تمام

المشكله :

نفس البيانات رقم الموظف والتاريخ قمت بتغيير التاريخ 02/01/2015 دون تغيير رقم الموظف3 اقوم بالترحيل المفترض يرحل مره واحدة على اساس ان التاريخ تغير لكنة وبالضغط علي زر ترحيل يرحل نفس البيانات حسب عدد مرات الضغط علي زر الترحيل

والصحة انه يرحل مره واحده فقط إلا إذا تغير احدى حقلي الرقم او التاريخ

إن شاء وضحت الفكرة

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

اخى الحبيب محمد الريفى

تم تنفيذ عملية الاستدعاء جرب المرفق لو هو تمام نكمل عملية التعديل والطباعه

تقبل تحياتى  :fff: 

Transfer Data.zip

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

تسلم ايدك اخى الحبيب الاستاذ حسام

كمل على بركة الله

لو امكن عمل استدعاء بالتاريخ من والى بشكل منفصل

برقم الموظف  (او or) التاريخ من والى

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

احسنت اخى الحبيب حسام

 

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

 

تسلم ايدك اخى الحبيب الاستاذ حسام

كمل على بركة الله

لو امكن عمل استدعاء بالتاريخ من والى بشكل منفصل

برقم الموظف  (او or) التاريخ من والى

 

يرا

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

بالظبط هذا هو المطلوب

ربنا يبارك فيك ويكرمك ويجزيك خير

اشكرك من قلبى اخى الحبيب

ادام الله عطاؤكم

==============

وباقى كود التعديل

ثم يدعو لك صاحب الملف بكل خير وفى كل وقت

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

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

اخي الفاضل الاستاذ حسام عيسى (( الصقر الذهبي)) ويستاهل االفاضل الكريم الخلوق محمد الريفي

امثله ولا اروع  كفيت ووفيت اللهم  اجعله في ميزان حسناته

ما شاء الله تبارك الله

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

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

اخي الفاضل الاستاذ حسام عيسى (( الصقر الذهبي)) ويستاهل االفاضل الكريم الخلوق محمد الريفي

امثله ولا اروع  كفيت ووفيت اللهم  اجعله في ميزان حسناته

ما شاء الله تبارك الله

باراك الله فيك اخى الحبيب (اللى مش عارف اكتب اسمه اللى ياريت يشرفنى بيه)

اشكرك على مرورك ومراجعاتك وكلماتك الطيبه

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

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

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

اسمي / خالد ( قرشي هاشمي )

ابو الحسن والحسين

وهاشم  وعمر وعائشة ومحمد وعمر ومصطفى الزوجات 3 واحدة توفيت الله يرحمها

تم تعديل بواسطه KHMB
  • Like 1
رابط هذا التعليق
شارك

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

اسمي / خالد ( قرشي هاشمي )

ابو الحسن والحسين

وهاشم  وعمر وعائشة ومحمد وعمر ومصطفى الزوجات 3 واحدة توفيت الله يرحمها

بسم الله ماشاء الله لاقوة الا بالله 

ربنا يبارك فيهم ويجعلهم زريه صالحه . ويسعدك بيهم دنيا واخره

تشرفت وسعدت بمعرفتك اخى الحبيب الاستاذ خالد

اخيك فى الله / محمد الريفى

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

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

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information