هانى محمد

FILTER Add-ins.zip

وعليكم السلام-تفضل
https://www.doubleclick.com.eg/Articles/شرح-رائع-لشجرة-الحسابات-لشركات-المقاولات

وعليكم السلام -تفضل بما انك لم تقم برفع ملف فسيتم الرد بهذا الفيديو فبه طلبك وشكراً
 

بسيطة وسهلة وذلك من خلال Conditional Formatting
 

شكراً جزيلاً لجهود حضراتكم تم الحل
=IF(AND($A2="Titanic Group",$B2="Safari Fee",$L2=1),SUMIFS($E:$E,$B:$B,"Safari Fee",$I:$I,$I2)/$S$1,IF($A2="Guide House",SUMIFS($E:$E,$A:$A,"Guide House",$I:$I,$I2)/$S$1,IF(AND($A2="Tasty Louxe Company",$L2=1),SUMIFS($E:$E,$A:$A,"Tasty Louxe Company",$I:$I,$I2)/$S$1+((SUMIFS($E:$E,$A:$A,"Tasty Louxe Company",$I:$I,$I2)/$S$1)*14%),IF(AND($A2="El Mina Restaurant",$L2=1),SUMIFS($E:$E,$A:$A,"Star Restaurant",$I:$I,$I2)/$S$1+((SUMIFS($E:$E,$A:$A,"Star Restaurant",$I:$I,$I2)/$S$1)*11%),IF(AND(L2=1,C2="USD"),K2+J2,((K2+J2)/$S$1))))))  

ولإثراء الموصوع هذا برنامج اخر
برنامج مخازن شامل المحاسب الشاطر جروب.xlsm

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

تفضل
46.xlsx

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

وعليكم السلام- لا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية ... فعليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة وشكراً

وعليكم السلام ... انتبه من فضلك فقد تمت الإجابة من قبل استاذنا الكبير ابراهيم الحداد على منتدى اكاديمية الصقر
وذلك بجعل السطر الأخير هكذا
Sheets("قائمة").Range("B" & lr + 1).Select  

ارفع من فضلك ملف اكسيل مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين !!!

ارفع من فضلك ملف اكسيل مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين !!!

ارفع من فضلك ملف اكسيل مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين !!!

وعليكم السلام ... جرب هذا الملف فبه طلبك
تاريخ تلقائي 2003.xls

وعليكم السلام -وما هو الغرض والأهمية من كل هذا ؟!!!
فقط عليك بتشغيلها ببساطة من الزر الخاص بها من لوحة المفاتيح ... أو يمكنك مشاهدة هذا الفيديو فبه طلبك وهذه هى الأكواد المستخدمة
Private Sub VideoCap1_Click() VideoCap1.Start End Sub Private Sub VideoCap2_Click() VideoCap1.Stop End Sub  

وعليكم السلام -أخى الكريم الملف يعمل بكفاءة مطلقة وليس به اى مشكلة وشوف بنفسك الصورة

وعليكم السلام بالتأكيد لا يمكن قبول هذا فلا يمكن عمل الماكرو على الأندرويد أو التليفون عامة .. وشكراً

وعليكم السلام -بسيطة يمكنك استخدام هذه المعادلة
=IFERROR(VLOOKUP($A1,Sheet1!$A$1:$C$300,3,0),"") Book 2.xlsx

لعدم اهدار واضاعة وقت الأساتذة دون جدوى أو أهمية  ... فلا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب , فلايمكن العمل على التخمين ... فاذا تخيلت ما تريد هل ينفع معك هذا الكود , وان لم يصلح معك فكما اخبرتك أدى هذا بدوره الى اضاعة الوقت دون جدوى
Private Sub UserForm_Initialize() Dim MyData As Range Dim r As Long With Me.ListBox1 .RowSource = "" Set MyData = Worksheets("Sheet1").Range("A2:j100") .List = MyData.Cells.Value For r = .ListCount - 1 To 0 Step -1 If .List(r, 3) = "" Then .RemoveItem r End If Next r End With End Sub  

بما انك لم تقم برفع ملف موضح فيه المطلوب بكل دقة ... فسيتم الرد عليك أيضاً بدون ملف , فيمكنك مشاهدة هذا الفيديو لتلبية طلبك
 

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

كان عليك استخدام خاصية البحث بالمنتدى فبه طلبك -تفضل
عند حماية الشيت يتعطل الكود

هذا أمر طبيعى لكثرة المعادلات وكثرة الصفحات بالملف !! على الرغم من كل هذا فتم تقليل مساحة البرنامج  كثيراً فأصبح الأن 3.26 ميجا 
file.rar

وعليكم السلام ... تجنباً لعدم اهدار واضاعة وقت الأساتذة وبما انه لا يمكن العمل على التخميت , فعليك برفع ملف مدعوم بشرح كافى عن المطلوب !!!!
أو عليك بوضع هذا الكود بحدث ThisWorkBook                                 وذلك على ان اسم الفورم لديك هو UserForm1 , ويمكنك تغيير هذا الإسم بما لديك
Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub