سليم حاصبيا

this Formula =IF(NOT(ISNUMBER(C2)),"",IF(G2=C2,"آجل","مدفوع"))

جرب هذا الملف Shaal.xlsm

ارفع نموذجاً منسطاُ 3 أو 4 أعمدة فقط مع توضيح المطلوب

Sheets("كشف التنقيط").Range("N10") = Sheets("كشف التنقيط").Range("AA19") بشرط ان يكون اسم الشيت بالكود كما هو بالضبط على الـــ (تاب) دون مسافات ناقصة او زائدة الافضل عمل Copy Paste لاسم الشيت

تم معالجة الامر 1-تغيير اسماء الشيتات الى اللغة الأجنبية 2- الاظهار اليوزر Show User انقر الزر من الصفحة Baraka 3- لمعرفةكيفية التعامل مع اليوزر يمكن الاستعانه بهذه الصور الملف مرفق Phone_Numbers.xlsm

لم افهم ماذا تقصد بعبارة لو يكون الرنج في العامود K أوسع اذا كان فصدك توزيع المواد على عدة حلايا فهذا الملف (صفحة Salim ) يفي بالغرض Aboomar_1.xlsm

جرب هذا الملف (صفحة Salim ) Affan.xlsm

لا أفهم انت تريد الاستدعاء او الترحيل

جرب هذا الملف Gocondasty.xlsm

النطاق الازرق من هذا الملف (يمكن تغيير التواريخ) تم ادراج تواريخ عشوائية للتحقق من المعادلات اللون الأحضر في الجدول الاساسي يدل على التواريح (المطابقة) في شهر 8 واللون الزهري على التواريح (المطابقة) في شهر 9 Osama-2.xlsx

اذا كنت تريد تاريخين ساعمل على هذا

المعادلة لا تحدد اي تاريح بل تعتمد على الشهر ( 9 ) بكامله

تم معالجة الامر 1- عندما تضغط على الزر Choose to delete تظهر لك رسالة تحتار منها رقم النظاق الذي تريد مسجة الأرقام مسجلة الى جانب كل نطاق 2- الزر Add Data Val ما زال يقوم بعمله ====>> ادراج القوائم المنسدلة (يستعمل في حال التعديل على مصدر البيانات لهذه القوائم) Option Explicit Sub Ad_Data_Val() With Range("Data_Val").Validation .Delete .Add 3, Formula1:="=Source_Rg" End With End Sub '++++++++++++++++++++++++++++++++++++++++ Sub del_special_range() Dim InpB InpB = Application.InputBox("Choose to Delete from 1 to 6:" & Chr(10) & _ "1- " & Range("Data_Val").Areas(1).Address(0, 0) & Chr(10) & _ "2- " & Range("Data_Val").Areas(2).Address(0, 0) & Chr(10) & _ "3- " & Range("Data_Val").Areas(3).Address(0, 0) & Chr(10) & _ "4- " & Range("Data_Val").Areas(4).Address(0, 0) & Chr(10) & _ "5- " & Range("Data_Val").Areas(5).Address(0, 0) & Chr(10) & _ "6- " & Range("Data_Val").Areas(6).Address(0, 0)) If Val(InpB) <= 0 Then MsgBox "You Must Choose Only Number from 1 to 6" Exit Sub End If If InpB <= 6 And InpB >= 1 Then InpB = Int(InpB) Range("Data_Val").Areas(InpB) = vbNullString Else MsgBox "You Must Choose Only Number from 1 to 6" End If End Sub الملف الجديد مرفق Talal_2.xlsm

ربما ينفع هذا الكود Option Explicit Sub del_Data_Val() Range("Data_Val").Validation.Delete '++++++++++Optional+++++++++++ Range("Data_Val").Value = "" End Sub '++++++++++++++++++++++++++++++++++++++ Sub Ad_Data_Val() With Range("Data_Val").Validation .Delete .Add 3, Formula1:="=Source_Rg" End With '++++++++++Optional+++++++++++ Range("Data_Val") = "" End Sub لك حرية ان تبقي على القيم الموجودة او لا بمسح ما يوجد داخل المربع الاحمر حسب هذه الصورة الملف مرفق Talal.xlsm

تم معالجة الأمر (مع الاشارة الى سبب الحطأ) Osama-1.xlsx

كان من الواجب ارفاق ملف (الوقت ليس كافياً لوضع ملف يحتوي على ما تريد) لكن حيث انها المرة الأولى ارفق لك هذا الملف النموذج الكود Option Explicit Sub Sorte_PLease() Dim m%, Ro%, i% Dim Obj_Pos As Object Dim Obj_Neg As Object Set Obj_Pos = CreateObject("System.Collections.ArrayList") Set Obj_Neg = CreateObject("System.Collections.ArrayList") Range("c1").CurrentRegion.ClearContents Ro = Cells(Rows.Count, 1).End(3).Row For i = 1 To Ro If Cells(i, 1) = vbNullString _ Or Not IsNumeric(Cells(i, 1)) Then GoTo Next_I If Val(Cells(i, 1)) >= 0 Then Obj_Pos.Add Cells(i, 1).Value Else Obj_Neg.Add Cells(i, 1).Value End If Next_I: Next i Obj_Pos.Sort Obj_Neg.Sort m = 1 Cells(m, 3).Resize(Obj_Pos.Count) = _ Application.Transpose(Obj_Pos.toarray) m = m + Obj_Pos.Count Cells(m, 3).Resize(Obj_Neg.Count) = _ Application.Transpose(Obj_Neg.toarray) Set Obj_Pos = Nothing: Set Obj_Neg = Nothing End Sub الملف مرفق sorts Pos and Neg.xlsm

جرب هذا الكود Option Explicit Sub get_Std() Dim rg As Range, Cel As Range Dim Where As Range Dim dic As Object, ky, m Dim COl As Collection Set Where = Range("J4").CurrentRegion If Where.Rows.Count > 1 Then Where.Offset(1). _ Resize(Where.Rows.Count - 1) _ .ClearContents End If Set rg = Range("A4").CurrentRegion If rg.Rows.Count = 1 Then Exit Sub Set rg = rg.Offset(1).Resize(rg.Rows.Count - 1) Set dic = CreateObject("Scripting.Dictionary") Set COl = New Collection For Each Cel In rg.Columns(3).Cells If Cel <> vbNullString Then dic(Cel.Value) = dic(Cel.Value) & Cel.Offset(, 1) & " ," On Error Resume Next COl.Add Cel.Offset(, -1), CStr(Cel.Offset(, -1)) On Error GoTo 0 End If Next If dic.Count = 0 Then Exit Sub m = 5 For Each ky In dic.keys Cells(m, "J") = COl(m - 4) Cells(m, "K") = ky Cells(m, "L") = _ Mid(dic(ky), 1, Len(dic(ky)) - 2) & "." m = m + 1 Next Set dic = Nothing: Set COl = Nothing End Sub الملف مرفق Aboomar.xlsm

جرب خذا الملف (يمكنك نسح الكود منه واسعماله في ملفك) يستطيع تقسيم الاسماء حتى ولو كانت اسماء مركبة مثل ( عبد الخالق عبد الرضى) بالاضافة الى الأسماء المختلطة (عبد السلام ماهر) أو (ربيع عبد الملك) والاسماء العادية ( سعيد مرزوق) الصفحة الأولى Sheet1 استحراج الاسماء حتى المرتبة الخامسة في الصفحة الثانية Salim الأسم الأول مع الاسم الأخير فقط Fuction_split_name.xlsm

تم التحديث قليلاً من جهة احتصار الأكواد حدد ما تريد اخفاءه (او اظهاره ) واضغط الزر المناسب Fathi_Use_superr.xlsb

Try this File Hisham_1.xlsx

تم معالجة الأمر (مع تعديل بسيط في ظهور الــ CheckBox يشكل يمكن قرائته بسهولة) مع التقليل من اهتزاز الشاشة قدر الامكان بواسطة 2 كود جديدين Debut و Fin Fathi_User.xlsb

صديقي انت قمت بتسمية الــــ Labels بجروف صغيرة a/b/c ..... و الاكسل يرى الفرق بين الحرف الكبير A والجرف الصغير a لذا يجب عليك ان تعمل احد هذين الاجرائين 1- تغيير اسماء الــــ Labels الى الأحرف الكبيرة A/B/C...... أو 2- تغيير الكود لكل Label كما في هذا الصورة و كود ظهور واخفاء الأعمدة كما في هذه الصورة ( علامة ? تدل على ان الاسم مؤلف من حرف واحد مثلاً D و علامة ?? تدل على ان الاسم مؤلف من حرفين مثلاً AC )

1- يجب ان يكتب اسم الصف باسلوب واحد دون زيادة مسافات او نقصانها مثلاُ لا يجب كتابة ( التاسع المتفدم مرة و و مرة احرى ىاسع متقدم )ت واحيانا تكتب سادس وثم السادس و هذا شيء لا يقبله البرنامج و بالنتيجة تحصل على خطأ تم اصلاح بعض الأمور و يجب تصجيح الباقي اذا وجد (الملف مرفق) انظر الى الصورة كمثال Adel.xlsx

مع انك لم ترفع ملف بعبر عما تريد يمكن نجربة هذا الملف بالاستعانة بالصور المرفقة الملف مرفق للتجربة Salim_Super_sapace.xlsm

جرب هذا الملف Hide_Unhide_Columns by_User.xlsm