إبراهيم ابوليله

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته تحيه طيبه وبعد يحتاج الكثير منا فى بعض الاحيان عند عمل الفلتر ان يظهر ناتج الجمع بناء على شروط اترككم مع الملف المرفق تقبلو تحياتى sumifs with filter.rar

اخى kmb محاوله جيده وعمل ممتاز ومن تقدم الى تقدم ..................................... واضح ان الدروس كانت مثمره ................... تقبل تحياتى

اخى تابع الرابط الاتى http://www.officena.net/ib/index.php?showtopic=59937&hl= تقبل تحياتى

اخى واستاذنا شوقى ماذا لو اردنا تطبيق الكود على العمود A مع العمود B واستخراج البيانات فى عمودين ايضا For Each ObjCell In Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row).Cells كيف سيكون شكل الكود Range("G" & n).Resize(6, 1).Value = ObjCell.Value تقبل تحياتى

اخى سليم بالفعل هذا الكود اكثر من رائع الاجمل فيه هو البساطه مشكورا اخى الفاضل نسأل الله ان يزيدك من فضله وعلمه ............................................. ولكن نا فائده هذا السطر If lrd = 1 Then lrd = تقبل تحياتى

اخى شوقى فى طلب بسط هو ايه ان فى الكود يتم تحديد اول صف سيتم استخراج البيانات فيه عن طريق المتغير N الى هو مرتبط بعدد مرات الاستخراج اى الرقم 4 لكن لو عدد مرات الاستخراج 6 وان عايز ان بداية الاستخراج تكون من الصف 3 ممكن تقولى شكل الكود هيكون ازاى تقبل تحياتى

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

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

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

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

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

الاخوه الافاضل اريد كود يقوم بتكرار ادخال البيانات الموجود فى العمود بالشكل الموضح فى الشيت المرفق تقبلو تحياتى Book1.rar

اخى اى انك استخدمت برامج كسر الحمايه صح ام لا تقبل تحياتى

اخى نسيت أنبه إلى أن الباسورد 123 تقبل تحياتى

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

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته مع اننى ادرك تماما ان هناك الكثير من اساليب كسر الحمايه الا اننى اصر على تقديم هذه الفكره لعلها تكون مفيده ............................................................. الموضوع ببساطه اننى قمت بوضع عده شروط لفتح الملف ................................................ الشرط الاول وهو عدم الاتصال بالانترنت وفى هذه الحاله يتم اعطاء المستخدم نسخه تجريبيه تنتهى بعد 30مره من الاستخدام ثم عند فتح الملف فى المره 31 يتم ظهور رساله تفيد بانتهاء النسخه التجريبيه وان يجب الاتصال بالانترنت لفتح الملف او الضغط على زر نعم اذا كان لديك رقم تحديث النسخه ثم عند الضغط على زر نعم يتم ظهور فورم به ارقام للدخول قم قم بضرب اول 3 ارقام من اليمين فى اخر رقمين من اليسار+249 هنا يتم اعطاءك نسخه جديده ل 30 مره ............................................................................. الشرط الثانى هو ان يكون لديك انترنت هنا تكون النسخه صالحه للاستخدام لمده سنه بعد السنه يتم ظهور الفورم للتجديد فى حالة ادخال الرقم الصيح تحصل على سنه اضافيه وهكذا وفى حالة تغير تاريخ الجهاز وعدم مزامنته مع التاريخ الفعلى تظهر رساله تفيد بانه سوف يتم غلق الجهاز لضبط على التاريخ فى حالة التلاعب بتارخ الجهاز من اجل الدخول لن تتمكن من الدخول مطلقا ............................................................................................................................................................................ ايضا تم اضافة كود يقوم باخفاء جميع الاوراق ماعد ورقه تسمى بشاشة ترحيب وذلك عند غلق الملف وعند الفتح يقوم باظهار جميع الاوراق ماعدا هذه الورقه اى انه فى حالة عدم تمكين الماكرو سوف يتم فتح الملف على ورقه واحده الا وهى شاشه الترحيب ............................................................ اسيبكم مع الملف عزرا النسخه المرفقه مقفوله ولكن سيتم ارفاق الملف مفتوحا بعد رؤيه المشاركات تقبلو تحياتى ربط الملف بالانترنت ورقم الهارد لفتحه.rar

اخى ياسر اشكرك على الاهتمام تقبل تحياتى

اخى ياسر اشكرك على الاهتمام بارك الله فيك بقالى فتره ابحث على الانترنت ولكن بالفعل اليوم حصلت على كودين وليس كود واحد كما كنت اطمع اليك الكود الذى حصلت عليه Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef dwflags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Function IsInternetConnected() As Boolean Dim L As Long Dim R As Long R = InternetGetConnectedState(L, 0&) If R = 0 Then IsInternetConnected = False Else If R <= 4 Then IsInternetConnected = True Else IsInternetConnected = False End If End If End Function 'You would call this in your code with something like Sub AAA() If IsInternetConnected() = False Then MsgBox "PC DOES NOT connect TO INTERNET " ' connected End If If IsInternetConnected() = True Then MsgBox "PC HAS connect TO INTERNET" ' no connected End If End Sub تقبل تحياتى

الاخوه الافاضل هل هناك كود يخبرنا بان الجهاز متصل بالانترنت ام لا تقبلو تحياتى

اخى سليم تحيه طيبه لك الكود رائع بسيط يتسم بالمرونه والسهوله تقبل تحياتى

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

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

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

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

اخى شوقى بالفعل الملف يعمل بصوره جيده جدا ولكن فى المره الاولى عند حدوث الخطأ استعنت انا بالكود On Error Resume Next فهل بالفعل هذا السطر له علاقه بحل المشكله ام لا ----------------------------------------------------- الاهم اخى الكريم ماذ لو اردنا التطور اكثر فاكثر ......................................... ماذا لو كان لدينا اكثر من عمود نريد البحث فيه العمود الاول مثلا يكون البحث بالاسم العمود الثالث بحث برقم الموظف العمود السادس بحث برقم السياره ----------------------------------- تقبل تحياتى