جلال الجمال_ابو أدهم

تحياتى و ايام مباركه
عبدالله الصاري
شكرا لمرورك الكريم

 

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

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

ali mohamed ali
 

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

بسم الله الرحمن الرحيم
( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا )

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

مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى )

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

                 مع تحياتى و تقديرى للجميع

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

لاتنسونا من صالح الدعاء

ECO2_DuClick_store.rar

تحياتى و ايام مباركه
تم تعديل الكود من زميل فاضل
و هو الان يعمل
 

Dim LR, LS, I, R, M As Integer
Dim Arr As Variant, C As Range
M = 3
LS = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheet2.Range("A4:B" & LS).ClearContents
Arr = Array("D", "F", "H", "J", "L", "N")
    For I = LBound(Arr) To UBound(Arr)
        Set C = Sheet1.Columns(Arr(I))
        LR = Sheet1.Cells(Rows.Count, C.Column).End(xlUp).Row
        For R = 5 To LR
        If Not IsEmpty(Sheet1.Cells(R, C.Column)) Then
        M = M + 1
        With Sheet2
        .Range("B" & M) = Sheet1.Cells(R, C.Column)
        .Range("A" & M) = Sheet1.Cells(R, C.Column).Offset(0, 1)
        End With
        End If
        Next
    Next

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

تحياتى و ايام مباركه
كان الكود يعمل و الان فيه مشكله
ماهو التعديل على الكود ليعمل كما هو مطلوب بالمرفق
و شكرا لحضرتك أ/ابراهيم الحداد 

نقل كود و اسم الصنف من عدة اعمده لعمود واحد حسب المجموعه.rar

أحمد يوسف

مهند محسن

محمد يوسف

جزاكم الله خيرا على مروركم الكريم

جزاكم الله خيرا على مرورك الكريم

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

تحياتى و ايام مباركه
احمد غانم
aghanem2003
جزاكم الله خيرا على مرورك الكريم

ali mohamed ali
جزاك الله خيرا على مرورك الكريم

بسم الله الرحمن الرحيم
( وأشرقت الأرض بنور ربها ووضع الكتاب وجيء بالنبيين والشهداء وقضي بينهم بالحق وهم لا يظلمون )

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

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

لاتنسونا من صالح الدعاء

Trial Balance_2018_ECO_2II.rar

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

تحياتى و ايام مباركه
مرفق ملف اكسيل للمطلوب

تعديل لنسخ البيانات بدون فراغات بشيتات الترحيل.rar

تحياتى و ايام مباركه
كيف يكون نسخ البيانات فى الشيتات بدون فراغات

[
Worksheets("___________").Range("A5:B5000").Copy Worksheets("_____________").Range("A5:B5000")
Worksheets("____________").Range("C5:C1200").Copy Worksheets("_____________").Range("A7")
Worksheets(______________").Range("D5:D2500").Copy Worksheets("___________").Range("A7")
    Application.CutCopyMode = False
End Sub
 ]

ما شاء الله عليك شوقي ربيع
هل من الممكن ان يتم عمل BOLD لـ FONT بالتكيست ليكون اوضح من كده
فى مربعات الجزء الايسر 
تحياتى و ايام مباركه

الله يجعله فى ميزان حسناته

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

تحياتي و ايام مباركه

تحياتى و ايام مباركه
سبحان الله و بحمده
مرفق برنامج بسيط جاهز للطباعه على شيكات بنك التجارى الدولى_مصر_CIB_اصدار دفاتر 2018
مميزات البرنامج
يتم التفقيط تلقائى بالجنيه المصرى
كود بحث و اضافه دبل كليك عن المستفيد
امكانية اضافة عدد لا نهائى من البنوك مع ضبط ابعاد الشيك
كود طباعه للشيك
لا تنسونا من صالح الدعاء
 

برنامج الطباعه على Check_cib_2018.rar

شوقي ربيع استاذنا الفاضل
جزاك الله خيرا

محمد طاهر استاذنا الفاضل
وفقك الله و جزاك الله خيرا

 

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