saad abed

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

اخى ابوحنين شوفتنا للعمل الغمل به افكار جبارة انا شغال على اوفيس 2010 فيظهر خطأ وبغلق الفورم دون ان يعمل debug ممكن تعدل العمل على الاصدار الاعلى اذا كنت فهمت انا الملف فهو عبارة عن برنامج ادخال اسماء الحسابات او اختيار الحسابات الموجودة اختيار انواع الحركات قيد فاتورة بيع او شراء سندات ويقبل اى مسميات اخرى العمل ممتاز انت بالمصرى فتحت على نفسك باب لابد ان تتمه ان شاء الله ممكن تعدل عناوين اعمدة البيانات حتى تصلح لكل الناس رقم القيد نوع الحركة تاريخ الحركة البيان الحساب الرئيسى الحساب التحليلى مدين دائن تحياتى للعبقرية الجزائرية والعربية على العموم تحياتى ابوحنين

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

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

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

استاذ جمال استاذ رجب جاويش جامعة اوفيستا تمتلك مشرفين عظماء علما واخلاقا وفقكم الله

أستاذنا الكبير الحاج // مجدى بارك الله فيك وننتظر البرامج تقبل تحياتى

اخى محمود تم تعديل الكود جرب واعلمنى تحياتى Sub saad() Application.ScreenUpdating = False Sheets("Entry").Select al = Sheets("Database").[e10000].End(xlUp).Row If [d1] = "" Or [d2] = "" Or [d3] = "" Then MsgBox "Ãßãá ÇáÈíÇäÇÊ ÃæáÇ" Exit Sub ElseIf Not [c4].Value = [d4].Value Then MsgBox "!ÊÃßÏ ãä ÅÏÎÇá ÇáÞíÏ ãÚ ÊæÇÒä ÇáØÑÝíä", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub ElseIf Sheets("Database").Range("e" & al).Value = [d2].Value Then MsgBox "!ÊÃßÏ ãä ÚÏã ÊßÑÇÑ ÇáÝíÏ", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub 'Else End If For r = 7 To Sheets("Entry").[c3000].End(xlUp).Row With Sheets("Database").[d10000].End(xlUp) .Offset(1, 0) = Sheets("Entry").[d1].Value .Offset(1, 1) = Sheets("Entry").[d2].Value .Offset(1, 2) = Sheets("Entry").[d3].Value .Offset(1, 3) = Sheets("Entry").Cells(r, 3) .Offset(1, 4) = Sheets("Entry").Cells(r, 4) .Offset(1, 5) = Sheets("Entry").Cells(r, 5) .Offset(1, 6) = Sheets("Entry").Cells(r, 6) End With Next r Application.ScreenUpdating = True End Sub مثال على الترحيل.rar

اخى جرب المرفق لعله المطلوب حذف محتوى خلاي في الصفوف.rar

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

اللهم اجمع كلمة المسلمينواحمهم يارب من كيد الكائدين اللهم امين

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

اخى عادل بعد اذن السادة الحضور هذا حل بالاكواد جرب واعلمنى دمتم بخير saad.rar

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

الاخ الحبيب رجب جاويش الاخ الحبيب جمال عبدالسميع الف مبرررررررررررررررررروك وفقكم الله

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

استاذى رجب ابلغ رد اقثبسته من ا/سعيد جزاك الله خيرا

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

استاذنا ضاحى الغريب الف الف مبببببببببببروك نهنأ انفسنا الى الامام

للرفع رفع الله قدركم

السلام عليكم ورحمة الله وبركاته كود للمبدع ابوحنين ينشا اوراق من ورقة رئيسية حسب مجال معين عدلت فى الكود ويعمل بكفاءة لكننى ارى التاريخ خاطئ اضفت الية ما يجبره على تنسيق معين S.Range("a5:a5000").NumberFormat = "yyyy/mm/dd" ولكن دون فائدة ارجو ان يدلنى احد الاخوة عن الخظأ تحياتى saad.rar

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

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

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

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