عادل حنفي

الحمد لله اتغيير المدي في الكود الخاص بزر الطباعة وكوده هو Private Sub CommandButton1_Click() ' r = Sheets("الاكواد").Range("A3").Address s = Sheets("الاكواد").Range("A2").End(xlDown).Address For i = 4 To 14 If Cells(i, 7) <> "" Then o = Cells(i, 7).Address g = Application.WorksheetFunction.CountIf(Sheets("الاكواد").Range(r, s), Range(o)) If g = 1 Then Range("A2") = Cells(i, 7) ' If Range("f5") <> "" Then m = Range("A1").Address n = Range("F4").End(xlDown).Address ActiveSheet.PageSetup.PrintArea = m & ":" & n ActiveSheet.PrintOut Copies:=1 ' End If End If End If Next End Sub قم بتغيير ال14 في السطر التالي بالزيادة او النقصان For i = 4 To 14 تحياتي

اخي الفاضل لم يـكن الموضوع بسيطا كما تخيلت عموما لم ارد ارفع لك الملف الا بعد التاكد من النتائج ارجو ان يكون المطلوب تحياتي متكررات.rar

اخي ابو عبدالرحمن البغدادي تم عمل زر في شيت البحث لطباعة كل كود تم كتابته في العمود G من الصف رقم 4 الي 14 طبعا ممكن زيادة المدي جرب الملف وارجو ان يكون المطلوب تحياتي عمل زر طباعة عدة قوائم.rar

اخي بكار تم تنفيذ تصفية لكل اسم مع معرفة اجمالي مبلغ كل اسم فقط اكتب الاسم في العمود C فاذا لم يكن مسجلا من قبل في العمود G فانه سيتم تسجيله وعمل المعادلة الخاصة به بواسطة الكود وطبعا المعادلة تجمع مبالغ كل شخص وغير مقيدة بعدد معين نهائيا جرب واخبرني بملاحظاتك تحياتي حذف اسم متكرر.rar

اخي ابو عبدالرحمن البغدادي وانت بكل خير وعافية تحياتي

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

بارك الله فيك اخي ياسر تحياي

اخي مهدي مرحبا بك وتحت اوامرك في اي مساعدة ولكن حسبما نستطيع ذلك عموما طبعا انت لم توضح مطلوبك جيدا فانظر الي الملف المرفق وفي هذا الملف عند وجود خلية مكررة يقوم بنقلها ةيتم مسح مانقل طبعا لانك لم توضح فقد افترضت ذلك كذلك لم توضخ هل هتاك ارتباط بين الموجود في كل عمود مع الاخر اي انه عندما ينقل هذا ينقل الاخر معه وفي نفس الصف ، كما تم الاعتماد لي العمود b عند احتساب عدد الصفوف التي سيعمل عليها الكود معني ذلك انه لو كتب في العمود b عدد من الصفوف وليكن 100000 صف فسيعمل عليهم الكود يعني الكود مفتوح المدي عموما جرب الملف واخبرني بالنتيجة تحياتي المكرر2.rar

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

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

اخي المرفق به مشكلة

اخي ضع Friday بين علامتي ""

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

اخي فتحي وكل عام وانت وافراد اسرتك الكريمة بكل خير تحياتي

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

وانت وجميع اعضاء المنتدي بكل خير

اخي هو يعمل عندي عادي عموما حدد السطر الذي اسرت اليه واكب بدلامنه السطر التالي If Sheets("نموذج الأدخال").CheckBox1.Value = True Then وسيعمل معك دون مشاكل ان شاء الله مرفق ملف بعد التعديل تحياتي حركة الكفالات الشهرية.rar

السلام عليكم احي ابو جنا الحمد لله انه سيلبي حاجتك اما بالنسببة لعمله اولا الشيت الذي اريد نسخه منه باستمرار اسميته Source وجعلته مخفيا يظهر لاخذ نسخة منه ثم يختفي مرة اخري طبعا بالكود الكود المستخدم في شيت اليوم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row <> 8 Then Exit Sub If Target.Column < 3 And Target.Column > 16 Then Exit Sub If Cells(Target.Row - 1, Target.Column) <> "" Then Application.ScreenUpdating = False Sheets("Source").Visible = True Sheets("Source").Copy After:=Sheets("اليوم") ActiveSheet.Name = Format(Cells(Target.Row - 1, Target.Column), "dd_mm_yyyy") Sheets("Source").Visible = False Application.ScreenUpdating = True End If End Sub وان ا, اردت اي استفسار لايهمك تحياتي

اخي الفاضل جرب المرفق وان شاء الله يكون هو المطلوب تحياتي حركة الكفالات الشهرية.rar

اخي ابو جنا جرب المرفق واخبرني النتيجة فضلا دبل كليك علي اي خلية تحت التاريخ تحياتي system new2.rar

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

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

اخي الفاضل في نهاية الصفحة ستجد كلمة Language وبجوارها سهم لاسفل اضغط عليه و اختار officena Default وستنتهي المشكلة ان شاء الله تحياتي

اخي ماجد تم فتح الكود لاشهر السنة كاملة ونفس الكلام السابق بالنسبة للشيت الاول والثاني اما بالتسبة لشيت PRINT فستختار من الخليتان E3 & F3 الاشهر الواقعة فيها الزيارات والتي يتبعها اختيار المدة بين تاريخين( من تاريخ كذا الي تاريخ كذا) والتي تنحصر فيها الزيارات وذلك من الخليتان E5 & F5 ثم تضغط علي زر Go جرب واخبرني النتيجة تحياتي خط سير test1.rar

اخي وهذا تعديل بسيط ولكنه هام لمراعاة الاخطاء خط سير test.rar خط سير test.rar