Ali Mohamed Ali

تفضل https://www.officena.net/ib/topic/42985-برنامج-الحسابات-العامة-والضرائب-excel-vba/?tab=comments#comment-247636

ملفك من البداية كان ثقيل جدا وربما كان به فيروس ونصحتك بضبط الملف

تفضل مكرر.xlsx

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

رائع أستاذ سليم موضوع مهم ويفيد في كل المواضيع التي تعتمد على وجود مسافة واحدة بين الكلمات وببعضها البعض داخل النص جعله الله في ميزان حسناتك وزادك الله من فضله ورحم الله والديك

تفضل تم الحل والإجابة المطلوبة من قبل الأستاذ أبو نور ولاحظ التغيير فى الملف بنفسك إيصال قبض وسند صرف.xlsm

وعليكم السلام أين الملف ؟!!!!!!!!!!!!!!

لا يمكن افضل من هذا -فكان عليك من البداية ضبط الملف قبل رفعه بالمشاركة نظام البصمة2.xlsx

أحسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله ورحم الله والديك

بارك الله فيك أستاذ مجدى وجزاك الله كل خير

ممتاز أستاذ مجدى عمل رائع بارك الله فيك وجعله في ميزان حسناتك

أخى الكريم MAAAS ,معادلة الأستاذ سليم رائعة وتعمل بكل دقة له منا كل المحبة والإحترام يمكن قد حدث معك مشكلة وخطأعند نقل المعادلة من ملف الى اخر ,فهذه معادلة مصفوفة وليس معادلة عادية اى لابد بعد كتابة المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات فاذا كان هناك مشكلة أخرى غير هذا تحدث معك فعليك برفع صورة او الملف الذى به المشكلة لمعاينة المشكلة والعمل على حلها

أحسنت أستاذ سليم بارك الله فيك

وعليكم السلام-تفضل ربط اكثر من عمود بقاعدة بيانات.xlsx

كما اخبرك الأستاذ عمر بارك الله فيه وجزاه الله كل خير تفضل الملف بعد عمل المطلوب المبيعات اليوميه.xlsm

وعليكم السلام تفضل لك ما طلبت المبيعات اليوميه.xlsm

أحسنت بارك الله فيك استاذ محمد

وعليكم السلام تفضل لك ما طلبت-كما يمكنك زيادة اعداد الموظفين كما تشاء فى جدول البيانات المعطاة المصنف6.xlsx

وعليكم السلام بارك الله فيك استاذ عبد اللطيف وفى صاحب البرنامج الأستاذ صادق جعله الله فى ميزان حسناتكما

تفضل program.xls

بارك الله فيك استاذ مجدى هذا رابط به شرح بالتفصيل لما تريد http://excel-egy.com/forum/t440&count=0#24704

ممتاز بارك الله فيك استاذ سليم وجعله فى ميزان حسناتك وزيادة فى اثراء الموضوع بعد اذن حضرتك طبعا استاذ سليم ,يمكن استخدام هذا الكود Sub NameSplit() Dim var As Variant Dim rw As Long With Worksheets("Salim") For rw = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If CBool(Len(.Cells(rw, "A").Value2)) Then var = Split(.Cells(rw, "A").Value2, Chr(32)) .Cells(rw, "B").Resize(1, UBound(var) + 1) = var End If Next rw End With End Sub

أخى الكريم تم عمل المطلوب ولكن ملفك مش عارف ليه ثقيل جدا وبه مشاكل كثيرة عليك بضبط الملف وتم عمل اجمالى صافى ساعات العمل للموظف في الخلية E1 نظام البصمة.xlsm

وعليكم السلام-تفضل تظليل تلقائى.xlsx

بارك الله فيك وجزاك الله كل خير