saad abed

اخى ابوردينة جزاك الله خيرا صلى الله على محمد صلى الله عليه وسلم

اخى مجدى يونس جزاك الله خيرا

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

اخى الدهشورى البقاء لله اللهم اغفر له وارحمه واسكنه فسيح جناتك

اخى مصطفى جزاك الله خيرا اخى رعد العمل عمل تجارى وليس مجانى

احسن الله اليك صلى الله عليه وسلم كان احسن الناس خلقا وخلقا

اخى يوسف السادة / مدير المنتدى السادة / المرافبون السادة / مديرى الاقسام والمشرفون السادة / الاعضاء كل عام وانتم بخير اتمنى ان يكون الغائبون عن المنتدى بالف خير نسال عتهم ليدا امدوها لمساعدتنا نتذكرها ولا ننكرها الاساتذة / عماد الحسامى وعادل حنفى وابوعبدالله ويحي حسين ياسر حافظ واحمد فضيلة وهشام شلبى وياسر خليل وغيرهم كثير............... كل عام وحضراتكم بخير سعد عابد

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

اخى ابوجادالله السادة / مدير المنتدى السادة / المرافبون السادة / مديرى الاقسام والمشرفون السادة / الاعضاء كل عام وانتم بخير اتمنى ان يكون الغائبون عن المنتدى بالف خير نسال عتهم ليدا امدوها لمساعدتنا نتذكرها ولا ننكرها الاساتذة / عماد الحسامى وعادل حنفى وابوعبدالله ويحي حسين ياسر حافظ واحمد فضيلة وهشام شلبى وياسر خليل وغيرهم كثير............... كل عام وحضراتكم بخير سعد عابد

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

اخى رجب جاويش جزاك الله خيرا اكوادك واخلاقك قبل اكوادك ممتازة تقبل تحياتى سعد عابد

اخى جزاك الله خيرا سعد عابد

اخى هذه داله لاخونا المبدع عبدالله باقشير اسال الله ان ينعم عليه بالصحة والعافية لتمنى ان يكون هذا طلبك فصل الاسم.rar

استاذنا عبدالله باقشير عطاء بلا حدود السائل اجبت على تساؤله وشرحت لنا وله الكود جزاك الله خيرا بارك الله فيك سعد عابد

اخى جمال تم التحميل اسطوانة جميلة وبها ادوات كثيرة جزاك الله خيرا سعد عابد

اخوانى المعادلة تقرأ بطريقة صحيحة اعمل على ويندز 7

اخى يوسف عطا< هذا الشرح حسب فهمى للكود واردت ان اكتبه ليصحح ابوحنين الاخطاء لاستفيد من تعليقاته اشكركم Private Sub CommandButton1_Click اشارة للمتغيرينLR, x Dim LR, x تعريف المتغير lrوهو عبارة عن السطر الاخير حيث التحرك من اسفل لاعلى بداية من a10000حتى اخر سطر LR = [A10000].End(xlUp).Row المدى المشار اليه يساوى صفر (يفرغ) ورقة3.Range(;A5:Q690;).Value = عدم تحديث الشاشه Application.ScreenUpdating = False المتغيرx=5 x = 5 بداية الحلقة conter=بداية الصفوف 5الى اخر سطر وقد تم تعريفه For i = 5 To LR اف الشرطية بها شرطين متكاملين اصغرمن اوتساوى 9 واكبرمن10شرط الترحيل If Cells(i, 17).Value >= 9 And Cells(i, 17).Value < 10 Then هنا الخبرة تظهر حدد العمود aواستخدم اداة ربط النصوص ;والمتغيرiلاشارة الى a5ثم6وهكذا وريسيز للتحريك الى العمود 17ويقوم بالنسخ Range("a" & i).Resize(1, 17).Copy نفس الفكرة فى النسخ استخدمها ابو حنين فى اللصق لم يحدد بداية محدده بل ربطها بمتغير يبدا من 5 ويزداد 1 ورقة3.Range("A" & x).PasteSpecial xlPasteValues اخرج من مود النسخ واللصق Application.CutCopyMode = False x = x + 1 End If Next i رسالة تفيد بان الترحيل تم MsgBox "ثم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight, "ترحيل بيانات" تحديث الشاشة Application.ScreenUpdating = True ورقة3.Select End Sub

ابوحنين بارك الله فيك اكوادك بها لمحات ممتازة بارك الله فيك سعد عابد

ابوحنين اعمالك وردودك قيمة اسمح لى يا اخى ان ابدى اعجابى جزاك الله خيرا سعد عابد

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

اخى واستاذى عبدالله باقشير من ضمن الامنيات فى المنتدى ان يقوم عبدالله باقشير بتصميم برنامج للمنشات التجارية على الاكسيل يكون الاكسيل قاعدة بيانات 1- ان يعتمد على ادخال البيانات على الفورم ( فاتورة بيع وشراء ومردودات) وسندات قبض وصرف 2- ان يكون الاكسيل عبارة عن قاعدة بيانات ليست بشكل طولى كما هى فى الملف 3- ان تكون التقارير فى حال استدعائها فى مصنف جديد وهناك اشياء اخرى سنطرحها فى حال قبول الموضوع سعد عابد

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

استاذى الفاضل دغيدى رغم اننى لا اعمل فى المرتبات ولا فى الحكومة الا اننى اتمنى ان تكون هذه الاجابة صحيحة و طريقتها كالتالى الطبقة الأولى نحذف 50 ج من المبلغ لأنها معفاة ثم الطبقة الثانية أزيد من 50 حتى 250 ج(6 فى الألف ). الثالثة أزيد من 250 حتى 500 ج (6.5 فى الألف ). الرابعة أزيد من 500 حتى 1000 ج(7 فى الألف) . الخامسة أزيد من 1000 حتى 5000 ج (7.5 فى الألف) . السادسة أ زيد من 5000 حتى 10000 ج (8 فى الألف) . كل مبلغ يزيد عن 10000 ج تخضع الزيادة لسعر 3 فى الألف . مرفق برنامج جاهز من اعمال المحاسب صلاح مدكور وبرنامج اكسيل ارفقه اخى ابوحنين ولكنه لم يشر فيه الى وجود معادله تحسب الضريبة فى العمود b البرنامج مجرب بدليل اكتب مبلغ اقل من 50 جنية لن يعطى لك مبلغ الدمغة لانها معفاه اتمن ان اكون وفقت فى تقديم معلومة مفيدة لحضرتك اخوك سعد عابد برنامج للدمغة.rar الدمغة.rar

اخى عبدالله ربما توصلت لشئ مهم وهو وجود متغير بجوار اسم الكود الهدف id as long اظن لتكرار رقم بجوار اسم الكود 267 مره تحت نفس الاسم وبجواره رقم مختلف ): ا

اخى عبدالله المجرب البرنامج اللى عندى يتوصل لاى باسورد لمشروع الفيجول بسهوله وسرعة وقد رفعت الحماية عن الاضافات الموجوده داخل الملف فى السى ولكن لى سؤال مهم لك ارجو ان ترشدنى له Sub ASAPRunProc1(): Call ASAPRunProc(1): End Sub لقد بحثت عن الكود الموجود اسمه بعد كول اساب رن بروك لم اجده البرنامج لم يرفع الحماية بطريقه صحيحة ام ماذا سعد عابد