طارق محمود

السلام عليكم أخي إبراهيم عادة يتم إنزال النسخة بواسطة متخصصي الآي تي بالشركة للأسف ليس لدي حاليا

السلام عليكم أرجو أن يكون هذا هو المطلوب المصنف1_4.rar

السلام عليكم تفضل Book0001_2.rar

السلام عليكم إن شاء الله يكون هذا المرفق ماتريد المعادلة المستخدمة مع النطاق الديناميكي جيدة جدا من حيت السرعة والكفاءة وهي تعمل على اوفيس 2003 ، 2007 ، 2010 وما فوق ولن تتأثر بعمل المنظومة مشاركة (شير) كشف حساب فتره -2014 .rar

لاشيء نسخة الأوفيس اللي معاك ناقصة إما أن تستبدلها أو تلجأ لحلول أخري كما بمشاركتك رقم 5 بالفعل

السلام عليكم أخي / إبراهيم الفورم يفتح عندي لأني ركبت أداه خاصة لالتقاط التاريخ من مكتبة الفيجوال بيسيك أنظر الصورة

السلام عليكم إن شاء الله يكون هذا ماتريد تعمدت أن أجعل المعادلات بسيطة (لذلك تجدها طويلة) ، حيث أنك تستخدم xls وليس xlsx أي أنه ليس لديك أوفيس 2007 ومافوق وإلا كانت دالة Sumifs أولي بالإستخدام كشف حساب فتره -2014 اوفيسنا2.rar

السلام عليكم أخي الغالي / إبراهيم ابوليله إضافة ممتازة ولو كنت رأيتها من قبل كانت وفرت معايا وقت كبير جزاك الله خيرا

السلام عليكم أخي العزيز تم ذلك أضفت تأكيد قبل الإضافة ولاأعرف إن كان هذا ماتريد أم لا وأيضا تم تفعيل زر الإستدعاء تفضل المرفق المصنف1_3.rar

السلام عليكم أخي العزيز أول خطوة إدخال بيانات الشيك من الفورم تفضل المرفق المصنف1_2.rar

السلام عليكم تفضل أخي إن شاء الله يكون ماطلبت تغيرات سعر الذهب.rar

السلام عليكم أخي العزيز أولا أنا عدلت العنوان لمخالفته لقواعد المشاركة ثانيا : حل سريع ، فكرته استبدال جميع المسافات الفارغة في الأسماء بلفظة " بن " ، لاحظ وجود مسافة قبل وبعد بن ظلل جميع الخلايا التي تحتوي الأسماء ثم إضغط علي كنترول -إتش Ctrl-H ، هذا امر الإستبدال بالإكسل ستظهر لك قائمة Find and Replace وفي خانة Find what ضع مسافة " " وفي خانة Replace with ضع " بن " ثم إضغط Replace All

عندك خطآن وليس واحدا الخطأ الأول في هذا السطر LR = [b999].End(xlUp).Row هذا معناه أن يذهب إلي الخلية [b999] ومنها يقفز للأعلي End(xlUp).Row هذا الأمر مماثل لما يحدث إذا ضغطت Ctrl-Up زر الكنترول مع السهم لأعلي (في صفحة الإكسل وليس في الفيجوال بيسيك) فهذا يجعل المؤشر يقفز للأعلي ليس سطرا واحدا بل حتي تتغير الحالة من فراغ إلي كتابة (أو من كتابة إلي فراغ) ثم يكتب رقم السطر في المتغير LR وفي حالتنا نفترض أن الخلية B999 فارغة لأنها بعيدة للأسفل فإذا قفز منها للأعلي حتي تتغير الحالة من فراغ إلي كتابة سيقف عند آخر سطر به بيانات وهذا هو المطلوب أما الخطأ عندك فقد اخترت (بعد التعديلات التي أجريتها علي الملف) عمود B الذي هو كله فارغ فبتنفيذ هذا السطر يقفز المؤشر لأعلي ولايجد كتابة حتي السطر الأول فيعطي المتغير LR قيمة (1) هذا الأمر كان في محله في المسألة الأولي أما الآن فيمكنك استبداله كالتالي LR = Cells.SpecialCells(xlCellTypeLastCell).Row فهذا أدق يجعل المتغير يأخذ قيمة آخر سطر به بيانات في نطاق الورقة كلها الخطأ الثاني في هذا السطر For rww = 3 To L والذي من المفروض أن يكون هكذا For rww = 3 To LR حتي تستفيد من حساب LR في أول سطر إذن الكود بعد التعديل Sub del_abs_FR() LR = Cells.SpecialCells(xlCellTypeLastCell).Row For col = 3 To 40 If Weekday(Cells(3, col)) <> 6 Then GoTo 10 For rww = 3 To LR If Cells(rww, col).Value = "غ" Then a = Cells(rww, col).Address(RowAbsolute:=False, columnAbsolute:=False) MsgBox " العثور علي تسجيل غياب يوم جمعة بالخلية" & a: Cells(rww, col).Value = "" End If Next rww 10 Next col End Sub

السلام عليكم أخي العزيز الأرقام بها كسور حتي الرقم الثالث مما يجعلها تنتج فارق بالجمع أنظر الصورة

السلام عليكم أخي مراد أولا كل عام وأنت بخير ثانيا أنت من قدامي الأعضاء ولايجب أن تتجاوز قواعد المشاركة سأغير إسم الموضوع ليتناسب مع المطلوب ثالثا الحل أيضا سريع بالجداول المحورية (مرفق) Book1_2.rar

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك نعم يوجد طريقة سهلة بشرط أن تكون الأرقام كلها ذات طول واحد (مثلا أرقام تليفونات) الطريقة ظلل المجال كله (الذي به الأرقام) كليك يمين الماوس إختر Format Cells ثم Custom ثم في خانة Type ضع عدد الأصفار التي تريدها مثلا إذا كانت الأرقام ثمانية وتريد زيادتها للعشرة ضع عشرة أصفار 0000000000 ولزيادة علامة + بدلا من الأصفار أيضا إتبع نفس الخطوات السابقة حتي الرابعة ثم 5. ثم في خانة Type ضع + ثم 0 أو + ثم مسافة ثم 0 أيهما تفضل

السلام عليكم حل سريع بالجداول المحورية (بيفوت تيبل) Book1.rar

السلام عليكم أخي الكريم / أبو صلاح ربما لو قرأت شرح الكود تستطيع تضبيطه علي ماعندك من بيانات مرفق الملف مرة أخري وبه صفحة إضافية لشرح الكود تفضل أخي منع تسجيل غياب يوم الجمعة3.rar

السلام عليكم أخي العزيز بالملف المرفق ، أظهرت لك الأعمدة المخفية ولخصت الحل في 6 خطوات تم شرحها تفضل الملف بيانات النقص والزيادة3.rar

جزاك الله كل خير

وجزاكم ، أخي الغالي الحبيب أحمد بارك الله فيك وفي كل الأحبة

السلام عليكم أخي العزيز تجد بالمرفق زرين لعمل المطلوبين الباقيين انتهاء اقامات3.rar

السلام عليكم حللت لك الجزء الأول (إذا كان لديك أكثر من بوليصة) إظهر الأعمدة المخفية لمتابعة المعادلات بيانات النقص والزيادة2.rar

السلام عليكم أخي العزيز إليك المرفق به الجزء الأول من طلباتك انتهاء اقامات2.rar

جزاك الله خيرا أخي الحبيب