نبيل عبد الهادي

Sub Button1_Click() Dim ws As Worksheet WkSheets = Array("ورقة1", "ورقة2", "ورقة3", "ورقة4") For Each ws In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4")) ws.Select Range("b46:n46").Formula = "=SUM(B3:B43)" Range("b47:n47").Formula = "=SUM(B7:B13,B27,B32)" Range("n2:n44").Formula = "=SUM(B2:m2)" Next ws End Sub غير  المصفوفه باسماء الاوراق الاربعة لديك

تفضل
ملف_تطبيق_الجمع_بشروط.xlsm

طريقة اخرى بالكود ... ستجد جميع ماطلبته في شيت التمويل بالاعتماد على البيانات في شيت يومية الخزينة
المعادلة :-
النقد الفعلي في الخزينة = ( صافي النقد في الخزينة ( اجمالي التمويل + اجمالي الايرادات  -  اجمالي المصروفات  )) + ( اجمالي العهد )
يومية خزينة2020.xlsm

تفضل
ملاحظه اي تغير في موضع الخلايا المستهدفه في اوراق المقاولات ستكون النتائج خاطئة
11 - Copy.xlsm

الكود يعمل وحسب ماطلبت مطابقة / وفلترة/ ترحيل المكرر بين القائمتين مع الصف ( بشرط ان تكون القائمة في العمود A هي الاساس) الى ورقة اخرى
اما اذا كنت تقصد ان لايكون اللصق في اخر صف فارغ
جرب المرفق في ورقة3
111112.xlsm

تفضل
العمال.xlsm

مجرد الاختيار من القائمة يتم تعبئة العمود b  تلقائي
المطلوب.xlsm

1- فيما يخص رسالة التاكيد قبل تفريغ البيانات تم اجراء اللازم
2- فيما يخص الفلترة نفس السبب المشار اليه في المشاركة الاولى يجب عليك اعداد ورقة السجل على هذا الاساس 
3- في الملف مرجع دائري او اكثر ابحث عنها وصحح المعادلات
نسخة للتعديل.xlsm

تفضل
وعلى فرض ان      "pass = "123
ترحيل وطباعة المحدد.xls

على الرغم ان بعض ماطلبته مبهم وغير واضح
تفضل الملف المرفق
 
orginalcopy-protcet - Copy.rar

لم استطع تحميل الملف المرفق 
ضع الكود التالي في  module
الحفظ الافتراضي سيكون في  Desktop بعد اختيار اسم للملف المصدر 
Public Sub Save_Range_As_PDF_On_Desktop() Dim fileName As String, saveAsFileName As Variant Dim PDFrange As Range With Sheets("sheet13") Set PDFrange = .Range("a1:j286") End With saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=Get_SpecialFolderPath("Desktop") & fileName, _ FileFilter:="PDF file (*.pdf), *.pdf", _ Title:="Save PDF file") If saveAsFileName <> False Then PDFrange.ExportAsFixedFormat Type:=xlTypePDF, fileName:=saveAsFileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End Sub Private Function Get_SpecialFolderPath(SpecialFolderName As Variant) As String Get_SpecialFolderPath = CreateObject("WScript.Shell").SpecialFolders(SpecialFolderName) & "\" End Function  

تفضل 
1- حدد بالماوس انطاق  "C3:P3"
2- نفذ الكود
3- اختيار yes
4- الملفات المصدرة بصيغة txt ستحفظ في مجلد الملف الرئيسي
 
Enquiry.rar

تفضل
 
ملف رقم 1تجربة 1.xlsb ملف رقم 2تجربة 1.xlsb

تم حل مشكلة الفلترة مع اضافة تنسيق التاريخ الى  combobox
سيتم تصدير الورقة  FilteredData الى مجلد الملف الاصلي كملف جديد مع امكانية اختيار اسم لهذا الملف
test.rar

تفضل ادخل على هذه الروابط  علها تنفعك
https://www.officena.net/ib/topic/59074-ماهي-الدالة-لاضافة-5-درجات-القرار-المدرسة/
https://www.officena.net/ib/topic/41369-مساعدة-في-اضافة-درجات-للطالب/

بعد الاطلاع على الملف المرفق
تكون المعادلة بهذا الشكل
=IFERROR(VLOOKUP(M9;H7:I16;2;FALSE);"") تطابق تام  FALSE

تفضل ....ادخل على ورقة ملاحظات
 
ںé ©ëںê¤.xlsm

تفضل
تم وضع كلمة مرور "123" لتأكيد الدخول على هذا الاجراء  
iBox = Application.InputBox("ادخل كلمة المرور لهذا الاجراء", "تأكيد بكلمة المرور") If iBox <> "123" Then Exit Sub 'تغير الباس من خلال هذا السطر  
BBBBB.xls

تفضل
1- يكون العمل فقط في الاعمدة (A,D,E) 
2- الاعمدة باللون الاصفر تحوي معادلات 
3- تم عمل قائمة منسدلة في العمود ( A ) لاختيار رقم الموظف اعتمادا على ورقة Sheet1
4- تم اضافة عمود (G) لبيان الحالة عند التجاوز على رصيد الاجازات
رصيد الاجازات.xlsx

تفضل
test_2.xlsm

تفضل
اكتب اي كلمة
test34.xlsm

تفضل
1- ضع المجلد في القسم c
2- الخلية a1 تحتوي على مسار الملفات وهي ثابته لاتغيرها 
3- الخلايا من " a2:a400 " تحوي معادلة جلب اسماء الملفات وامتدادها في المجلد المسمى "الملف موجود ام غير موجود" بالاعتماد على دالة تم وضعها في محرر الاكواد
4- اكتب اسم الملف في الخلية b1 سيتم اجراء فلترة للعمود a اذا لم ييظهر اسم الملف بعد الفلترة يعني اما مفقود من المجلد... او لم تكتب اسمه بالشكل الصحيح المطابق لاسم الملف
5- اذا رغبت بتغير اسم المجلد او نقله لمكان اخر يجب تحديث المسار الجديد ونسخه في الخلية a1
الملف موجود أم غير موجود.rar

وعليكم السلام 
ادخل على الرابط 
https://www.officena.net/ib/topic/67855-مشكلة-فى-additional-controls /

الملف الذي ارفقه استاذ سليم يفي بالغرض ويشمل ترحيل الصادر والوارد 
اما غير ذلك.... اليك الملف وحسب طلبك
 
الصادر.xlsm

تفضل 
 
بيانات الموظفين.xlsm