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

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

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

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

Dear colleagues , I have been searching for someone might be able to help with this matter since 2 months , I didn't find . I'm just seeking your help in edit the vba code to : save many lines in one ID see the below example please : ID 0001 Debra Hospital otoscope 10 EA 100 USD ID 0001 Debra Hospital ophthalmoscope 15 EA 50 USD ID 0001 Debra Hospital stethoscope 20 EA 150 USD ID 0001 Debra Hospital ECG 5 EA 1000 USD then after a while , when I search for ID 0001 I can review the above record with all lines and I can ( update or clear ) it please it's important to me because I am wasting my time and effort to fill the data once when making the quote and again when fill the same data in database sheet . see the vba in this sheet please : https://dl.dropboxusercontent.com/u/31346327/example.xls Thank you and awaiting your reply .

السلام عليكم توقفت عند مشكلة و هي مربع السرد مشكلة التي اواجهها في هذا المشروع و توقفت عندها المهم المشكلة مشروحة بالصور في ملف ورد وقد قمت برفعها في ملف واحد اي (مشروع و طلبي) واطمع ان اجد الحل من الخبراء و اعضاء https://hotfile.com/dl/236088104/01a981a/_.rar.html

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء الكودان التاليان يعملان على نفس الملف ونفس الشيت أيضاً (مرفق ملف) لذا أرجو التكرم بدمجهما معاً فى ليصبحا كود واحد بدلاً من إثنان الكود الأول : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2,E6,C6,C7")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target Is emptey Then Sheet2.Range("B12:C403,E12:N400").ClearContents R = 12: sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0 For I = 2 To Sheet1.Range("C2000").End(xlUp).Row + 1 Application.ScreenUpdating = False If Sheet2.Range("E6").Value = Sheet1.Cells(I, "C") Then If Sheet2.Range("C6").Value > Sheet1.Cells(I, "H") Then sum3 = sum3 + Sheet1.Cells(I, 1): sum4 = sum4 + Sheet1.Cells(I, 2) End If If Sheet2.Range("C7").Value = "" Then GoTo a2 If Sheet2.Range("C7").Value >= Sheet1.Cells(I, "H") Then a2: If Sheet2.Range("C6").Value = "" Then GoTo a3 If Sheet2.Range("C6").Value <= Sheet1.Cells(I, "H") Then a3: Sheet2.Cells(R, 2) = Sheet1.Cells(I, 1) Sheet2.Cells(R, 3) = Sheet1.Cells(I, 2) Sheet2.Cells(R, 5) = Sheet1.Cells(I, 5) Sheet2.Cells(R, 10) = Sheet1.Cells(I, 9) Sheet2.Cells(R, 11) = Sheet1.Cells(I, 7) Sheet2.Cells(R, 12) = Sheet1.Cells(I, 6) Sheet2.Cells(R, 13) = Sheet1.Cells(I, 8) Sheet2.Cells(R, 14) = R - 11 sum1 = sum1 + Sheet1.Cells(I, 1) sum2 = sum2 + Sheet1.Cells(I, 2) R = R + 1 End If End If End If Next I [L5] = sum1: [M5] = sum2: [N5] = sum1 - sum2 [L4] = sum3: [M4] = sum4: [N4] = sum3 - sum4 [L7] = [N5] + [N4] If [L7] < 0 Then [N7] = "دائن" ElseIf [L7] > 0 Then [N7] = "مدين" Else [N7] = "--" End If End If End If If Not Intersect(Target, Range("C2")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.ScreenUpdating = False [E6] = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("data"), 2, False) End If If Not Intersect(Target, Range("E6")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.EnableEvents = False Target.Offset(-4, -2).Value = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("G1:H200"), 2, False) Application.EnableEvents = True End If الكود الثانى : Dim MyRange As Range Set MyRange = Union([B12:C12], [D12:D400], [B404:D404], [C409:N410]) If Intersect(Target, MyRange) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In MyRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Code Merge.rar

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

السلام عليكم ورحمة الله وبركاته الأخوه الأعزاء بالملف المرفق (كود) يقوم بعدم (معاينة) وعدم (طباعة) الأسطر الفارغة فهل بالإمكان إضافة تعديل للكود بحيث يقوم أيضاً بعدم (معاينة) وعدم (طباعة) الأعمدة الفارغة وذلك للمدى (الأعمده) فى النطاق من (عمود E : عمود AC) فقط وذلك إعتماداً على قيمة كل عمود بالسطر 65 أرجو أن أكون قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Eliminate empty columns from printing.rar

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

اهداء للاساتذة مجدى يونس / حمادة عمر اهداء.rar

البقاء لله انا لله وانا اليه راجعون ندعوا الله أن يجعل مثواها الجنة