عاطف عبد العليم محمد

السلام عليكم 

أخي الكريم  تفضلتم بالرد ولم انتبه لذلك   ( كنت انتظر الرد وانت رددت بالفعل )   فعذرا 

 

الامر ملتبس علي فأرجو التوضيح     

 

مافهمته أن ما يكتب في العمود d   هي اسماء الصفحات ؟ 

والآن حضرتك كتبت

 فقط يمكنك تغيير الـ 99 بـ 999 إحيث أنك قلت " فانا عندي صفحات بها أكثر من مائة حساب والترحيل يتم والحمد لله"

 

هل معنى ذلك أنه يكتب فيها أيضا اسماء الحسابات ؟ 

والله أنا آسف لإشغالك والتمس لك العذر ـ ارجوك اخي الكريم ان تراجع كود الفورم ( عندما يتيسر لك ) / ها هو 

 

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

جزاكم الله خيرا  على تفضلكم بالرد

وعذرا  اعتبرني تلميذ بليد يحتاج لمزيد من الشرح  ـ فأنا أظن أن المشكلة ليست  في عدد الحسابات  التي ترحل بعد ان حددنا الآتي 

d = Range("f7", Range("f7").End(xlDown)).Count

For p = 13 To ((d + 1) * 9) Step 9

فانا عندي صفحات بها أكثر من مائة حساب والترحيل يتم والحمد لله 

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

اظن أخي ان المشكلة قد تكون  في  استخدام العمود d  لإظهار الليست بوكس وكتابة اسماء الصفحات والتي ممكن أنه سيتم ترحيلها ( لو تم اختيارها )

 

 Sheets(1).[D1:D99].ClearContents

 

وقد يكون في الصفحة الأولى العمود d  مايمنع من ذلك مثلا  قد يكون في صف من الصفوف العمود d مدمج مع عمود آخر

فضلا على انه قد يكون هناك بيانات مهمة

وبهذا الكود  Sheets(1).[D1:D99].ClearContents   تمسح البيانات

فما رأيك لو غيرنا العمود d الى آخر عمود في الصفحة xdf فلن يستخدم بأي حال ـ فيكون 

 Sheets(1).[xDf1:xDf99].ClearContents

فإذا كان ما قلته صواب فماذا أيضا يجب تغييره  فالسطر السابق موجود في كود الترحيل كما انه موجود في كود الفورم فهل في كود الفورم مايلزم تغييره أيضا ؟ مثل ال d في هذا السطر (Sheets(1).Cells(i + 1, "D") = ListBox1.List(i

 

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

وفقكم الله 

السلام عليكم  ـ أخي طارق محمود

 

 

 

السلام عليكم  ـ أخي طارق محمود

هنيئا لكم حبكم للشعر  وقد كان رسول الله محمد صلى الله عليه وسلم يحب ان يسمع الشعر 

http://www.ruowaa.com/vb3/showthread.php?t=1565

 

وهذا شعر عن رسول الله صلى الله عليه وسلم 

http://forum.hawahome.com/t103973.html

 

أحب الصالحين ولست منهم ـ أول ما يتبادر للذهن  لست منهم أي أنا من عكس الصالحين وهذا المعنى والله أعلم لا ينبغي قوله ـ نعم لا نزكي

 

أنفسنا ولكن أيضا لا ينبغي أن نسب أنفسنا  ولذلك قلت أحب الصالحين  وأسأل الله أن يجعلني منهم  

 

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

 

أن  يجعلني وإياك منهم هم قسمين اصحاب اليمين والمقربين فلعل الإمام الشافعي يقصد بكلامه المقربين ـ وتعلم انه يجوز للفرد ان يقول عن

 

نفسه انه  مسلم ولا يجوز ان يقول عن نفسه انه مؤمن { فَلا تُزَكُّوا أَنْفُسَكُمْ }   ... الآية 

( قَالَتِ الْأَعْرَابُ آمَنَّا قُل لَّمْ تُؤْمِنُوا وَلَكِن قُولُوا أَسْلَمْنَا وَلَمَّا يَدْخُلِ الْإِيمَانُ فِي قُلُوبِكُمْ .... ) الآية

فلعله كان يقصد بالصالحين بالمؤمنين ــ المهم أنني أعترف بأنني على خطأ طالما أن القائل هو الإمام الشافعي

نعود إلى الإكسيل  

 

 أخي الفاضل قلتم  سأحاول عندما يكون لدي وقت في هذا  إن كنت تتعجل النتيجة فضعها  في موضوع  مستقل

 

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

جزاكم الله خيرا  ووفقكم الله لما يحب ويرضى

وعليكم السلام ورحمة الله وبركاته   اخي طارق محمود

ما شاء الله  تبارك الله لا قوة إلا بالله 

رائع ياسيدي 

وسأنقل الكود والفورم للملف الأصلي وآمل أن يعمل بإذن الله 

و بقي  شرح أكواد الفورم  ولأني لا أعرف فيها شيء  فلا أريد أن اثقل عليك بطلب شرحها 

ولعلي أحاول فهمها لاحقا 

 

طلب آخر وأعرف إني اثقلت عليك ولكن عذرا  و أرجو أن يتسع وقتك وصبرك للرد عليه 

 

  أريد فورم  لإدخال القيود وللبحث فيها

 

 

هل ترى أن أذكر الطلب في موضوع  مستقل أو ياسيدي هل ترى أن أذكر المطلوب ضمن هذا الموضوع ؟؟؟

 

 

بارك الله فيكم وجزاكم الله خيرا 

 

وأخيرا ما رأيك  في الآتي مع إن علمي في الشعر مثل علمي في أكواد الفورمات

 

أحب الصالحين  وأسأل الله أن يجعلني منهم  ** لعلي أن أنال بـهم شفـاعـة

وأكره مَن تجارته المعاصي ** ولو كنا سواء في البضاعة

السلام عليكم 

اسمح لي بطلب مع الطلب السابق  وهو في بداية تنفيذ الماكرو تظهر رسالة  اختيار للمستخدم  ( الترحيل للصفحة الحالية فقط أو الترحيل لكل الصفحات ) 

الصفحات في المثال   الرواتب ـ العملاء ـ البنوك ـ السيارات  ( ويمكن أن تزيد ) وتوجد صفحات مثل صفحة الدليل لا ينفذ عليها الماكرو

واتصور ان في بداية الماكرو سيتم تحديد الصفحات 

و سيتم الغاء كلمة Sheets("الرواتب") 

 في مقابل  مايفيد بالصفحة الحالية

 

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

 

ترحيل لأكثر من حساب .rar

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

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

هل لك أخي ضاحي ان تساعدني في الملف المرفق 

فهو قريب مما تفضلت به 

 

ولك جزيل الشكر

Book2.rar

 الحمد لله و جزاك الله خيرا  

الجملة التي تفضلت بها هي For p = 13 To 40 Step 9

 

واسمح لي أن تكون كالآتي لتكون عامة بدون تحديد عدد الحسابات  For p = 13 To d * 9 Step 9

 

 وهي تعمل بدون مشاكل والحمد لله

سؤال آخر لو تكرمتم

هل اطمع منكم في جعل الكود يشمل عدة صفحات بدلا من صفحة الرواتب فقط 

سنفترض ان الصفحات هي  صفحة الرواتب وصفحة العملاء وصفحة البنوك وهكذا

فأريده أن ينفذ الكود على صفحة الرواتب  ثم صفحة العملاء ثم صفحة البنوك 

و قد قرأت حلول لذلك من فترة  فلعلك تذكرني بها ، وفقكم الله 

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

لي طلب ـ في ملفي الترحيل ممتاز ولكن أريد تكرار الترحيل لعمل عدد من كشوف الحساب لعلك أخي تستطيع أن تفيدني 

الملف موجود في  http://www.officena.net/ib/index.php?showtopic=47246&view=getnewpost

وفق الله الجميع لما يحب ويرضى

هل من مساعد ؟

السلام عليكم 

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

http://www.officena.net/ib/index.php?showtopic=47246&view=getnewpost

 

الموضوع باسم "طلب مساعدة لتكرار كود ترحيل".

وفقكم الله

أخي طارق السلام عليكم الملف مرفق وجزاكم الله خيرا 

 

وبعد التعديل من قبلكم لي مطلب آخر لو تكرمتم

ترحيل لأكثر من حساب .rar

 

السلام عليكم

أخي الكريم ، يصعب هذا بدون الملف المرفق

حاول مع الكود التالي ، إن لم ينجح لابد من إرسال الملف

 

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

للأسف واضح ان الكود لن يعمل بالطريقة الصحيحة 

انا طلبت التعديل في الترحيل  وهو الجزء الثاني من الكود  والجزء الأول مسح المحتويات  لا تعديل فيه وبكود حضرتك سيتم مسح الترحيل لكل مرة يرحل فيها  هذا اولا 

ثانيا وهو الأهم 

x = Cells(204, p).Value      ' رقم الحساب المطلوب الكشف له         لم يتغير 

نتيجة الكود المطلوبة هو عمل كشف للحساب ( ا)  ثم عمل كشف بجواره للحساب ( ب)  وهكذا لعدد من الحسابات 

قد لا يكون التصور واضح  ولكن الملف كبير ولعلي  إن شاء الله أعمل ملف فقط به الجزء المطلوب  وأرفعه

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

 

السلام عليكم

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

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

التكرار سيكون لعدد = d

رقم الحساب المطلوب الكشف له وهو هنا p   كان في الخلية m204  والحساب التالي سيكون في الخلية v204  والذي بعده سيكون في ae204 وهكذا  أي بعد 9 أعمدة من الذي قبله

وكذلك الترحيل  للحساب التالي بعد 9 أعمدة من أول خلية تم الترحيل لها في الحساب السابق فمثلا الصف الأول كان m208  وn208 إلى s208  اما الحساب الجديد فسيكون الصف الأول لبداية الترحيل يبدء من v208

       

 Application.ScreenUpdating = False

 Sheets("الرواتب").Select

Dim d, a, b, s, p, k, m, c, e As Integer

   

d = Range("f7", Range("f7").End(xlDown)).Count

a = 13

b = 19

For i = 1 To d

Range(Cells(208, a), Cells(450, b)).ClearContents

a = a + 9

b = b + 9

Next i

 

dat1 = Sheets("الرواتب").Range("e1").Value       ' شهر البداية

dat2 = Sheets("الرواتب").Range("e2").Value       ' شهر النهاية

rng1 = Sheets("قيوداليومية").Range("m11").Value   'عدد الادخالات موجودة في هذه الخانة

s = 208

p = 13

'x = Sheets("الرواتب").Range("m204").Value      ' رقم الحساب المطلوب الكشف له

 x = Cells(204, p).Value      ' رقم الحساب المطلوب الكشف له

For i = 6 To rng1 + 6  ' ستة لأن البيانات في قيود اليومية من السطر السادس

x1 = Sheets("قيوداليومية").Cells(i, 3).Value

date9 = Sheets("قيوداليومية").Cells(i, 5).Value                 '        تاريخ الحساب المتواجد في جدول القيود

If x <> x1 Then GoTo out1

If dat1 > date9 Then GoTo out1       '  اذا التاريخ أكبر من التاريخ الأعلى لا تنفذ

If dat2 < date9 Then GoTo out1      '   اذا التاريخ أصغر من التاريخ الأدنى لا تنفذ

e = 4

c = 13

For m = 1 To 7

Sheets("الرواتب").Cells(s, c).Value = Sheets("قيوداليومية").Cells(i, e).Value

e = e + 1

c = c + 1

Next m

s = s + 1

out1:

Next i

Application.ScreenUpdating = True

End Sub

 

 

قم بارفاق الملف المقصود

و ياريت وضع رابط الموضوع الذي تقصده للاطلاع عليه

شكرا لك ياسيدي  وسأنتظر فترة لعل الوقت يسمح لي بقراءة شرح الأساتذة في هذا المنتدي  فأتعلم وأجد المطلوب  وإن لم استطع  فلن نعدم توجيهاتكم إن شاء الله

 

ولأن كل مشاركاتي كانت في موضوعك فهال تفيدني بمعنى حالة الإنذار  المكتوبة على يمين هذه المشاركة ؟

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

استاذنا القدير 

يوجد ملف لأحد الكبار في هذا المنتدي وأرغب  المساعدة في التعديل عليه مع شرح بسيط لما تم تعديله ليمكن الاستفادة للكل 

 وانا الآن استأذنكم هل يمكن أن أرفق الملف لتتفضلوا بذلك ( حيث وجدت المشاركات التي طلبت التعديل لم يتم الرد عليها)

 

شكرا لكم وللكل في هذا المنتدى ولكل من يسعى لخدمة اخوانه في اي مكان

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

السلام عليكم أخي حمادة عمر

شكرا لكم وجدت الخطأ الرئيسي 

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

السلام عليكم أخي حمادة عمر

هذا ملف فيه فكرة ان المستخدم يحدد عمود البحث الذي يريده

ومتأكد أن الفكرة لا تخفى عليكم

وقد حاولت ايضا تطبيقها ولكن نفس الإشكال  

 

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

Search Database ver 1b.rar

وعليكم السلام  أخي حمادة

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

هذا هو الملف

وفقكم الله

تجربة يوسرفورم.rar

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

 

الملف الذي رفعته  يظهر انه خالي 

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

شاكرا لكم ، وفقكم الله

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

جزاكم الله خيرا ـ شرحكم مفيد ورائع وفي الحديث  "  أحب الناس إلى الله أنفعهم ......

ولكن يبدو ان المشكلة عندي وأرجو التكرم بحلها حيث حاولت ولكن لا تظهر البيانات 

 

http://www.mediafire.com/view/?ma14v4dduavbc61

 

شاكرا لكم ، وفقكم الله