۩◊۩ أبو حنين ۩◊۩

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

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

السلام عليكم اخى العزيز مرفق الملف على ان يتم العمل فى شيت card tist.rar

السلام عليكم اضم صوتى والف صوت الى صوتك اخى دغيدى كن معنا اخى جمال ....

السلام عليكم الاخوه الافاضل هلى يمكن عمل كود بحث فى نطاق محدد او عمود محدد ( من AJ 22 الى AJ 3000 وعند الكتابة فى الخليه AL1 يتم البحث عما فى الخليه ... واذا وجدت يذهب ويقف على الخليه وان لن توجد ... تظهر رساله الرقم غير موجود ارجو ان تكون الفكرة واضحه جزاكم الله خيرا

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

السلام عليكم توضيحا للامر هذا العمل للاخ العزيز بن عليه حاجى ..جزاه الله كل الخبر واريد استخدامه فى عمل اخر وتم الاتى تم تعديل ترقيم التاريخ بدلا من FROM : 01/01/2014 TO 31/01/2014 حتى اصبح FROM : 16/01/2014 TO 15/02/2014 وبدايه الشهر فى Inbut data اصبح يبداء كم يوم 16 فى الشهر حتى يوم 15 فى الشعر التالى فهل ذلك سبب اخراج بيانات خاطئه مثلاا يوم 18/1 الرمز Q الا انه فى ال Inbut data الصحيح A فالخطاء ناتج عدم معرفتى بلامر والمعادله جزاكم الله خير

السلام عليكم برجاء توضيح .. من اين ياتى هذا التاريخ فى هذه المعادله تحديدا FROM : 01/01/2014 TO 31/01/2014 واذا امكن شرح الفكره والمعادله فى R2 جزاكم الله كل الخير tist3.rar

تم رفع الموضع خطاء

جزاك الله خير على كل جديد فى هذا المنتدى

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

اخى العزبز الملف تم ضبطه.... سلمت بداك ولاكن عند تطبيقه على المرفق http://www.gulfup.com/?Ub5zsa وعند فتح الملف .... تظهر ان كانت لديك كلمة المرور فاضغظ على نعم عند الضغط على no يظهر لى هل انت تريد حفظ الملف ... ويوجد ثلاث اختيارات save don't save cancel عند اختيار cancel ....يتم الدخول الى الملف ... فما الحل حرصا على التعلم ارجو توضيح الفرق بين If Date > #1/1/2015# Then If Date > "01-01-2015" Then جزاك الله كل الخير

السلام عليكم الاخوة الاعزاء ارجو المساعده باستدعاء بيانات العامل من شيت NAME الى اكثر من شيت على اساس الادارة التى يعمل بها مرفق الملف جزاكم الله خير اسماء العاملين.rar

اخى العزبز الملف تم ضبطه.... سلمت بداك ولاكن عند تطبيقه على المرفق http://www.gulfup.com/?Ub5zsa وعند فتح الملف .... تظهر ان كانت لديك كلمة المرور فاضغظ على نعم عند الضغط على no يظهر لى هل انت تريد حفظ الملف ... ويوجد ثلاث اختيارات save don't save cancel عند اختيار cancel ....يتم الدخول الى الملف ... فما الحل حرصا على التعلم ارجو توضيح الفرق بين If Date > #1/1/2015# Then If Date > "01-01-2015" Then جزاك الله كل الخير

السلام عليكم اخى حماده فعلا... هى هديه عظيمه من اخ عزبز فى منتدى كبير جزالك الله كل الخير

السلام عليكم الساده الافاضل موضوع مهم جدا للجميع ولكن عند تغير التاريخ كما هو موضح If Date > "01-01-2015" Then ما زال الملف يطلب كلمه السر لماذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ارجو الرد للافاده كلمة المرور1.rar

السلام عليكم اخى العزبز حماده جزاك الله كل الخير تم الامر كما هو منتظر جزاك الله كل الحير وشاكر لك وقتك الثمين... اخى العزيز ... اثراءاٌ للموضع هل من كود يتم فتح الملف به فى وقت محدد جزاك الله كل الخير وجمع الاخوه بالمنتدى

الاخ العزيز قنديل الصياد جزاك الله خيرا على هذا المجهود

السلام عليكم الاخ حماده شاكر لك وقتك الثمين فعلا الكود يعمل بصوره صحيه من خلال الزر ويس من خلال الوقت

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

اخى العزبز حماده هذا هو الملف والاهم سوف اطبق الامر فى اكثر من ملف لاكن حجمه كبير وكما ان التعليم مفيد جدا كشف باسماء العاملينH.rar

السلام عليكم اخى حماده جزاك الله كل الخير اين تحديدا فى بدايه الكود وكيف ان ارت الساعه AM 9 :45 وجدت هذا الكود فى المنتدى "Application.OnTime TimeValue("17:00:00"), "my_Procedure اين موضعه من الكود السابق جزاك الله كل الخير

السلام عليكم الساده الافاضل هل يمكن جعل كود ترحيل يرحل فى وقت محدد كل يوم او كل اسبوع او كل شهر برجاء الافاده ... Sub transfer() Application.ScreenUpdating = False Dim ws As Worksheet, ws2 As Worksheet Set ws = Worksheets("name") Set ws2 = Worksheets("trans") For X = 3 To ws.Range("h65536").End(xlUp).Row If ws.Cells(X, "H") <> "" And ws.Cells(X, "J") <> "" Then Set srng = ws.Range("B" & X).Resize(1, 11) srng.Copy ws2.Select ws2.Cells(ws2.Range("B65536").End(xlUp).Row + 1, "B").Select ActiveSheet.Paste ws.Rows(X).Delete End If Next Application.CutCopyMode = False End Sub

برجاء المساعده فى عند استخدام هذا الكود والمقصود به علف الملف بعد تاريخ مححد تم الاستعانه به من الموقع وعند ظهور شاشه طلب كلمه السر ... والضغط على ,يتم الانتقال شاشه كلمه المرور خطاء Cancel ينتقل الى الصوره المرفقه Ok وبالضغط على … يتم دخول الملف .... فما الحلCancel وعند اختيار Private Sub Workbook_Open() If Date > DateValue("15/7/2013") Then If InputBox("áØÝÇð ÃÏÎá ßáãÉ ÇáÓÑ ") <> "as2191612" Then MsgBox "ßáãÉ ãÑæÑ ÎØÇÆÉ.... ÇäÊåÊ ÝÊÑÉ ÇáÚãá ÈÇáÈÑäÇãÌ" ThisWorkbook.Close Else MsgBox "ÊÝÖá ÈÇáÏÎæá ßáãÉ ãÑæÑß ÕÍíÍÉ " End If End If End Sub مرفق الصوره

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