الصـقر

اخى الكريم
الملف الاخير تمام يعمل فى حال الاتجاه اسفل 
تاكد من الكمية
الصنف 10001 رصيد 4 هيقبله
الصنف 123333 رصيد 0 مش هيقبلة 
طبعا المخزن فى شيت Stor صح  

الاخ الحبيب
ضع هذا السطر فى الكود 
ActiveSheet.Unprotect "1234" بعد هذا السطر
Range("C11:M86").Select وذالك لان الكود اللى بحدث الورقه يعمل عند تغيير التحديد للخلايا فيقوم بعمل الحمايه للورقه لذالك يجب بعد  سطر التحديد بالكود نرجع نفتح الحمايه مره اخرى  
تقبل تحياتى

اخى الكريم
شاهد المرفق
على حسب ما فهمت من سؤالك هل هذا هو المطلوب
ضع هذه المعادله بالخلية G1
=IF(F1<B1;0;IF(AND(F1>B1*2;F1<50001);F1*5%;IF(F1>50000;(50000*5%)+((F1-50000)*10%);0)))  على فرض ان راتب الموظف بالخلية B1 
وتارجت المبيعات للموظف بالخلية F1
شاهد النتيجة بالخلية G1 
كما هو موجود بالمرفق
تقبل تحياتى
معادله حساب العموله.zip

اخى الكريم
يجب بعد وضع الكود بالمودويل قم بحفظ الملف من ( حفظ باسم ) واختر امتداد XLSM  أو  XLSB     ثم اضغط اوك 
تقبل تحياتى

اخى الكريم
 كان افضل ارفاق ملف 
لكن عموما  لو فرضنا عندك التكست بوكس 1 هو المطلوب تنسيقه نسبة مئويه 
جرب هذا الكود 
Private Sub TextBox1_AfterUpdate() Me.TextBox1 = Format(Me.TextBox1, "%0") End Sub الكود هو حدث بعد تحديث التكست اى بعد الكتابه به 
يعنى لو كتبت 20 ووضغطت انتر ستجد التكست 20 % 
تقبل تحياتى
واى استفسار تحت امرك

اخى الكريم
ضع هذا الكود فى الفورم
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Application.Quit ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub تقبل تحياتى

تفضل اخى الحبيب
المرفق يعطى اشارة الليبل مثل اشارات المرور
تقبل تحياتى
المحاولات.zip

اخى الحبيب 
يوضع هذا الجزء فى بداية اكواد الفورم
Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Const GWL_STYLE = -16 Const WS_SYSMENU = &H80000 ثم يوضع هذا الجزء مستقل
Private Sub UserForm_Initialize() Dim hWnd As Long, lStyle As Long If Val(Application.Version) >= 9 Then hWnd = FindWindow("ThunderDFrame", Me.Caption) Else hWnd = FindWindow("ThunderXFrame", Me.Caption) End If lStyle = GetWindowLong(hWnd, GWL_STYLE) SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU) End Sub اخفاء زر الخروج.zip

تفضل اخى الحبيب
الملف المرفق بعد تظبيط متوسط التكلفه بناء على مجموع قيم المشتريات/الكميات المشتراه
تقبل تحياتى
Book2.zip

تفضل استاذى الكريم
هل هذا هو طلبك انظر المرفق
اعمال السنة2+.zip

تفضل اخى الكريم
المرفق بدون اكواد هل هو المطلوب
ممكن نعمله بالكود لو تحب
تقبل تحياتى
 
123.zip

اخى الكريم 
حضرتك بتطلب تقريبا برنامج كامل ودا طبعا بيحتاج وقت ومجهود فمن فضلك قسم طلبك الى اجزاء ابداء بجزء ثم بجزء الخر الى ان تصل الى ما تصبو اليه
دا رابط ممكن يفيدك فقط قم بتعديل اسماء عنواين الاعمده وتغييرات بسيطه وانا معك اذا كنت تحتاج اى تعديل
http://www.officena.net/ib/index.php?showtopic=58797
تقبل تحياتى

اخى الكريم
الكود بينسخ رءوس الاعمده لان مفيش بيانات ولتفادى ذالك
 
قم باضافه هذه السطور فى اول الكود 
Dim ws As WorksheetFunction Set ws = WorksheetFunction If ws.CountA(Range("A3:A22")) < 1 Then MsgBox "لا يوجد بيانات للترحيل": Exit Sub تقبل تحياتى

اخى الكريم
شوف الفيديو المرفق

هو فيديو لاستاذى القدير أ/ محمود حموده كما اتمنى ان يكون بيننا بالمنتدى امنية ان شاء الله تتحقق
اتمنى انه يفيدك
تقبل تحياتى

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

 
الخطوة الثانية : 
اعمل ريت كليك هتظهر قائمة اختار منها تنسيق الخلايا ولو النسخه انجلش اختار Format Cells هيظهر لك شاشة كما هو بالصورة اختار حماية ( Protection )  اخر وحده كما هو بالصورة
 

 
خلى Locked جنبها علامه صح وايضا Hidden جنبها علامه صح  ثم اوك
كدا لو عملت حمايه للورقة  مش هتقدر تعدل على كل الخلايا لانك عملت عليها كلها حماية ( اصبر اوعى تروح تعمل حماية اصبر على السمك لما يستوى ) بص يا سيدى 
انت بقى شوف الخلايا اللى انتى مش عايز عليها حمايه واقف عليها واضغط عليها ريت كليك واختار تنسيق خلايا ثم حماية ثم شيل علامات الصح من المربع  نفس الخطوات السابقه بس هنشيل علامه الصح
كدا لما تيجى تعمل حماية كل الخلايا مش هتعرف تعدل عليها الا الخلايا اللى انت شلت من جنبها علامه الصح 
اتمنى ان يكون الشرح واضح جرب وعلمنى بالنتيجة 
تقبل تحياتى

اخى الكريم 
تفضل المرفق هل هو المطلوب 
تقبل احترامى وتقديرى
فاتورة يدويه.zip

اخى الكريم تفضل المرفق هل هو ما تريد
ترتيب.zip

استاذى الفاضل
قم بعمل حفظ باسم للملف واختار ثانى خيار بالقائمة وهو  excel macro enable