سيف الدين حسام قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 (معدل) اخى الكريم المفروض لو انت فهمت الشرح المسبق تقدر تعمله ده لوحدك بس انا هديك الخطوط اللى تمشى عليها او بمعنى ادق الفكرة انت شفت ازاى عملنا if مرتين لو شيك او نقدا هيكون نفس الشئ بس مع with هنعمل with تانى بس مع شيت العملاء with Sheet3 وفى النهاية طبعا end with يالا شغل الجمجمه ورينى الهمه تقبل تحياتى تمام الله ينور عليك اعذرنى لأنى مبتدأ ودة برده شطارة فى الشرح بتسيب لنا مساحة اننا ندخل المود ونشغل دماغنا فعلا استاذ الاستاذ ليس من عنده المعلومة ويلقنها ولكن الاستاذ هو من يسهل الشرح للوصول المعلومة تم تعديل يناير 11, 2015 بواسطه سيف الدين حسام 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 يالا ورينى الهمه عايز تعمل المطلوب وتبعت الملف اشوفه تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 الى أستاذى الصقر فى حياتى العملية طوال 11 سنة لم أستفيد من أحد سوى أ/ سامح شميس صاحب مكتب المحاسبة الذى عملت به أ/ أحمد عدلى - مدير مالى عملت معه فى احد الشركات فى بداية حياتى العملية ألأن أصبحوا 3 أشخاص أنضم اليهم أستاذى الصقر الغالى ( اللى أنا مش عارف أسمه ) ؟؟ فعلا عملت المطلوب لكن الترحيل بدأ معى من الصف السابع لماذا خزينة 2222222222.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 انا اخوك حسام عيسى والله لو تدرى فرحتى ازاى دلوقتى انت بجد روعه فعلا صياد ماهر للمعلومه بص يا كبير انت لما فتحت With Sheet4 كان لازم تقفلها بـ End with وبعدين تبدء With Sheet3 وبعدين تقفلها بـ End with الخطا عندك انك قفلت الاولى والتانية فى الاخر والصح انك خلصت وحده تقفلها وتدخل على التانية جرب المرفق وهتلاحظ الفرق انت خلاص بقيت فنان وصياد تقبل تحياتى خزينة 2222222222.zip 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 (معدل) والله لو تدرى فرحتى ازاى دلوقتى انت بجد روعه انا اخوك حسام عيسى بص يا كبير انت لما فتحت With Sheet4 كان لازم تقفلها وبعدين تبدء With Sheet3 وبعدين تقفلها الخطا عندك انك قفلت الاولى والتانية فى الاخر والصح انك خلصت وحده تقفلها وتدخل على التانية جرب المرفق وهتلاحظ الفرق انت خلاص بقيت فنان وصياد تقبل تحياتى أشكرك على تشجيعك لى لكن أنا لسه فى أ - ب مبتدئ لكن الفضل يرجع لك بعد الله تقبل تحياتى لكن معى شيت أخر للترحيل من الفاتورة الى يومية مبيعات - الترحيل به مختلف ممكن شرح أو تبسيط الكود لانى حاولت فهمه لأنه بيرحل جدول فاتورة كامل وليس بيانات محددة فاتورة ويومية مبيعات.rar تم تعديل يناير 11, 2015 بواسطه سيف الدين حسام رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اخى الكريم الحمد لله احنا شرحنا الترحيل من خلايا متفرقه وان شاء الله فى الايام القادمه هنشرح الترحيل على خلايا متتابعه بشكل افقى او راسى فصبر على السمك فالبحر لحد ما يكبر خليك صياد ماهر ان شاء الله الشرح القادم عن كيفية عدم تكرر الترحيل لنفس السند ( يعنى لو جربت الملف السابق ستجد ان كل ما تضغط على الزر سيتم ترحيل السند وهذا غير منطقى لازم يرحل السند مره وحده بس وفى التانية يقول تم ترحيل السند مسبقا ) تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 12, 2015 مشاركة قام بنشر يناير 12, 2015 السلام عليكيم ورحمة الله وبركاته اخى الصقر - أتمنى غيابك عننا اليوم أن يكون السبب خير أنتظرنا حضورك كثيرا ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ مشكلة بعد تسجيل الكود والعمل عليه يختفى المديول ( يمسح بالكامل )- فما المشكلة مرفق الشيت وكذلك الرسالة التى تخرج عند الخروج من الاكسيل زمرفق ايضا الكود ( برنت سكرين ) وكذلك الكود موجود فى اخر شيت بـ WorkSheet تقبل تحياتى سيارات.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 13, 2015 الكاتب مشاركة قام بنشر يناير 13, 2015 أخى الكريم شكرا على سؤالك بارك الله فيك وبخصوص طلبك لازم تحفظ الملف على امتداد XLSM من قائمة اكسيل اختار حفظ باسم ثم اختار Excel Macro _ Enabled Work book تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 13, 2015 مشاركة قام بنشر يناير 13, 2015 (معدل) اخى الكريم الصقر أولا- حمد لله على السلامة نورت الصفحة ياغالى - غالى علشان اسمك على اسمى ثانيا - شكرا على جهدك الرائع - وجزيت عنه خير جزاء من الواهب ثالثا -فعلا عملت اللى قلت لى عليه وتمام اشتغل معايا الماكرو والمديول لم يختفى رابعا - لى طلب فى شيت السيارات أولهم - انا عندى مجموعة شيتات لكل سيارة شيت بأسم رقم السيارة - ورقم السيارة موجود فى الخلية F4 - الشيت المرفق يرحل الى السيارة رقم 953 فقط على اساس With sheet2 - لأن Sheet2 - يخص السيارة رقم 953 - لو عايز من خلال الخلية F4 - أكتب بها رقم السيارة ويتم الترحيل الى الشيت الخاص بالسيارة أقصد الترحيل على اساس اسم الشيت ثانيا - لو فى طريقة ابسط للترحيل فى حالة كون البيانات متتالية كما فى المثال بدلا من ترحيل خلية خلية تقبل تحياتى سيارات 2015.rar تم تعديل يناير 13, 2015 بواسطه سيف الدين حسام رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 17, 2015 الكاتب مشاركة قام بنشر يناير 17, 2015 اخى الحبيب بعد اذن حضرتك الموضوع هو شرح كيفية عمل ترحيل لو عندك شئ غير عنوان الموضوع اعمل موضوع جديد واطلب طلبك وانا تحت امرك او اى من الاساتذه فى المنتدى هيساعدك حتى لا يتم التشتيت على الاخوة اللى عايز يتعلم ويستفيد تقبل تحياتى جرب المرفق هل هو طلبك سيارات 2015.zip 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 (معدل) الاخ الكريم - الصقر شكرا على جهد المبذول حتى لا يتم التشتيت على الاخوة اللى عايز يتعلم ويستفيد - كما ذكرت فأنا معك وكل متابعى الموضوع خطوة خطوة حتى نتعلم الترحيل تقبل تحياتى تم تعديل يناير 17, 2015 بواسطه سيف الدين حسام 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 18, 2015 مشاركة قام بنشر يناير 18, 2015 السلام عليكم الاخ الكريم - الصقر أسأل الله العظيم رب العرش العظيم أن يشفيك شفاء لا يغادر سقما نحن وكل المتابعيين لمنشوراتك فى انتظار باقى الدروس على شيت الخزينة محل الدراسة - بسلسلة علمنى كيف اصطاد - الترحيل ونريد عمل كود لعدم تكرار رقم المسلسل وظهور رسالة تفيد بذلك وكذلك أمكانية أستدعاء أيصال معين والتعديل عليه بعد ترحيل تقبل تحياتى رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 20, 2015 الكاتب مشاركة قام بنشر يناير 20, 2015 الاخوة الكرام يرجى متابعه الرابط التالى http://www.officena.net/ib/index.php?showtopic=58471&hl= شرح الحلقه التكرارية For next والتى يتم استعمالها فى كيفية منع المستخدم من تكرار سند القبض عند الترحيل تقبلوا تحياتى 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 22, 2015 الكاتب مشاركة قام بنشر يناير 22, 2015 الاخوة الكرام اليوم بمشيئة الله سنكمل عملية الترحيل وهنعرف ازاى نمنع المستخدم من تكرار ترحيل سند القبض ففى المره الاولى عند الضغط على زر الترحيل تظهر رساله " تم الترحيل بنجاح " وفى المره الثانية عند الضغط على زر الترحيل تظهر رسالة " تم الحفظ مسبقا" وذلك يتم باستخدم الحلقه التكرارية For next والتى قمنا بشرحها على الرابط التالى http://www.officena.net/ib/index.php?showtopic=58471&hl= اود منكم مراجعه سربعه على المشاركة رقم 48 من الصفحه 3 بالموضوع سنجد اننا وقفنا بالشرح عند هذا الكود Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[ End If If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If End With End Sub سنجد ان اول سطر بالكود وهو Application.ScreenUpdating = False وهو يعنى كما قلنا من قبل تثبيت حركة الشاشه عند عمل الكود **************************************************************************** السطر الثانى من الكود وهو If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub وهو يعنى اجبار المستخدم على ادخال كل بيانات سند القبض فعند عمل الكود يقوم بالتشييك على الخلايا المذكورة لو وجد بها خلية فارغه سيتوقف الكود ويظهر رساله الرجاء ادخال جميع بيانات السند قم الخروج من الكود Exit Sub ***************************************************************************** ثم السطر التالى وهو With Sheet4 وهو يعنى انى انا بقول للكود الاسطر التالية سيكون موجهه الى Sheet4 وهى تعنى الورقه المراد الترحيل البيانات اليها *************************************************************************** السطر التالى من الكود هو Lr = .Cells(.Rows.Count, "D").End(xlUp).Row وهو يعنى تعريف اخر خليه بها بيانات بالعمود D وقمنا بتسميتها LR ويمكن التغيير الى اى حرف او احرف حسب مزاجك ********************************************************************************** بعد كدا الكود بيقوم باختبار الخلية [G6] لو هى نقدى بيقوم بترحيل البيانات حسب الاسطر العمود النقدية ثم اغلاق End if // ولو هى شيك بيقوم بترحيل الاسطر الى عمود الشيكات ثم اغلاق End if المطلوب هنا قبل عملية الاختبار اذا كان نقدى او شيك ان يقوم الكود باختبار هل رقم السند اللى موجودبالخلية [G7] موجود بالعمود B يعنى تم ترحيله مسبقا أم لا يعنى عايزين نعمل كود يقوم بالذهاب الى العمود B بدءاً من الخلية B5 وحتى اخر خلية فى العمود فيها ارقام مكتوبه لو وجد فى اى خليه رقم السند اللى موجود بالخلية [G 7] يظهر لى رساله بان السند تم حفظه مسبقا ويطلع من الكود ازاى نعمل الكلام دا بالبرمجه هيكون من خلال For next For i = 5 To Lr If .Cells(i, "B") = [G7] Then MsgBox "هذا السند تم حفظة مسبقا ": Exit Sub Next عملنا حلقه تكرارية من الصف 5 بالعمود ب الى اخر خلية فى العمود بها ارقام طيب الحلقه دى هتلف على الخليه تشوف وتختبر فيها ايه هتشوف الرقم اللى موجود بالخلية [G7] موجود باى خلية منهم او لا لذالك استخدمنا IF [If .Cells(i, "B") = [G7 لو الخلية وهى Cells ( اى خلية يتم قرائتها باسم العمود ورقم الصف مثلا نقول A4 تكتب هكذا ("Cells(4, "A / رقم 4 هنا هو الصف ورقم 1 هنا هو العمود A طيب فى المثال بنتاعنا معروف العمود وهو B وغير معروف الصف الصف متغيير بالحلقه التكرارية لذالك عملنا حلقه For i = 5 To Lr و i ترمز للصف لذالك كتبنا [If .Cells(i, "B") = [G7 لو حصل الشرط ده يظهر رساله "هذا السند تم حفظة مسبقا " ويخرج من الكود ب Exit Sub وطبعا For دائما تقفل ب next وهيكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row For i = 5 To Lr If .Cells(i, "B") = [G7] Then MsgBox "هذا السند تم حفظه مسبقا ": Exit Sub Next If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" MsgBox "تم عملية الترحيل بنجاح" End If If [G6] = "شيك" ThenIf [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" MsgBox "تم عملية الترحيل بنجاح" End If End With Application.ScreenUpdating = True End Sub ارحو ان اكون وفقت بالشرح ياريت تجربوا عملى حتى تتضح لكم الامور بشكل افضل تقبلوا تحياتى 2 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 22, 2015 مشاركة قام بنشر يناير 22, 2015 الاخ حســام عيسى شــرح بسيط و رائع فعلا استاذ تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 29, 2015 مشاركة قام بنشر يناير 29, 2015 الاخ الكريم & الاستاذ الفاضل الصقر انا الان على الطريق الصحيح - بس لسه صياد صغير على قدى الان اقوم باعداد مشروع عن خلاصة كل الدروس اللى انت تعبت معانا فى شرحهاان شاء سوف أقوم برفعة على الصفحة لتقوم حضرتك بتقييمه لكن الان أنا عطلان على أمران - هما على سبيل المثال 1- فى شيت الخزينة محل الدراسة لو عايز استدعى ايصال معين ويتم التعديل عليه .2- فى شيت الخزينة محل الدراسة نرجوا شرح مديول رقم 4 - الخاص بأستدعاء حركة يوم معين . جزيت خيرا 4444 * ♥ رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 29, 2015 الكاتب مشاركة قام بنشر يناير 29, 2015 اخى الحبيب بخصوص طلبك الاول ابشر من عيونى فى اقرب وقت باذن الله بخصوص طلبك الثانى مش عارف اى ملف تقصد لو تقصد ملف جديد اين هو // ولو تقصد الملف الخزينة فليس به مودويل 4 تقبل تحياتى رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 29, 2015 مشاركة قام بنشر يناير 29, 2015 اخى الحبيب بخصوص طلبك الاول ابشر من عيونى فى اقرب وقت باذن الله بخصوص طلبك الثانى مش عارف اى ملف تقصد لو تقصد ملف جديد اين هو // ولو تقصد الملف الخزينة فليس به مودويل 4 تقبل تحياتى أقصد موديول رقم 4 - بهذا الشيت خزينة - 2015.rar 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر فبراير 1, 2015 مشاركة قام بنشر فبراير 1, 2015 السلام عليكم ورحمة الله وبركاته الشكر الجزيل لـ الاخ الكريم حسام عيسى الشكر الجزيل لـ الاستاذ / طارق محمود الشكر الجزيل لأعضاء المنتدى والقائمين عليه حقا لو لا جهد الاخ حسام عيسى - لما توصلت لهذا العمل حقا لو لا هذا المنتدى لما توصلت لهذا العمل أرفق لكم مشروع التعلم الذى أحاول تصميمه بعد الاستفادة من شروحات الاخ حسام عيسى أســال الله العلى القدير أن تتواصل ولا تنقطع وهو عبارة عن يوميات مساعدة - بالطريقة الفرنسية - هى معقدة بس أنا بعشقها وكنت بشتغل عليها يدوى من 10 سنوات حيث أنه يتم تسجيل حركة الخزينة بالكامل ويتم توجهيها فى يومية الصندوق ـ ليتم ترحيلها الى قاعدة البيانات حيث أنه يتم تسجيل حركات البنوك ويتم توجهيها فى يومية البنوك ـ ليتم ترحيلها قاعدة البيانات حيث أنه يتم تسجيل قيود التسويات يتم توجهيها فى يومية التسويات ـ ليتم ترحيلها قاعدة البيانات حيث أنه يتم تسجيل فواتير البيع موضحا بها مندوب البيع والمخزن المنصرف منه لأنها ستؤثر على أرصدة المخازن ويتم ترحيلها فى يومية المبيعات - ويتم اعداد القيد تلقائيا ويتم ترحيله الى قاعدة البيانات حيث أنه يتم تسجيل فواتير الشراء موضحا بها مسؤل الشراء والمخزن الذى استلمها لأنها ستؤثر على أرصدة المخازن ويتم ترحيلها فى يومية المشتريات - ويتم اعداد القيد تلقائيا ويتم ترحيله الى قاعدة البيانات ومن قاعدة البيانات يتم اعداد ميزان مراجعة بالمجاميع والارصدة- وكذلك الموازين الفرعية - والاساتذة المساعة - أنا فعلا بأعملهم من خلال الدالة Sumifs - من غير الاكواد لكنه ينقصنى بعض الامور الطلب الاول عايز استدعى قيد وأقوم بالتعديل عليه الطلب الثانى عايز استدعى بيانات من قاعدة البيانات من خلال عدة شروط مثلا البيانات بين تاريخين - مع اسم الحساب مع مركز التكلفة - لأقوم بتفعيل ميزان المراجعة وحسابات الاستاذ جزاكم الله خيرا 2015يوميات.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر فبراير 1, 2015 الكاتب مشاركة قام بنشر فبراير 1, 2015 اخى الحبيب فى البدايه اود ان أهنئك على هذا المجهود الرائع واتمنى منك الاستمرار فى هذا الابداع ارجوا من حضرتك ان تفتح موضوع جديد وتوضع به الملف وان شاء الله انا معك بالملف الى النهاية الين يصل الى ما تصبوا اليه تقبل تحياتى رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر فبراير 1, 2015 مشاركة قام بنشر فبراير 1, 2015 أخى وأستاذى حسام عيسى تمام فكرتك وصلت بس محتاجين جهودك معانا تقبل تحياتى وشكرى 1 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر فبراير 1, 2015 مشاركة قام بنشر فبراير 1, 2015 (معدل) ا / الصقر بجد و الله ما اروعك محتاجين كتير من هذه السلاسل بالشرح المفصل للمبتدئين خصوصا اكواد الترحيل لانها متنوعة و مختلفة و يا سلام لو تم عمل ورقة pdf مع نهاية الدرس و ليكن لدرس الترحيل مثلا pdf و لدرس اخر pdf اخر و شكرا الف شكر تم تعديل فبراير 1, 2015 بواسطه صلاح الصغير 1 رابط هذا التعليق شارك More sharing options...
محمد لطفى قام بنشر فبراير 3, 2015 مشاركة قام بنشر فبراير 3, 2015 رائع جدا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر أكتوبر 15, 2015 الكاتب مشاركة قام بنشر أكتوبر 15, 2015 للرفع ليستفيد منه الاعضاء الجدد 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أكتوبر 15, 2015 مشاركة قام بنشر أكتوبر 15, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الغالي " الصّقر " على إعادة رفعك لهذا الكنز الثمين .. كيف لي لم أنتبه له من زمان ..!!؟؟ أنا أحد هؤلاء الذين كانوا بصدد البحث عن مثل هكذا دروس في التّرحيل .. جزاك الله خيرًا و زادك من علمه و فضله . فائق إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.