twaiti

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

السلام عليكم ورحمة الله ارجوا المساعدة في الملف المرفق اريد ان تجتمع مجتويات الخلايا في خانة واحدة twaiti.xlsx

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

مالاحظته ان لديا ملفات امتدادها xlsx وهذا الامتداد الاعمده فيه موجوده من بعد iv والملف الذي انا بصدده الامتداد فيه xls هل يعني ذلك ان الملف تحتاج الى تحويل الى التنسيق xlsx

الاوفس المحمل عندي في الكمبيوتر 2013 افتحه عندك اذا كان الاوفس لديك حديث هل تقصد ان الملف تم انشائه باستخدام اوفس 2003

لديا ملف اكسل لا واحتاج في صفحة اليومية يكون عددها اكثر من الموجود حيث ان نهاية عمود في الصفحة IV ارجوا المساعدة لاظهار باقي الاعمدة حيث ان احتاج اعمدة ولم استطع ادارج عمود الملف مرفق لكم مديرية ارحب 2020م.rar

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

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim My_String As String My_String = "" If Not Intersect(Target, Range("A:A")) Is Nothing Then m = Target.Count c = [AA1] k = tt If IsEmpty(k) Then GoTo 1 If m * c >= 1 Then Application.EnableEvents = False my_pass = Application.InputBox(" لا يمكن التعديل في هذه الخلايا.... الا بحالات خاصة تتطلب كلمة مرور", "password") If my_pass <> "pass" Then If Not (IsArray(k)) Then My_String = k Else For x = LBound(k, 1) To UBound(k, 1) My_String = My_String & k(x, 1) & "," Next My_String = Left(My_String, Len(My_String) - 1) End If MsgBox "اسف كلمة المرور غير صحيحة" & Chr(10) & " سيتم اعادة الخلايا الى قيمتها الاصلية: " & Chr(10) & My_String, _ vbMsgBoxRtlReading + vbInformation + vbMsgBoxRight, "ســليم حاصــبيّا يبلغك :" Application.Undo GoTo 1 End If End If End If 1: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tt = Selection.Value End Sub هدا هو الكود

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

مشكور على مجهودك واتمنى لك التوفيق

مشكور على مجهودك الرائع والى الامام

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

مشكور على المجهود الرائع

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

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