ابن بنها

السلام عليكم ورحمة الله ادعو الله ان تكونوا بخير يارب وبعد هذا كود لازاله المسافات بين الكلمات وكود اخر للفرز ارجو دمجهم بحيث عند الضغط على زر الفرز يتم اولا ازاله المسافات وبعدها الفرز لتكون عمليه الفرز دقيقه جزاكم الله خيرا Sub kh_TrimSelection() On Error Resume Next Dim cel As Range For Each cel In Selection.Cells If Not IsNumeric(cel) Then cel.Value = WorksheetFunction.Trim(cel) End If Next On Error GoTo 0 End Sub وهذا كود الفرز Sub SortData1() Dim LR As Long LR = Range("E" & Rows.Count).End(xlUp).Row 'مدى الفرز .. ثم معيار الفرز الاول 'ثم معيار الفرز التاني Range("B7:S" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=2, Key2:=Range("E9:E" & LR), Order2:=1, Header:=xlNo Range("E7").Select End Sub

كود رائع لازاله المسافات بين الكلمات يصلح مع كود الفرز Sub kh_TrimSelection() On Error Resume Next Dim cel As Range For Each cel In Selection.Cells If Not IsNumeric(cel) Then cel.Value = WorksheetFunction.Trim(cel) End If Next On Error GoTo 0 End Sub قف على اي خليه في عمود وسيتم بعد الضغط على الزر من ازاله المسافات بين الكلمات في العمود

جزاكم الله خيرا

تصحيح للبرنامج من استاذ محمد الدسوقي النسخه الاخيره ======== روابط التحميل ============ الصف الأول https://up.top4top.net/downloadf-651tyxyj1-rar.html الصف الثانى https://up.top4top.net/downloadf-6511b22o2-rar.html الصف الثالث https://up.top4top.net/downloadf-6512oyb43-rar.html الصف الرابع https://up.top4top.net/downloadf-651lxev41-rar.html الصف الخامس https://up.top4top.net/downloadf-651p6ysv2-rar.html الصف السادس https://up.top4top.net/downloadf-651bnf903-rar.html كل الصفوف لوكشة واحدة ( لأصحاب النت السريع ) https://up.top4top.net/downloadf-6518qfgv1-rar.html تعليمات التشغيل https://up.top4top.net/downloadf-651nehkb1-rar.html

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

ربنا يبارك فيكم يارب

يظهر عندي هذه الصوره عند فتح الملف ... لماذا ارجوكم ؟ =========== اريد رفع الملف مضبوطا على موقع اخر او على المنتدى افضل

ملف التطبيق http://www.mediafire.com/file/yr1rrb7...

جزاك الله خيرا .... ولكن عند الوقوف على خليه المعادله تظهر المعادله

الملف لايتم تحميله ارجو اعاده تحميله مره اخرى

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub ماهي طريقة تطبيقه على جميع الصفحات ؟ من فضلكم

ماهي طريقة تطبيقه على جميع الصفحات؟

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

الرابط لايعمل ... من فضلكم اريد الرابط يعمل