وائل يونس سلامي

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

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

الأخ الحبيب kotiba تحياتي لك إليك الملف بعد إضافة الكود والتعديل عليه جربه و أبلغني إن كان هو المطلوب و أرجو ذلك و الدعاء لصاحبه و من قام بشرحه و أفادنا جميعا به المصنف2.zip

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

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

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

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

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

أخي الكريم أرجو الاطلاع على الملف المرفق أرجو أنو يكون هو المطلوب كشف الحساب.zip

أخي AlSalim1 إليك المرفق أرجو أن يكون المطلوب هذا كما فهمت أنا من شرحك سعر البنزين.zip

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

الأخ العزيز البغدادي بطريقة أخرى - بعد إذن الأساتذة الغوالي يمكنك إضافة خلية لمجموع عمود المتبقي وتضع المعادلة C3/$C$1)*$D$1)= في D3 وتسحب نزولا بحيث إذا تمت إضافة اسماء جديدة ومبالغ جديدة يعاد التوزيع من جديد أرجو الاطلاع على المرفق تحياتي المصنف1.zip

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

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

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

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

أخينا في الله - الله يسعد صباحك و مساك ويديم عليك الصحة و العافية ويزيدك من علمه هل من الممكن شرح كيف تم هذا التنسيق المذهل ..................... يا مذهل

الأخ ( أخوكم في الله ) الحبيب تحياتي وكل الشكر والامتنان للمساعدة والظرافة واللطافة والله يديم عليك العلم و الصحه و العافة بعدين ما عاش اللي يرجعك مكسور الخاطر يا ملك انت بس نوي تجي عسوريا و المشاوي بتكون ناطرتك عباب المطار و سوريا كلا بترحب فيك وبكل الحبايب بهالمنتدى الخيالي و لعلمك الدعوة مفتوحة كان ودي اكتبلك الدعوه بالـ VBA بس المشكلة لساتني مستجد فيها تحياتي وشكري

أخينا في الله السلام عليكم ورحمة الله و بركاته الله يزيدك علم و نور يا معلم بعد ما قرأت الشرح - انت مش لازم تتعزم على طبق سلطة انت لازم تتعزم على مشاوي و كباب و سمك مشوي وفتوش و تبولة و .......... وكم كود VBA تشرحلنا اياهن بهالسهرة الحلوة الله ينور عليك ممنون دقنك أنا ( بالسوري ) يعني كتير بتشكرك و ما بنسى أبدا فضل الأخوة الحبايب .... الأخ الحبيب الأستاذ ياسر و كل من يساهم في المساعدة بارك الله بكم جميعا

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

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

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

الأستاذ العزيز سليم كل الشكر والشكر لا يكفي حماك الله وزادك من علمه

الأساتذة الكرام كل التحيات والتقدير لكم جميعا أرجو التكرم بشرح هذا الكوذ - استدعاء بيانات وهو من إعداد أستاذنا الكبير و العزيز " خبور " كل التحيات والتقدير له ولكم وهذا الكود هو : 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("القيود").[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 "!تم استخراج الكشف المطلوب بنجاح", vbInformation + vbMsgBoxRight, "تم الاستخراج" [B4:E4].ClearContents End If End Sub

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