عبدالله المجرب

وانت وجميع الاخوة بخير

شاهد المشاركة في هذا الرابط http://www.officena.net/ib/index.php?showtopic=34270&#entry179387 === الملف المرفق في المشاركة به ثلاثة ملفات شاهد الملف الذي اسمة 1

السلام عليكم العنوان مخالف نرجو مستقبلاً تعديل العنوان ===

للرفع

الاستاذ الخالدي اعمال مميزة وهادئة مرورك كا النسمة بلا اثر لكنه ذو فائدة عظيمة بارك الله فيك وكل عام وانت بخير ابواحمد

السلام عليكم اخي الشهابي ولو ان تعديلي لا يقارن بعلم الاستاذ عبدالله باقشير لكن جرب هذا التعديل Sub Kh_Clear_Rows() On Error Resume Next Dim LastRow As Integer, T As Integer With Range(MyRng_Copy) T = Application.InputBox(Prompt:=" ادخل عدد الصفوف التي تريد حذفها " & Chr(10) & "عدد الصفوف الافتراضية " & 1, Title:="ادراج عدد محدد من صفوف ", Default:=1, Type:=1) LastRow = Range(.Cells(1, MyColumn), .Cells(1, MyColumn).End(xlDown)).Rows.Count .SpecialCells(xlCellTypeConstants).ClearContents If LastRow = 0 Or T > LastRow Then GoTo 1 .Cells(LastRow - T + 1, 1).Resize(T, .Columns.Count).Clear End With 1: MsgBox "تم المسح بنجاح", 524288 + 1048576, "الحمدلله" On Error GoTo 0 End Sub

السلام عليكم حسب فهمي للمطلوب جرب هذا التعديل Sub FindShow() s = Range("M1").Value If s = "ملاحظـــات" Then Exit Sub Else For Each cl In Range("A2:A" & [A1000].End(xlUp).Row + 1) If cl.EntireRow.Hidden = True And cl = s Then cl.EntireRow.Hidden = False Next End If Range("M1").Value = "ملاحظـــات" End Sub

المطلوب بصراحة غير مفهوم

رايي ان هذا يخص مؤسسة عسكرية بها من المعلومات اﻷمنية ما يجعل الخوض بها صعب وتتطلب برامج مختصة بهذأ المجال والله اعلم

العفو وان شاء الله تكون المعلومة صحيحة

السلام عليكم بعد إذن الاستاذ عبدالله أحب ان اضع ما اعرف حتى يصحح لي اذا كانت المعلومة خاصئة او ناقصة === كما هو معروف فدالة Msgbox تعتمد على عدة متغيرات 1. نص الرسالة وهنا الاستاذ عبدالله استخدم دالة IIF الشرطية ودالة تتكون من ثلاثة متغيرات أ. الشرط وهنا هو قيمة المتغيير i ب. النتيجة في حالة True ج. النتيجة في حالة False == 2. الازرار وهنا في الوضع الافتراضي سيكون الزر هو زر OK لذا الاستاذ عبدالله لم يحدد أزرار والارقام هنا (524288 + 1048576) تعني: 1. 524288 هذا لمحاذاة نص الرسالة يمين 2. 1048576 لمحاذاة عنوان الرسالة يمين 3. عنوان الرسالة والله اعلم ====

ما شاء الله كود بحث رائع جداً وسريع

نفس الشيئ عندي

يمكن يكون الماكرو الذي تريد تشغيله غير موجود او تمت اعادة تسميته

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

السلام عليكم جرب هذا الكود Sub ragab() [c2:p21].ClearContents For i = 2 To 21 For Each cl In [c1:p1] For Each cel In Sheet3.[D5:D17] If Cells(i, 1) = cel And cl = cel.Offset(0, 1) Then Cells(i, cl.Column) = Cells(i, cl.Column) + cel.Offset(0, 2) End If Next Next Next End Sub

الاستاذ الفاضل ابو خليل بارك الله فيك ونفع بعلمك

السلام عليكم بعد اذن الاساتذة الكرام بصراحة اعجبني الحل البسيط للاستاذ بن عليه واقتبس ======================================== حل ممتاز واستخدام رائع للصفيف من الاخ رجب واقول لاخي فضل يختلف عمل filter عن countif وهي كما شرحها الاخ رجب واذا اردت الحل بدالة countif اليك الحل Sub Abu_Ahmed() Dim cl As Range For i = 2 To 21 For Each cl In [C1:P1] If Application.CountIf(Cells(i, 2), "*" & cl & "*") >= 1 Then Cells(i, cl.Column) = cl Next cl Next i End Sub

الاستاذ الفاضل عبدالله باقشير اعمال مميزة ردوود وافيه بارك الله لك وزادك من علمه ونفع بك === مبارك عليك الشهر الفضيل وجعلنا الله واياك من عتقائه

هل تقصد هكذا checkbox.rar

بارك الله فيك اخي الزبيري نتمى الاستمرار بهذا النشاط

بارك الله فيك اخي الزبيري

ضع مرفق به ااكود

نفس المشكلة لاحد زملائي بالعمل

ردوود رائعة ومتنوعة بارك الله فيكم اخواني