حمادة عمر

رمضـــان كـــريـــم

رمضـــان كـــريـــم

رمضـــان كـــريـــم

رمضـــان كـــريـــم

رمضـــان كـــريـــم

رمضـــان كـــريـــم

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

رمضـــان كـــريـــم

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

رمضـــان كـــريـــم

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / احمد مجدى بارك الله فيك ورمضان كريم بالنسبة لهذا الطلب ... تم تنفيذه كما تريد وكما فهمت انا ويتم ذلك من خلال خصائص التكست نفسه في الفورم من الخيار Tabindex كما في الصورة التالية ===================================== تم تنفيذ ذلك الطلب كما تريد =========================== بالنسبة للتعديل علي ما اذكر انك الذي طلبت ذلك في موضوعك الاصلي ... ولكن يمكنك ايضا تعديل البيانات التي لا يمكن تعديلها ايضا وذلك بالضغط علي زر جديد الذي تم تنفيذه كما سبق ذكره ======================== تم تنفيذ ذلك الطلب ارجو من الله ان يكون تنفيذ الطلبات كما تريد تماما رمضان كريم جزاك الله خيرا الايصالات-sama.rar

رمضـــان كـــريـــم

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

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / أبوحازم بارك الله فيك يتم ذلك باستخدام الاكواد ومثلا باستخدام الكود التالي قم بتجربة ذلك قم بالادخال في اي من خلايا العمود A سيظهر التاريخ تلقائيا في العمود B ولا يتغيير بتغيير التناريخ في الجهاز جرب تغيير تاريخ الجهاز وشاهد النتيجة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub ارجو ان يفي بطلبك جزاك الله خيرا ++ييي.rar

رمضـــان كـــريـــم

الاخ الكريم / Islam_4a بارك الله فيك تفضل اخي المطلوب يتم لصق النتيجة للخلية المنسوخة في اي خلية في الملف تريدها انت وذلك بالضغط دبل كليك علي اي خلية تريد اللصق فيها بدون ظهور الزر وذلك باستخدام الكود التالي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Sheets("sheet1").Range("A1").Copy ActiveCell.PasteSpecial End Sub ارجو ان يكون ذلك هو طلبك وكما تريد وفي انتظار ردك واي تعديلات معك دائما باذن الله جزاك الله خيرا -sama-كود نسخ لخلية معينة.rar

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / وضاح محمد بارك الله فيك ع السريع كدة ... عشان الصيام جرب الملف التالي لحفظ الملف بالتنسيق المطلوب xlsx من خلال الكود التالي Sub copy_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("ورقة1").Range("B3").Text With ActiveWorkbook ActiveWorkbook.Worksheets.Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xlsx" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub ارجو ان يفي بطلبك اخي الكريم حفظ ملف باسم خلية معينة.rar

الاخ العزيز / الشيباني اتمني مزيدا من التوضيح بالنسبة لـ (( انشاء قائمة جديدة )) حيث انه من الواضح انك تقصد شيئا وانا اقصد شيئا حيث ان ما فهمته انا من البداية انك تريد فاتورة بعدد صفوف اكبر من الموجود في مثال الشرح اكثر من 15 ( كما طلبت ) .. تم تنفيذ ذلك فالفورم السابق به عدد 20 صف للتسجيل بالفاتورة وأن تريد عمل استعلام في الفاتورة باستخدام الكومبوبكس ( تم تنفيذ ذلك ) وانك تريد زر تسجيل جديد لتسجيل بيانات فاتورة جديدة ( تم تنفيذ ذلك ) فبرجاء مزيد من التوضيح للطلب ... او قم بتصميم فورم من جديد بالشكل الذي تريده ونضع اكواده سويا حسب رغبتك وححسب طلباتك وكما تريد عشان عاوزين نركز شوية ... عشان صايمين بقا .... هههه تقبل تحياتي اخي العزيز جزاك الله خيرا

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

رمضـــان كـــريـــم

لاخ الكريم أ/ قنديل الصياد بارك الله فيك وجزاك خيرا علي مشاركتك الجميلة والمفيدة ومن تقدم الي تقدم ان شاء الله

رمضـــان كـــريـــم