ibn_egypt

اخى الفاضل تفضل الملف المرفق لعل به طلبك تحياتي التحكم في ادخال بيانات في خلية.rar

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

اخى الفاضل انا فهمت ده من كلامك "ممكن المساعدة في جمع ماهو ملون بالعمودB ووضعه في العمودA " طب حضرتك عاوز تجمع ايه طيب .. ما تستخدم دالة الجمع العادية وانت فعلا عاملها في الشيت ؟؟؟؟؟ تحياتي

أخى الفاضل تفضل الملف المرفق .. تم اضافة الدالة الرائعة للأستاذ القدير أبو القبطان SumColorValue .... وتم اضافة شيت به كافة أرقام الألوان ... كل ما عليك ان تنسق الخلايا بأى لون تختاره من شيت الألوان ColorNo .... ثم تذهب الى الخلية التى تريد الجمع فيها وتكتب =SumColorValue(B4:B14,22) حيث أن من B4:B14 هو النطاق المراد جمعه و 22 هو رقم اللون للخلايا >> هنا سيجمع الخلايا الملونة فقط تحياتي SumColorValue.rar

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي Book2.rar

UserNameFunction.rar

اخى الفاضل أبو حنين هتزعل منك الأستاذ ياسر كده، الكود موجود بمكتبة الصرح .. مرفق الملف للتوضيح .. وتستطيع الاطلاع على آخر إصدار من مكتبة الأكواد من هنا المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد تحياتي UserName.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي الشيكات المستحقة.rar

اخى الفاضل بنفس الطريقة بالضبط يتم اخفاء او اظهار الصف مرة أخرى، لكن لا اعلم هناك خلل في الملف الذي قمت بارفاقه بمجرد تشغيله عندي يغلق الاكسل بأكمله فقمت بتصميم ملف آخر لتوضيح الفكرة لك تحياتي Hide&Unhide.rar

أخى الفاضل يعني ايه فورم دائري، عاوز الفوم نفسها تاخد شكل دائرة والا عاوز ترسم دائرة داخل الفورم والا ايه تحياتي

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

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

اخى الفاضل أ.الجموعي على اى اصدار اوفيس تعمل .. لا يوجد لدى اى مشكلة ... والكود يمسح البيانات قبل ان يحضر البيانات الجديدة حدد على الخلية A6 وتأكد أن البيانات بتنسيق جدول ولها الاسم KATABLE كما في الصورة او ممكن تريح نفسك وتستخدم الملف المرفق .. حيث تم تحويل الجدول الى نطاق عادى تحياتي ahmad.rar

أخى الفاضل أ.الجموعي لا أجيد الشرح ولكن هذه محاولة مني لإيصال الفكرة...أرجو أن أكون وفقت في ذلك Sub GetUniques() 'عند حدوث أى خطأ يذهب الى 1 'وهناك ننهي الكود On Error GoTo 1 'تعريف المتغيرات Dim S As Object, c, m As Variant, i, k, LastR, LastR2 As Long, ws, ws2 As Worksheet Application.ScreenUpdating = False 'تعريف ورقة العمل التى سنجلب منها القائمة المنسدلة Set ws = ThisWorkbook.Sheets("المبيعاتSales") 'تعريف ال 'Scripting Dictionary 'الذي سيحوي البيانات الفريدة Set S = CreateObject("Scripting.Dictionary") 'تعريف الورقة التى ستكون بها القائمة المنسدلة Set ws2 = ThisWorkbook.Sheets("كشف حساب عميل") 'ايجاد اخر صف بالورقة التى سنحضر منها البيانات LastR = ws.Cells(Rows.Count, 4).End(xlUp).Row 'عمل حلقة تكرارية من بداية النطاق الذي به البيانات حتى اخر صف بهذا النطاق 'القيم الفريدة يتم وضعها في ال 'Scripting Dictionary 'حتى يتم ايجاد البيانات بدون أى تكرار m = ws.Range("D4:D" & LastR) For k = 1 To UBound(m, 1) S(m(k, 1)) = 1 Next k 'أصبح لدينا الآن 'Scripting Dictionary 'يحوي القيم الفريدة في النطاق الذي حددناه 'نذهب الى ورقتنا الأصلية التى ستحوي القائمة المنسدلة 'نمسح البيانات من 'z500 to z700 ws2.Range("Z500:Z700").ClearContents 'نحذف القائمة المنسدلة الموجودة بالخلية 'F1 ws2.Range("F1").Validation.Delete 'بنقول هنا بداية من 'Z500 'وبطول عدد القيم الموجودة بال 'Scripting Dictionary 'قم بكتابة القيم الموجودة به ws2.Range("Z500").Resize(S.Count) = Application.Transpose(S.keys) 'كده البيانات الفريدة أصبحت موجودة لديك بالشيت 'بداية من الخلية 'Z500 'نشوف قيمة آخر صف بعد ان تم وضع البيانات LastR2 = ws2.Cells(Rows.Count, "Z").End(xlUp).Row 'يتم عمل قائمة منسدلة في الخلية 'F1 'بدايتها الخلية 'z500 'ونهايتها 'z&LastR2 'الذي حصلنا عليه With ws2.Range("F1").Validation .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=$Z$500:$Z$" & LastR2 'تجاهل الفراغات في القائمة المنسدلة .IgnoreBlank = True .InCellDropdown = True End With Application.ScreenUpdating = True 1 End Sub تحياتي

انظر في حدث ال WorkSheet_Activate أخى الجموعي بنفس الورقة ( كشف حساب عميل ) تحياتي

الحمد لله، أخبرنا أين كان الخلل لديك . أعتقد أنه في اسم الورقة ؟؟؟ تحياتي

اخى الفاضل بعد إذن أخى الكريم أ.الجموعي، فحله منتهي البساطة والروعة .. ولإثراء الموضوع مرفق أيضا حل آخر تحياتي ahmad.rar

اخى الفاضل جرب الملف المرفق لربما به ما طلبت .. لو تريد كتابة اى وقت اكتبه كرقم 700 تعني 7:00 .... 820 تعني 8:20 تحياتي EM.rar

اخى الفاضل حتى يتم عمل ذلك فلابد ان يكون هناك معيار لمعرفة رقم الصف الملون دائما .. فتم وضع رقم "1" في العمود AZ المخفي على نفس الصف الملون حتى يتم معرفة هذا الصف دائما ... الباقي سهل مرفق الملف لعله المطلوب تحياتي ادراج وحذف صفوف.rar

اخى الفاضل فيه طريقة ظريفة اعلمها باستخدام التنسيق المخصص للخلايا .. بمعني انك هتحدد النطاق اللى انت هتكتب فيه الوقت وبعدها Right-Click ثم تنسيق الخلايا Format Cells ومن مخصص Custom ... الصق التنسيق التالى #":"00 كما في الصورة كده لو جيت تكتب وقت في اى خلية وليكن 07:00 مش محتاج تكتب كده اكتب 700 فقط ... عاوز تكتب 07:30 ... اكتب 730 فقط، عاوز تكتب 11:20 اكتب 1120 .. اى الارقام اللى انت هتكتبها هتتحول لتنسيق وقت تلقائي أرجو ان يكون هذا الحل مفيدا لك تحياتي

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي برنامج .rar

اخى الفاضل طالما انت شغال بالمعادلات على طول الخط .. يبقي انسخ المعادلة دي والصقها في الخلية G4 =VLOOKUP($H$1,'تكويد صنف'!$A$6:$E$1999,5,FALSE) مرفق الملف للتوضيح تحياتي برنامج .rar

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