كود لاستدعاء البيانات من اوراق العمل حسب طلبك

[عبدالله باقشير]

بسم الله الرحمن الرحيم

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

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

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

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

(غير الكود حسب معطياتك )

فقط طالبين منكم الدعاء لاغير

الكود هذا طلب الاخ ابو احمد 3 في المشاركة بهذا الرابط

http://www.officena.net/ib/index.php?showt...15489&st=15

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

وعندي لكم كود آخر سيحل الكثير من مشاكل الترحيل

اولا اريد رايكم في هذا الكود

اخوكم / خبور

____________________________.rar

[محمد عسكر]

السلام عليكم

رائع يا أخ خبور

بارك الله فيك و أكرمك

و زادك من العلم

تحياتى

[أبو أنس حاجب]

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

من نعم الله أن يكون أمثال هذه النفوس الطيبة موجودة في هذا الزمان.

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

أبو أنس حاجب

[الجزيرة]

كل الشكر والتقدير لك أخي خبور

لمشاركاتك ونشاطك الواضح للجميع

الله لا يحرم المنتدى من أمثالك

( وبإنتظار كود الترحيل "الرائع بالتأكيد ")

[ابو احمد 3]

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

والله كريم ابن كريم

رائــــــــــــــــــــــــــــــــــــــــــع

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

[gamalin]

رااااااااااااااائع اخي خبور بارك الله فيك

[A_ALOMANI]

جزاك الله خير وماشاء الله تبارك عليك

داعياً من الله لك التوفيق والنجحاح.

والبرنامج لا شك رائع وممكن الاستفادة منه.

اخي خبور

تحية وبعد

اسمحلي يااخي ولواخذا من وقتك الثمين دقائق لحل موضوع البرنامج المطروح

بعنوان ( برنامج إصدار وتسجيل الإجازات في آن واحد )

وشكراً

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

[الســـــــاهر]

السلام عليكم

اخي و استاذي خبور

قال تعالى

(ومن يعمل مثقال ذرة خير يره) صدق الله العظيم

تعلمنا منك الكثير و ها انت تزيد من عطائك لهذا المنتدى

بارك الله فيك و نفع بك اخوانك المسلمين

كود ولا اروع

تحياتي لك ونحن في انتظار الكود الاخر

[ابو حيدر]

يعطيك العافية

ونطمع للمزيد

[احمدزمان]

استاذي - خبور

السلام عليكم

زادك الله علما و نورا - وايمانا - ورضا - ورفع منزلتك في جنة الخلد - وجنبك النار

[abd151]

أخي خبور

الف شكر لك على هذا الكود الرائع

جزاك الله خيراً وأدخلك الجنة

[ايوب صابر]

السلام عليكم

الاستاذ خبور

ارجو ان يتسع صدرك لنا

فضلاً وتكرماً منك شرح الكود حتى تعم الفائدة

نف الله بعلمكم ورفع قدركم في الدنيا والآخرة

[مصطفى صبحى]

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

الاخ والاستاذ الكبير / خبور

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

فشكرا كثيرا

[ddyaa_salama]

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

حقيقى انا لم اكن اتصور ان يكون هناك مثل هذا العمل حيث كنت اقوم بعمل معادلات if لكى احصل على مثل هذة النتائج ولكن تكون مليئة بالاخطاء

استأذن حضرتك ان ترى هذا الملف حيث وضعت ما اطلبه فى ملفك ولكن اريد اعادة تجميع البيانات المرحله وذلك للبحث عن صنف بدلالة حرفين او ثلاثة وكذلك البحث عن الاقسام بدلالة الشهور واجمالى الاقسام.

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

[أكرم الغامدي]

مجهود أكثر من رائع بارك الله فيك وزادك علماً.

تم تعديل يوليو 5, 2007 بواسطه أكرم الغامدي

[-=NO=-]

أرجو منك أخى خبور الرد فى هذا الموضوع للأهمية

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

http://www.officena.net/ib/index.php?showtopic=18205

[أبو رجائي]

زادك الله علما

وأحياك على طاعته

[أبو رجائي]

اخي خبور

دمتم

ارجو التكرم بافهامنا حول الكود خاصة انك قلت :

لاراق بالون الاحمر خارجة عن الكود

يعني لا يستدعى البيانات منها

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("&Ccedil;&aacute;&THORN;&iacute;&aelig;&Iuml;").[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 "!&Ecirc;&atilde; &Ccedil;&Oacute;&Ecirc;&Icirc;&Ntilde;&Ccedil;&Igrave; &Ccedil;&aacute;&szlig;&Ocirc;&Yacute; &Ccedil;&aacute;&atilde;&Oslash;&aacute;&aelig;&Egrave; &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbInformation + vbMsgBoxRight, "&Ecirc;&atilde; &Ccedil;&aacute;&Ccedil;&Oacute;&Ecirc;&Icirc;&Ntilde;&Ccedil;&Igrave;"

[b4:E4].ClearContents

End If

End Sub

جزاك الله الجنة يا استاذنا

تم تعديل يوليو 21, 2007 بواسطه أبو رجائي

[hoodahooda]

وأين الكود الأخر الذي تحدثت عنه

[nabileg]

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

فهناك مثل صيني يقول

من أعطاني سمكة شبعني يوم واحد

ومن علمني ان اصطاد السمكة شبعني كل يوم

[ابوشرشر]

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