عبدالله باقشير قام بنشر مايو 23, 2007 قام بنشر مايو 23, 2007 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته استخرج معلوماتك من جميع اوراق المصنف حسب طلبك بدلالة رقم الحساب او اسم الحساب او رقم القيد (غير الاسماء حسب معطياتك ) وبتحديد تواريخ معينه اوراق العمل التي لاتريد استدعاء البيانات منها اجعل ترتيبها بين الاوراق بعد ورقة القيود لان الكود عندما يوصل عند ورقة القيود يتوقف (غير الكود حسب معطياتك ) فقط طالبين منكم الدعاء لاغير الكود هذا طلب الاخ ابو احمد 3 في المشاركة بهذا الرابط http://www.officena.net/ib/index.php?showt...15489&st=15 ولان الموضوع قد يستفيد منه الكثير حبيت ان تكون مشاركة منفصلة وعندي لكم كود آخر سيحل الكثير من مشاكل الترحيل اولا اريد رايكم في هذا الكود اخوكم / خبور ____________________________.rar 2
محمد عسكر قام بنشر مايو 23, 2007 قام بنشر مايو 23, 2007 السلام عليكم رائع يا أخ خبوربارك الله فيك و أكرمكو زادك من العلم تحياتى
أبو أنس حاجب قام بنشر مايو 24, 2007 قام بنشر مايو 24, 2007 السلام عليكم ورحمة الله وبركاته,,, من نعم الله أن يكون أمثال هذه النفوس الطيبة موجودة في هذا الزمان. أخي خبور ارجو ان تطل على مشاركة لي سابقة قبل يومين اذا امكن ان تساعدني فيها وسامحني على الاثقال عليك. أبو أنس حاجب
الجزيرة قام بنشر مايو 24, 2007 قام بنشر مايو 24, 2007 كل الشكر والتقدير لك أخي خبور لمشاركاتك ونشاطك الواضح للجميع الله لا يحرم المنتدى من أمثالك ( وبإنتظار كود الترحيل "الرائع بالتأكيد ")
ابو احمد 3 قام بنشر مايو 24, 2007 قام بنشر مايو 24, 2007 السلام عليكم ورحمه الله والله كريم ابن كريم رائــــــــــــــــــــــــــــــــــــــــــع بارك الله فيك و أكرمك و زادك من العلم
A_ALOMANI قام بنشر مايو 25, 2007 قام بنشر مايو 25, 2007 جزاك الله خير وماشاء الله تبارك عليك داعياً من الله لك التوفيق والنجحاح. والبرنامج لا شك رائع وممكن الاستفادة منه. اخي خبور تحية وبعد اسمحلي يااخي ولواخذا من وقتك الثمين دقائق لحل موضوع البرنامج المطروح بعنوان ( برنامج إصدار وتسجيل الإجازات في آن واحد ) وشكراً اخوك عبدالله العماني ابومشاري
الســـــــاهر قام بنشر مايو 25, 2007 قام بنشر مايو 25, 2007 السلام عليكم اخي و استاذي خبور قال تعالى (ومن يعمل مثقال ذرة خير يره) صدق الله العظيم تعلمنا منك الكثير و ها انت تزيد من عطائك لهذا المنتدى بارك الله فيك و نفع بك اخوانك المسلمين كود ولا اروع تحياتي لك ونحن في انتظار الكود الاخر 1
احمدزمان قام بنشر مايو 26, 2007 قام بنشر مايو 26, 2007 استاذي - خبور السلام عليكم زادك الله علما و نورا - وايمانا - ورضا - ورفع منزلتك في جنة الخلد - وجنبك النار
abd151 قام بنشر يونيو 2, 2007 قام بنشر يونيو 2, 2007 أخي خبور الف شكر لك على هذا الكود الرائع جزاك الله خيراً وأدخلك الجنة
ايوب صابر قام بنشر يونيو 2, 2007 قام بنشر يونيو 2, 2007 السلام عليكم الاستاذ خبور ارجو ان يتسع صدرك لنا فضلاً وتكرماً منك شرح الكود حتى تعم الفائدة نف الله بعلمكم ورفع قدركم في الدنيا والآخرة 1
مصطفى صبحى قام بنشر يونيو 3, 2007 قام بنشر يونيو 3, 2007 السلام عليكم ورحمة الله وبركاتة الاخ والاستاذ الكبير / خبور جزاك الله كل الخير لما تقدمة لنا من معرفة ومعلومات قيمة وكل الدعاء بان يبارك الله لك وفيك وان يجعل الله هذة الاعمال فى ميزان حسناتك لما نستفاد منه فشكرا كثيرا
ddyaa_salama قام بنشر يونيو 12, 2007 قام بنشر يونيو 12, 2007 ____________________2.rarالسلام عليكم ورحمة الله وبركاته حقيقى انا لم اكن اتصور ان يكون هناك مثل هذا العمل حيث كنت اقوم بعمل معادلات if لكى احصل على مثل هذة النتائج ولكن تكون مليئة بالاخطاء استأذن حضرتك ان ترى هذا الملف حيث وضعت ما اطلبه فى ملفك ولكن اريد اعادة تجميع البيانات المرحله وذلك للبحث عن صنف بدلالة حرفين او ثلاثة وكذلك البحث عن الاقسام بدلالة الشهور واجمالى الاقسام. وجزاك الله كل خير
أكرم الغامدي قام بنشر يوليو 5, 2007 قام بنشر يوليو 5, 2007 (معدل) مجهود أكثر من رائع بارك الله فيك وزادك علماً. تم تعديل يوليو 5, 2007 بواسطه أكرم الغامدي
-=NO=- قام بنشر يوليو 6, 2007 قام بنشر يوليو 6, 2007 أرجو منك أخى خبور الرد فى هذا الموضوع للأهمية وجزاك الله خيرا http://www.officena.net/ib/index.php?showtopic=18205
أبو رجائي قام بنشر يوليو 21, 2007 قام بنشر يوليو 21, 2007 (معدل) اخي خبور دمتم ارجو التكرم بافهامنا حول الكود خاصة انك قلت : لاراق بالون الاحمر خارجة عن الكود يعني لا يستدعى البيانات منها 1- لذلك افهمني كيف نضيف اوراق اخى للكود 2- او البحث في عمود آخر غير ما علمت في كودك : 3- كيف يمكن ان نكبر الجدول ( يعني نضع فيه اعمدة أكثر من الموجد في البرنامج ) ماذا نضيف على الكود 4- نريد شرح وافي عن كودك التالي : ما معنى كل سطر للاستفادة : ( Sub ÇÓÊÏÚÇÁ() On Error Resume Next If [b4] = "" And [C4] = "" And [E4] = "" Then MsgBox "íÌÈ ÇÎÊíÇÑ ÍÓÇÈ ÈÏáÇáÉ ÑÞã ÇáÍÓÇÈ Çæ ÇÓã ÇáÍÓÇÈ Çæ ÇÎÊÇÑ ÑÞã ÝíÏ", vbInformation + vbMsgBoxRight, "ÊäÈíå" Else [b9:H200].ClearContents [b6] = "" & [K1] Application.ScreenUpdating = False For x = 1 To Sheets.Count MySheets = Sheets(x).Name If Sheets(x).Name = "ÇáÞíæÏ" Then Exit For For R = 3 To Sheets(MySheets).[A1500].End(xlUp).Row If (Sheets(MySheets).Cells(R, 4) = [b4] Or Sheets(MySheets).Cells(R, 6) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 7) >= [G4] And Sheets(MySheets).Cells(R, 7) <= [H4]) Then With Sheets("ÇáÞíæÏ").[b200].End(xlUp) .Offset(1, 0) = Sheets(MySheets).Cells(R, 1) .Offset(1, 1) = Sheets(MySheets).Cells(R, 2) .Offset(1, 2) = Sheets(MySheets).Cells(R, 3) .Offset(1, 3) = Sheets(MySheets).Cells(R, 4) .Offset(1, 4) = Sheets(MySheets).Cells(R, 5) .Offset(1, 5) = Sheets(MySheets).Cells(R, 6) .Offset(1, 6) = Sheets(MySheets).Cells(R, 7) End With End If Next R Next x Application.ScreenUpdating = True MsgBox "!Êã ÇÓÊÎÑÇÌ ÇáßÔÝ ÇáãØáæÈ ÈäÌÇÍ", vbInformation + vbMsgBoxRight, "Êã ÇáÇÓÊÎÑÇÌ" [b4:E4].ClearContents End If End Sub جزاك الله الجنة يا استاذنا تم تعديل يوليو 21, 2007 بواسطه أبو رجائي
nabileg قام بنشر سبتمبر 21, 2007 قام بنشر سبتمبر 21, 2007 شكرا يا اخي علي المجهود الرائع ولكن هل لي ان اعرف كيف فعلتها فهناك مثل صيني يقول من أعطاني سمكة شبعني يوم واحد ومن علمني ان اصطاد السمكة شبعني كل يوم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.