عزالدين المغربي قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 بسم الله الرحمان الرحيم والصلاة والسلام على رسول الله وعلى آله واصحابه اجمعين السلام عليكم ورحمة الله اخواني اتمنا ان تساعدوني في في التالي اولا انا استخدم برنامج الاكسيل في ادارة محلي التجاري الصغير واريد ان اضيف خاصية لملف الاكسيل تسهل علي ترتيب السلع التي نفذت من المخزون وذلك بتوفير ادات او طريقة ما تسمح بنقل معلومات العنصر الذي نفذت كميته من المخزون الى ورقة معينة في ملف الاكسيل بحيث يتم ترتيبهم واحدا تلو الآخر ليسهل طلبهم من المزود لاحقا اتمنا ان يكون الطلب واضحا وهذه صورة قد تساعد في فهم الطلب اكثر وفي المرفقات ملف اكسل كنموذج للعمل Classeur2.zip
محمود_الشريف قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 أخى الكريم كل عام وأنتم بخير بداية لى رجاء لديكم تغيير اسم الظهور الى اللغة العربية تطبيقا لسياسة المنتدى وحتى يسهل التواصل فيما بينكم وبين سائر الاعضاء واليكم بالمرفقات المطلوب ترحيل تلقائى مع بعض التغييرات الطفيفة ( قمت بتغيير اسم الشيت فقط الى 0 ) وتقبل منى وافر الاحترام والتقدير Classeur2_1.rar 2
عزالدين المغربي قام بنشر أكتوبر 3, 2014 الكاتب قام بنشر أكتوبر 3, 2014 أخى الكريم كل عام وأنتم بخير بداية لى رجاء لديكم تغيير اسم الظهور الى اللغة العربية تطبيقا لسياسة المنتدى وحتى يسهل التواصل فيما بينكم وبين سائر الاعضاء واليكم بالمرفقات المطلوب ترحيل تلقائى مع بعض التغييرات الطفيفة ( قمت بتغيير اسم الشيت فقط الى 0 ) وتقبل منى وافر الاحترام والتقدير بارك الله فيكم اخي اسل الله يجازيك خير الجزاء
عبدالله باقشير قام بنشر أكتوبر 3, 2014 قام بنشر أكتوبر 3, 2014 السلام عليكم اثراءا للموضوع هذا اختصار لكود الاخ محمود الشريف ...........حفظه الله Sub MZM_ELSHRIEF() Dim R As Integer, RR As Integer Application.ScreenUpdating = False Range("A2:C20000").ClearContents RR = 2 With Sheet1 For R = 2 To .Cells(Rows.Count, "K").End(xlUp).Row If .Cells(R, "K").Value = 0 Then Cells(RR, "A").Resize(1, 3).Value = .Cells(R, "C").Resize(1, 3).Value RR = RR + 1 End If Next R End With Application.ScreenUpdating = True End Sub المرفق 2010 Classeur2_1.rar 2
محمود_الشريف قام بنشر أكتوبر 3, 2014 قام بنشر أكتوبر 3, 2014 أخى فى الله أستاذى العلامه القدير // عبد الله باقشير كل عام وأنتم بخير وبارك الله فيكم وزادكم الله من فضله ومن علمه أسأل رب العرش العظيم أن يحفظكم من شرور خلقه بسر حفظه لكتابه الحكيم ونفع الله العباد بعلمك الذى هو فضل من رب العالمين عليكم ودليل محبه الخالق لخالقه تقبل منى وافر الاحترام والتقدير
عزالدين المغربي قام بنشر أكتوبر 4, 2014 الكاتب قام بنشر أكتوبر 4, 2014 السلام عليكم اثراءا للموضوع هذا اختصار لكود الاخ محمود الشريف ...........حفظه الله Sub MZM_ELSHRIEF() Dim R As Integer, RR As Integer Application.ScreenUpdating = False Range("A2:C20000").ClearContents RR = 2 With Sheet1 For R = 2 To .Cells(Rows.Count, "K").End(xlUp).Row If .Cells(R, "K").Value = 0 Then Cells(RR, "A").Resize(1, 3).Value = .Cells(R, "C").Resize(1, 3).Value RR = RR + 1 End If Next R End With Application.ScreenUpdating = True End Sub المرفق 2010 بارك الله فيكم استاذي الفاضل وشكرا جزيلا لك وعيدكم مبارك سعيد وكل عام وانتم الى الله اقرب ساحاول ان شاء الله ان استوعب هذه الاضافات لاني مبتدأ في الاكسل وليس لي تجربة في الاكواد وطريقة عملها لكني ساحاول أخى فى الله أستاذى العلامه القدير // عبد الله باقشير كل عام وأنتم بخير وبارك الله فيكم وزادكم الله من فضله ومن علمه أسأل رب العرش العظيم أن يحفظكم من شرور خلقه بسر حفظه لكتابه الحكيم ونفع الله العباد بعلمك الذى هو فضل من رب العالمين عليكم ودليل محبه الخالق لخالقه تقبل منى وافر الاحترام والتقدير وبارك الله فيكم ايضا ان شاء الله وعيدكم مبارك وشكرا جزيلا لكم على المساعدة كما ذكرت لكم اخي اني مبتدا في الاكسيل ولا اجيد التعامل مع الاكواد ولغات البرمجة فهل علي ان انسخ هذا الكود الى مكان معين في ملف الاكسيل وهل سيعمل على كل الشيتات مع العلم اني استخدم تقريبا 65 شيت ايضا هل علي ان احافظ على مراكز الاعمدة حتى يعمل الكود بشك صحيح فهلا افدتمونا بارك الله فيكم؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.