نجوم المشاركات

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

بعد اذن اخي شريغ هذا الكود (يمكن ان يكون اسرع قليلاُ) Option Explicit Sub Filter_For_Me() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With On Error GoTo Exit_sub Dim i% Dim t% Dim arr(): arr = Array("م", "غ", "<50", "صفر") Dim My_Rg As Range Dim FinaL_row%: FinaL_row = Sheets("data").Cells(Rows.Count, 2).End(3).Row Set My_Rg = Sheets("data").Range("b2:M" & FinaL_row) For i = 2 To Sheets.Count With Sheets(i) .Range("a2:M1000").Clear .Range("Xfd1") = .Name .Range("xfd2").Resize(4, 1) = Application.Transpose(arr) My_Rg.AdvancedFilter Action:=2, _ CriteriaRange:=.Range("xfd1:xfd5"), _ CopyToRange:=.Range("a2"), Unique:=False .Range("a1").CurrentRegion.Columns.AutoFit .Range("xfd1:xfd5").Clear For t = 12 To 5 Step -1 If .Cells(2, t) <> .Name Then .Cells(2, t).EntireColumn.Delete Next t End With Next i Exit_sub: With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With Erase arr End Sub الملف مرفق استدعاءبشروط Salim1.xlsm

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى اقدم لحضراتكم دفتر يوميه للعاملين بالقطاع الحكومي بمصر و يعرفه جيداً الاخوه المحاسبين العاملين بالوحدات الحسابيه التابعه لمؤسسات الحكومه المصريه على اختلاف نشاطاتها ( صحه - تعليم - خدمات - .... ) و هو يعرف باسم دفتر 224 هذا الدفتر يعمل به المحاسبين الذين يعملون في القطاع الحكومي ( المستشفيات - المدارس - الكليات و الجامعات - ........ ) يمكن للأخوه المحاسبين فتح يومية مصروفات و يومية تسويات من خلال هذا المرفق و ايضاً سوف تحصل على ميزان مراجعه مباشرةً بعد عمل اليوميه وبه بعض الازرار التي سوف تسهل على الاخوه العمل ان شاء الله كزرار لاخفاء الاعمده التي مجموعها صفر و زرار للطباعه و زرار المعاينه قبل الطباعه ارجو من الله ان يفيدكم بهذا العمل والسلام عليكم و رحمة الله و بركاته دفتر يوميه 224.rar

الاستاذ العزيز shreif mohamed جزاكم الله خيرا عمل رائع جعله الله في ميزان حسناتكم تحياتي ووافر احترامي الاستاذ الكبير سليم حاصبيا جزاكم الله خيرا كود دقيق وممتاز جعله الله في ميزان حسناتكم تحياتي ووافر احترامي

بارك الله فيك استاذي ابو ياسين شكر شكر ا كثير يالغالي نعم هو المطلوب الله يعطيك العافيه تحياتي اليك

اتمنى يكون المطلوب الحفظ التلقائي.rar

وعليكم السلام تفضل اخي ، واعلم ان الماكرو يعمل علي التنسيق الشرطي المسبق واسماء الشيتات كما هو مرفق فلا تقم باعاادة تسمية الشيتات واتركها كما هي حتي يعمل الماكرو بكفائة استدعاء بشروط.xlsm

والله اني دخت في الاكواد .. الموضوع يحتاج تركيز عالي جداً بالاضافة الى تدخل الخبراء

في هذا الملف خياران كل في صفحة (Salim / Salim(2 اختر ما تريد 11salim2.xlsx

فكرة رائعة والحمد لله ساهمت في نقل الموضوعات التي لا تحتوي على استفسار إلى منتدى شروح الباور بوينت وسنظل نتعاون جميعا حتى نتمكن من فرز جميع الموضوعات وفقنا الله جميعا لكل خير

اخى الكريم شروحات جميلة لاستاذنا الاستاذ ستارت نت وجدتها عندى فرفعتها لك - شرح فيديو + قواعد البيانات المطبق عليها الشرح http://www.mediafire.com/download/zt813nwcjjpd53k/%D8%B4%D8%B1%D8%AD_%D8%A8%D8%B9%D8%B6_%D8%AE%D8%B5%D8%A7%D8%A6%D8%B5_%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9.zip

أخي الحبيب / يحيى حسين أشكرك جزيل الشكر على مرورك وسرني جداً كونك زميل مهنة أو على الأقل من المهتمين بالمحاسبة وأتمنى أن نتواصل بشكل مناسب أترك لك تحديد كيفيته حيث أنني يهمني رأيك في مشروع أعمل عليه منذ فترة طويلة لبرنامج حسابات كامل يعتمد فكرة مراكز التكلفة وقد قمت بتجربته بعد عمل تحسينات وتعديلات كثيرة عليه وقد جربته في إعداد حسابات مؤسسة كبيرة عن عام كامل والحمد لله أتى بنتائج ممتازة وفيه إمكانية الترحيل القيود لليومية العامة وإصدار كشوف حسابات لأي حساب مع مراكز التكلفة وميزان مراجعة يتم تحديثه تلقائياً مع إمكانية تعديل القيود بعد ترحيلها واستدعائها ولكن النقطة الوحيدة التي لازلت غير راضي عنها تماماً هي جزئية إضافة حساب جديد فهي تتم بصورة معقولة ولكن أتطلع لتحسينها بشكل أفضل وإن شاء الله بمجرد الانتهاء منها سأطرح البرنامج كامل . تقبل تحياتي أبو عبدالله

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