نجوم المشاركات

السلام عليكم ورحمة الله وبركاته تحية لك ولاستاذنا ابو عيد اعتقد وحسب فهمى لطلبك انك تريد استدعاء البيانات من شيت mg_elec الى شيت ntega حسب الاختيار من W3 فاذا كان هذا طليك اليك الملف وان كان غير ذلك ارجو مزيد من التوضيح لكما ولاحبائنا بالمنتدى كل التقدير والاحترام ntega1_elec_new.xlsb

وعليكم السلام تفضل هذا الملف ربما يفيدك ويكون به المطلوب ان شاء الله وبالتوفيق المحطة.xlsm

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

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

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

أخى ابوحبيبه السلام عليكم ورحمة الله وبركاته بعد إذن أساتذتى الخبراء الأفاضل / ابو عيد & عبدالله بشير عبدالله مرفق ملف بالمعادلات للتجربة من أفكار الخبراء جزاهم الله عنا خير الجزاء OK ntega_elec_new.xlsb

السلام عليكم ورحمة الله وبركاته عمل ممتاز تمت التجربة و الاستخدام

ما شاء الله لا قوة إلا بالله أستاذنا الكبير Foksh الفكرة أكثر من رائعة والنتيجة فوق الممتازة .. والكود يعمل بمنتهى السرعة والتشفير مرضي جدا يتبقى عدة استفسارات مشكورا .. هل من الممكن عمل نموذج (غير منضم) للتسجيل في الجدول المشفر ؟ وهل من الممكن عمل نموذج للتعديل .. يستدعي البيان بشكل مفهوم وبعد التعديث يتم الحفظ (التحديث) بشكل مشقر ؟ وهل من الممكن عمل تشفيق للحقل الرقمي أو حقل التاريخ ؟ مع خالص التقدير والشكر أستاذنا الكبير ؛؛؛

وعليكم السلام ورحمة الله وبركاته الكود به مشكلتان الاولى اسم الشيت بدل Sheet30 يكون Sheets("Sheet30") الثانية اسم الليبل بدل Label3 يكون Label4 اليك الملف وبه التعديل MAM2.xlsm

وعليكم السلام نعم يمكنك فمثلا على افتراض ان هذا الحرف موجود بهذا النطاق (A2:H10) فستكون المعادلة كالتالى : =COUNTA(A2:H10)

احسنت بارك الله فيك ووسع الله فى رزقك

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT(--(COUNTIFS(C3:G3,C3:G3,C3:G3,"<>"&"ح")>1)) عدد مرات تكرار الاسم في كل صف وكل عمود معدل1.xlsx

اللهم صلى وسلم وبارك عليك سيدى يا رسول الله ... أكرمك الله استاذ حسين وزادك الله من فضله

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

ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك =INDEX(القائمة!$C:$F,MATCH(C6,القائمة!$B:$B,0),MATCH(D5,القائمة!$C$6:$F$6,0)) المطلوب1.xlsx

وعليكم السلام-جرب هذه المعادلة =IF(COUNTIF($B$1:$D$3,A8),A8," هذ الاسم غير موجود") Search+Vlookup1.xlsx

ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله

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

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

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

وعليكم السلام-تفضل Option Explicit Private IsArrow As Boolean Private Sub ComboBox1_Change() Dim i As Long If Not IsArrow Then With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown If Len(.Text) Then For i = .ListCount - 1 To 0 Step -1 If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i Next .DropDown End If End With End If End Sub Private Sub ComboBox1_DropButtonClick() With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown End With End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Debug.Print Time; "KeyDown"; KeyCode; ComboBox1.ListIndex; ComboBox1.ListCount, ComboBox1.Value IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown) If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value ElseIf KeyCode = vbKeyTab Then With Me.ComboBox1 If .ListIndex = -1 Then .Value = .List(0) Else .Value = .List(.ListIndex) End If End With KeyCode = vbKeyReturn End If End Sub القائمة بالكومبوبوكس1.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم طلبك ان شاء الله Monthly Summery.zip

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

؟؟؟؟؟؟؟؟؟؟ هل تحب منتديات اوفسنا.rar الكود.rar

جرب الملف المرفق فأن لم يشتغل فقم بتمكين وحدات الماكرو فإن لم يحدث شيء أعد تثبيت نسخة الأوفيس واختر نوع التثبيت تام ابراهيم.rar ابراهيم.rar

جرب هذا الملف t1 Salim.rar

تفضل هذا الرابط فيه شرح للمطلوب بالكامل تقبل تحياتي Custom Lists.rar

تتبع " أخى " هذا الرابط بإذن سوف تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=34337

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

السلام عليكم جرب المرفق ملاحظة : التعديل يشمل طريقة العرض فقط بمعني ان ضغط زر نسخ اليست في ملف جديد سوف ينسخ كل الاعمدة . تحياتي +ملف بحث بفورم ممتاز.rar