ضاحي الغريب

أخي أبو نصار تم والحمد لله جزاك الله خيرا ومعلش لي استفسار لو حبيت اخفي الصفوف من الصف 1001 الي النهاية هايكون الذاي

أخي أبو نصار هل اضع الكود في حدث الورقة

أخي العزيز الغالي ا. عباد جزاك الله كل خير ماقصرت ودائما سباق تقبل تحياتي

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

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

أخي العزيز الشهابي جزاك الله كل خير وبارك لك في علمك وعملك ورزقك واولادك وشكرا مرة اخري علي مساعدتك لي ودعمك ودعائك تقبل تحياتي اخيك ضاحي الغريب

أخي الشهابي جزاك الله كل خير ظبط معي التصفية الخطأ من عندي اسماء العناوين بها اسم مختلف عدلته والحمد لله ظبط اشكرك كثيرا وجزاك الله كل خير اخوك ضاحي الغريب

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

اخي الشهابي النتيجة ممتازة وقد ادت الغرض لكن هل لي بطلب هل بشرح الطريقة باختصار لاني حاولت لي اكثر من يومين انا بحاول لكن محاولتي باتت بالفشل وانا احاول اطبقها وجزاااك الله خيرا تقبل تحياتي

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

عفوا اخواني الملف مرة أخري لاني قمت برفع ملف بالخطأ الملف بالمرفقات تصفية - 2.rar

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

بارك الله لك اخي بن علية تم بحمد الله جزاك الله كل خير

أخي اكريم بن علية هــل لي بسؤال......؟ واتمني تسامحني علي تعبك معايا كيف يتم ترتيب الشيتات في الملف الاصلي بما يتناسب الكود هل اقوم بتغير اسماء الاوراق لكن اريد الترتيب التالي من اليمين الي اليسار (( البيانات - طباعة - تقرير الصلاحية - السارية - المنتهية ) فارجو منك كيفية طريقة الترتيب بما يتناسب مع عمل الكود او ان هــل توجد طريقة اخري في الكود بتسمية الصفحات وجزاك الله خيرا

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

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

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

السلام عليكم ورحمة الله وبركاته الأخـوة الكرام برجاء المساعدة في ظبط جزئية الاحصاء في كود ترحيل الاقامة حسب الصلاحية حيث أن لايقوم بعد الاقامات المرحلة حسب الصلاحية مضبوط الكود Sub TARHEEL() Dim R As Integer, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer Sheets("الأقامات السارية").Range("A5:K1000").ClearContents Sheets("القامات المنتهية").Range("A5:K1000").ClearContents A = 5: B = 5: C = 5: D = 5: E = 5: F = 5: G = 5: H = 5: I = 5: j = 5: K = 5 Application.ScreenUpdating = False For R = 5 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''' If Cells(R, 6) = " الإقامة سارية" Then Range("A" & R).Resize(1, 11).Copy Sheets("الأقامات السارية").Range("A" & A).PasteSpecial xlPasteValues Application.CutCopyMode = False A = A + 1 End If '''''''''''''''''''''''''' If Cells(R, 6) = "الإقامة منتهية" Then Range("A" & R).Resize(1, 11).Copy Sheets("الأقامات المنتهية").Range("A" & B).PasteSpecial xlPasteValues Application.CutCopyMode = False B = B + 1 End If Next MsgBox ("الحمد لله تم ترحيل الأقامات حسب الصلاحية ") For K = 1 To 2 Y = Sheets(K).[B3000].End(xlUp).Row - 4 mssg = mssg & Chr(10) & Format(Y, "00") & " إقامـة : " & K Next K MsgBox (" تـم ترحيل عدد" & mssg) For j = 1 To 2 Sheets(j).[B5] = 1 rrw = Sheets(j).[B3000].End(xlUp).Row For Each CC In Sheets(j).Range("B6:B" & rrw) CC.Value = CC.Offset(-1, 0) + 1 Next CC Next j Sheets("DATA").Select Range("B5").Select Application.ScreenUpdating = True End Sub بالمرفقات الملف Validity.rar

بعد التجربة استاذي أبو نصار أكثر من رائع حقا انك لمايسترو تسلم وجزاك الله كل خير وارجو تسامحني ان اثقلت عليك بارك الله لك في كل شيء وزادك علما ونفعا وبظهر الغيب دعوة لكل اسرة منتدانا وصرحنا التعليمي أوفيسنا اللهم يجزيهم بما قدموا كل الخير واجعله في ميزان حسناتهم

أخواني العزاء أخي الأستاذ ياسر خليل أخي الأستاذ عبــاد بـارك الله فيكم وجزاكم الله خير الجزاء في الدنيا والأخـرة مرفق الملف بعد تجربة الأستاذ ياسر خليل ظبط لكن عند دمجه مع كود دالة Vlookup لم يعطي النتيجة أخي عباد لقد ارفقت النموذج وانا كلي خجل من طلباتي اليك تقبل تحياتي Data_Test1.rar

اخي الكريم أ. عباد هل من الممكن دمج كود دالة VLOOKUP التي ارفقته لي في المشاركة رقم (2) مع دالة الصلاحية بالمشاركة رقم (10) بحيث ان خلية التاريخ عندي هي (B25) و ارجاع النتيجة في الخلية (B28 ) حتي تقوم الدالة بتحديث النتيجة مع بيانات الموظف في كود دالة VLOOKUP بالمشـاركة رقـم (2) ولا ذلك غير صحيح من الناحية الفنية تقبل تحياتي

أخــي الكــريم الأستاذ/ عباد..... (ابو نصــار) هنـاك مشكلة صغيرة ...... حيث أن عند القيام بتغيير التاريخ في الخلية (A2) - (لانه مربوط مع دالة البحث عن بيانات موظف ) لا تتغير نتيجة الكود في الخلية (C2) شاهد المرفق وأعتذر منك مرة اخري لكثرة طلباتي ,اشكرك جدا علي تعبك تقبل تحياتي date.rar

أخي الكريم أبو نصـار أ. عباد الكود أكثر من رائع مضبوط والحمد لله هـو المطلوب سلمت من كل سوء وجزاك الله خيرا عن علمك ونفعك به وأشكرك علي سرعة استجابتك وسعة صدرك وتعبك معي وبارك الله فيك تقبل تحياتي

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

أخي الكريم أبو نصار لا اجد كلمات تكفي اعبر بها عن شكري لك عما تقدمه وعن رحابة صدرك قمت بارفاق مثـال بالمعادلة وجزاك الله خيرا date.rar