ناصر سعيد

المرفق راائع جزاك الله كل خير وبارك فيك ولكن مع هذا الكود يجب اضافه نسخ التسطير ونسخ جميع التسيقات الموجوده بالصف الثامن حفظك الله ورعاك

جزاكم الله خيرا المحترم الاستاذ زيزو برجاء وضع سطر للمسح ... وسطر لاضافه التسطير حسب الاعداد الموجوده .. بارك الله فيك

الاستاذ المحترم / خالد الرشيدي السلام عليكم ورحمة الله وبركاته كيف حالكم حفظكم الله ؟ ادعو الله ان تكونو بخير دائم اشكرك لتنيك الحل واجتهادك المشكور .. كتبه الله في كفه حسناتك ونرجو تدخل صاحب الكود استاذ ياسر خليل لاثراء الموضوع

حفظك ربنا ورعاك استاذ ياسر

'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 Range("B7:AJ7").Copy .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Range("F7").Select تمام شكرا على تسلسل الشرح لكم حتى الافاده تمت بنجاح وتظهر اثناء النسخ شاشه زرقاء سريعه ... هل يمكن ازاله هذه الشاشه بامر برمجي

من فضلكم نريد مزيد من الشرح لهذ الخاصيه المفيده اسلوب العمل بطريقة ال Autofill جزاكم الله خيرا وبارك فيكم

'=========================== 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو استدعاء بشرط 'تم هذا الكود في 15/2/2017 Sub استدعاء() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long Dim ws As Worksheet Dim sh As Worksheet Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") '= = = = = = = = = = = = ' شيت الهدف والمدى المطلوب مسحه sh.Range("B7:AJ10000").ClearContents ' اسم ورقة المصدر lr = ws.Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = ws.Range("A7:EF" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 3, 7, 8, 9, 11, 12, 24, 25, 35, 36, 46, 47, 57, 58, 72, 73) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به ورقم عمود المعيار If arr(i, 135) Like "*" & "نا*" & "*" Then temp(j, 1) = j For c = LBound(cr) To UBound(cr) temp(j, c + 2) = arr(i, cr(c)) Next c j = j + 1 End If Next i ' اسم شيت الهدف With sh .Range("B7").Resize(j - 1, UBound(temp, 2)).Value = temp 'سطر لمسح التسطير .Range("B7:AJ" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 PasteSpecial Paste:=xlPasteFormats End With End Sub لماذا لاتعمل مع اضافه نسخ التنسيقات ؟ جزاكم الله خيرا

جزاك الله خيرا استاذ ياسر ... وبعد : في السطر التاني من الكود انت حددت النطاق .. ولكن النطاق دائما متغير يزيد وينقص ايه الحل ؟

اشكرك استاذ ياسر وكل عام وانت بخير ======== هل يمكن ان تزيد الموضوع اثراء ؟ جزاك الله خيرا

هذا ملف بسيط وبه كود مفيد ولكني اريد ان يتم اثناء التسطير ياخذ جميع التنسيقات الموجوده بالخلايا ذات اللون الاحمر الى كل الصفوف جزاكم الله خيرا استدعاء اعمد معينه لاعمده اخرى معينه.rar

للرفع رفع الله مقداركم

السلام عليكم جديد..... جديد .... جديد ..... جديد الجزء 51 نشرح ActiveSheet.UsedRange.Clear لمسح المحتويات مع التنسيقات وكذلك وضع بيانات في الاسطر الاربعه الأولى وكذلك استخدمنا with-endwith لعمل تنسيقات للنصوص جزء51 توزيع الطلاب على اللجانwith endwith-usedrange.clearساجدة العزاوي ====== ملف الشرح السابق توزيع-الطلاب-ج3.rar

الاستاذ المحترم خالد الشرقاوي جزاك الله كل خير وبارك لكم ... وبعد الحل رائع .. ولكني اتعشم في اضافه هذه الجمله بدل سطر مسح التسطير ونسخ التسطير حتى ياخذ كل التنسيقات التي نعملها الى كل الصفوف Range("A7:R7").AutoFill Destination:=Range("A7:R" & Range("R2").Value + 6), Type:=xlFillDefault لااقصد هذه الجمله بعينها وانما لك حريه التغيير فيها لتؤدي الغرض وان يكون طول الصفوف فيها مرنا لايعتمد على عدد في خليه

للرفع رفع الله مقداركم

============================ تحسينات في كود البحث للمحترم خالد الرشيدي شهادات بطريقه النابغه العلامه باقشير1.rar

الاستاذ الكبير / خالد الرشيدي يحفظك الله ويرعاك .. هذا ملفي لااستطيع تعديله بطريقتك التي اعجبتني في المشاركه السابقه رجاء تضبيط كود البحث بحيث تكون النتائج متطابقه للحرف الذي اخترته الاجابه للاستاذ الكبير خالد الرشيدي السلام عليكم اخى ناصر ان كنت تقصد الفورم المسمي Form_Search يمكنك ان تستبدل هذا الجزء If Mycell Like "*" & CM_TextFind.Text & "*" Then بهذا السطر عله طلبك If Mycell Like CM_TextFind.Text & "*" Then

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

المطلوب : ان لاتتاثر الاعمده بالمسح بعد العمود DJ

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

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

حددت كود المسح ابتداء من الخليه A12 حتى استطيع ان انسخ الخلايا الموجوده في الصف 11 ... هل يوجد حل استطيع به تحديد الجزء المراد مسحه فقط اخي الكريم استاذ خالد الرشيدي ؟

جزاك الله كل خير وبارك لك استاذ خالد الرشيدي ... جاري دراسه ردكم والتعليق عليه لاحقا

للرفع رفع الله مقداركم

هذا هو المدى المطلوب مسحه فقط ... ولا ادري لماذا يتم مسح كل الصفحه مع وجود هذه الجمله البرمجيه

مثال هذا هو المدى المطلوب مسحه فقط ... ولكن في الكود الموجود باعلا يمسح كل مافي الصفحه يتم المسح ابتداء من الصف 11 كل الصفحه