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

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

قام بنشر

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

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

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

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

قام بنشر (معدل)

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

جرب الكود

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 اقوم بالترحيل المفترض يرحل مره واحدة على اساس ان التاريخ تغير لكنة وبالضغط علي زر ترحيل يرحل نفس البيانات حسب عدد مرات الضغط علي زر الترحيل

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

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

قام بنشر

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

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

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

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

قام بنشر

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

 

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

 

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

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

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

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

 

يرا

قام بنشر

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

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

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

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

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

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

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

  • Like 2
قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

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

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

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

قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

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

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

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

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

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