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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

اخوكم / خبور

____________________________.rar

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

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

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

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

أبو أنس حاجب

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

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

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

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

اخي خبور

تحية وبعد

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

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

وشكراً

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

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

السلام عليكم

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

قال تعالى

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

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

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

كود ولا اروع

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

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

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

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

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

فشكرا كثيرا

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

  • 2 weeks later...

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

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

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

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

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

  • 4 weeks later...
  • 2 weeks later...

اخي خبور

دمتم

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

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

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

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

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

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

  • 5 weeks later...
  • 1 month later...
  • 2 weeks later...

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

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



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

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

Important Information