onlymanly

ما شاء الله لا قوة إلا بالله... اللهم علمنا و علمهم و انفعنا بما علمتنا. الدعاء و الشكر لكم جميعا : /أبو أنس حاجب و /رجب جاويش .و/ محمود بارك الله لكم و فيكم .مفيدٌ جداً ما كتبتموه

الفضلا جميعا ... السلام عليكم. و رحمة الله و بركاته.. اريد جمع بشرط في عمود اخر و إليكم المرفق مع الشكر سلفا add.zip

الحمد لله وجدت الحل لتبيين الخلل ...و هو تعديل بسيط على كود الفاضل الأستاذ\ طارق.... بارك الله فيه و من باب الفائدة للجميع اليك الكود Sub mack() Dim rep(1000) As Integer, f, sh As Sheets, nm As String, X, Last As Long, W, WW As Range, ASL As Long, l Application.ScreenUpdating = False Set RN_B = Range(Cells(14, 2).End(xlUp), Cells(13, 2).End(xlDown)) Set RN_K = Range(Cells(13, 12).End(xlToLeft), Cells(Rows.Count, 11).End(xlUp)) [A:k].Interior.ColorIndex = xlNo For Each f In RN_B SUM_NJ = 0 i = 0 For Each s In RN_B If s.Value = f.Value Then i = i + 1 rep(i) = s.Row SUM_NJ = SUM_NJ + Range("G" & rep(i)).Value If Range("d" & rep(1)) <> Range("d" & rep(i)) Then Range("d" & rep(i)).Interior.ColorIndex = 3 If Range("h" & rep(1)) <> Range("h" & rep(i)) Then Range("h" & rep(i)).Interior.ColorIndex = 3 If Range("k" & rep(1)) <> Range("k" & rep(i)) Then Range("k" & rep(i)).Interior.ColorIndex = 3 End If Next s Next f End Sub و هو خاص بملفي المرفق تماما ..و يبقى مسالة تفريغ الخلل الى ورقة مستقلة و هو امر سهل إن شاء الله

بارك الله فيك اخ محمود على جهدك و تعاونك... لكني اريد الأمر يكون على شكل ماكرو... ثم من غير حاجة إلى ادراج أعمدة لكل معيار من المعايير الثلاثة المطلوب بشكل اوضح: تتم أحيانا كتابة بيان التعبئة من قبل الموظف بطريقة خاطئة... لان طبيعة بيان التعبئة توضيح مواضع الصنف في الكراتين -مثلا- فقد يتكرر الصنف في البيان أكثر من مرة لسبب تعدد مواضعه في الواقع فقد يكون مثلا مويدل رقم (m15) موجودا في كرتون رقم 5 و قد يكون في كرتون رقم 300 و قد يكون في كرتون رقم 24 لهذا قد يخطأ الموظف و يغير سعر الصنف في بعض المواضع في البيان او قد يخطئ و يكتب اسم المصنع الذي صنع هذا الصنف و يكتب اسم مصنع اخر غير المصنع الحقيقي مما يترتب عليه لخبطة كثيرة في توزيع المبالغ . أو قد يخطئ في كتابة و توصيف الصنف فقد يسميه في الموضع الثالث او الرابع قلم حبر بينما هو في الموضع الأول الحقيقي : مسطرة .. و هكذا.. ف أريد ان يعمل البرنامج تشييك على كل صنف و في حين التفاوت و الغلط ينشئ ورقة جديدة و يكتب الصنف الذي تم الخطأ فيه و يحدد موضع الخطأ في الصنف حسب بيان التعبئة. و يضع بجانب الخطأ القيم الصحيحة في عمود اخر بجانبه و هكذا.. أرجو أن تكون الصورة واضح .. و لك شكري و تقديري

هلا اخي محمود...شكرا لاهتمامك .. حسب المرفق.. معايير التنبيه أربعة.. الرقم للنصف.. ثم الوصف.. ثم السعر ثم اسم المصنع .

أسعد الله اوقات الجميع بالف خير... و بعد: أتمنى من الأخوة الفضلاء مد يد العون في انشاء كود للملف المرفق.. و شرح الطلب في المرفق... وافر الشكر و الامتنان لكل ذي فضل و علم . FY-2012-005.rar

ما شاء الله على هذا المنتدى الرائع. الأستاذ القدير عادل.. عن طريق كود مطلوب . منع تكرر قيم عمود B إذا كان في نفس الصفوف المتكررة فيها القيم في عمود K أكثر من إسم .. مثال: رقم :1 في عمود B تكرر في الصف العاشر و السابع و في نفس الصفين في عمود K يوجد إسم مثلا :محمد المطلوب . لو كان بدل إسم محمد في الصف السابع المطلوب منع هذا التكرير.. يعني لا يجوز (برمجيا لا شرعا) أن يشترك أكثر من إسم في قيمة واحدة

السلام عليكم.. العفو .. لم ار إضافاتكم هنا إلا الان نظرا للمشاغل . مرحبا استاذي /aah_aah2008 .لا عليك .. فكل واحد له من الظروف ما يحميه من اللوم .. الأخ/habibsss .. مرحبابك. و أرجو لك هنا إقامة ممتعة مفيدة. هل تقصد برسالةالخطأ :التنبيه على وجود خلل في الصف؟ إن كان هذا الذي تقصده فهو موجود في الفورم. و إن كان غيره فوضحه لو سمحت. أما مسالة شرح الأكواد. فأتركها على العلامة الفاضل /aah_aah2008 ..فلستً شيئا أمام قدراته. أما تعديلي لملفك فهومحض تطفل و رغبة مني في المشاركة و تقديم العون بقدر الإمكان رغبة في الأجر. و ارجو أن يلب يطلبك من هو اقدر مني.

شاهد المرفق.. أمل أن يكون فيه الحل لمشكلتك .... عدلت فيه التالي: 1-جعلته يظهر التسلسل بشكل حقيقي في الكمبوكس 12... 2- يتتبع الصف المخروم من التسلسل و يحذفه. 3-عند تشغيل الفورم يعطيك رسالةتحذيرية بوجود الخرم للتسلسل و يعطيك الخيار بحذفه يدويا أو يقومهو بالحذف أليا. 4-يعيد التسلسل المخروم بسبب الخرم و الحذف في اان واحد من جديد على الشكل الصحيح. حتى لو جربت و حذفت أي رقم تسلسلي و الفورم شغال فإن أحد الليبلات يتغير لونها بالأحمر مع تغيير الكابشن إلى رسالة تحذيرية ، و بعد تسوية الخلل يعود كل شي كماكان. 5-يعطيك رسالة برقم الصف المخلول حتى يسهل الرجوع إلى الصف في حالة تكاثر البيانات و صعوبة الإهتداء إلى مواقع الخلل. دعوة صالحة تكفي من سعادتك متابعة.rar

الأستاذ المهندس طارق. حقيقة و من غير مبالغةأنت في نظري متمكن جدا ، وصاحب أخلاق و روح متعاونة ، بالغت في وصف الحال يا استاذي,, أنا جدا مبتدئ في الإكسل أو أكواده . لم أكن أجرؤ أن ادخل نطاق الأكوادو لما طرحت أول طلب هنا في إنشاء معادلات لفاتورة ، ثم سند صرف و قبض و ما شابه ، فكنت أنت و باقي الإخوة مثالا في إسداء العون . فاقولها حقيقة ملفك في ترحيل القيود الذي عملته لي كان حافزا لي في التعلم. الشكر لله ثم لك ، و لهذا المنتدى الجميل,, . تنالك مني الدعوة الصالحة و العرفان بأخلاقك و قدرتك على ترويض الأكواد كانها تسير في يدك كما تريد.

اعتذر عن التأخير عن الرد لعدم وجود الوقت الكافي. الأخ alaa2009 ,, مرحبا بك .. و سأعدل الملف ليتوافق مع نسختك إن شاء الله .. الأستاذ/aah_aah2008 اشترف بمرورك و الفضل لله ثم لهذا المنتدى الجميل المفيد. الأستاذ الفاضل / سعد عابد .. مرحبا بك و الشكر موصول لكم جميعا.

استاذ طارق أسعد الله صباحك بكل خير... سعيد بمرورك أولا.. ثانيا:الملف ملفك.. صحيح أني عدلت فيه بعض الشي ولكن تعديلي لايرفع قيمة ملفك إلى مستوى الإستغراب و إليك رابط الموضوع http://www.officena.net/ib/index.php?showtopic=33865&st=0&p=176697&hl=+بيان%20+تعبئة&fromsearch=1&#entry176697

كلمة السر 123 و للحماية @

السلام عليكم.. ملف أحسبه جميلا تعبت عليه و سهرت عليه كثيرا -نظرا لقصور علمي في الإكسل إلا أني أظن أني أتيت فيه بالشي الجميل - لا اريد أن أزكيه كثيرا.. ملاحظة ، الفضل فيه بعد الله جل و علا للأخ المهندس طارق فهو الذي جرأني على المحاولة و التعلم و كذلك الفضل لهذا المنتدى الرائع و لبعض المنتديات الأجنبية . فقط أتمنى دعوة صالحة ممن استفاد منه . شرح مكونات الملف ينقسم قسمين اساسيين : ملف إجراء عمليات محاسبية : قيود ، صرف، قبض ، فواتير، مع كروت حسابات بفورم ، عنداختيار الحساب عن طريق الفورم يتيح لك قوائم بأنواع الحسابات الرئيسية ، و إمكانية عرض صور و هي في مجلد منفصل و تعرض في بعض خلايا بجانب إسم و رقم الحساب ثم عند تغيير الحساب من حقله تتغير الصورة بالرغم من بقائها في مجلد منفصل ، و اشياء كثيرة يمكن الإطلاع عليها ملف هدف للترحيل ، و فيه امكانية استعراض الحساب و فرزه حسب القيود و باحث عملاق يبحث في كل الحسابات ولو عن كلمة أو حرف و ينقلك إليه مباشرة و فيه إمكانية أخذ نسخ احتياطية للملفات كاملة أو لكل عملية في قسم منفصل ، فاسناد الصرف مثلا يتم أخذ نسخة تلقائيا بعد إكتمال اجرائه إلى مجلد منفصل و تتم ارشفة السندات بحسب الرقم في ملف واحد و يكون السند الواحد عبارة عن ورقة في ملف منفصل و هكذا القبض و الفواتيرو باقي الحسابات. ONLY.rar

السلام عليكم. أتحفني الأستاذ المهندس طارق جزاه الله خيرا بكود لبيان التعبئة وظيفته:تبيان تكرير الصنف ، جمع الكمية عند أول موضع يمر المؤشر عليه و تلوين باقي المواضع للصنف بلون مميز . المطلوب حاليا: 1- جعل الكود عبارة عن ماكرو ينفذ المهمة من غير اشتراط مرور المؤشر على الصنف. 2- ترحيل بيانات الصنف (من غير تكرير فقط مع جمع الكمية المكررة) إلى ملف مستقل يحمل نفس إسم الملف المفتوح و نفس إسم الورقة ويكون عبارة عن تصدير إلى الملف المغلق من غير فتحه أساسا. و يوجد عندي كون سأرفقه مع الملف المراد تعديله مهمته استيراد محتوى ملف مغلق من غير الحاجة إلى فتحه على اساس ان يكون في نفس الدليل الموجود فيه الملف المستخدم. وأتمنى أن يحالفني الحظ و يطلع الأستاذ طارق على طلبي فهو بيت القصيد نظرا لأنه صاحب الكود .. مع وافر الشكر للجميع على فكرة نسيت شيئا ان الملف محمي بباسوورد @ و لن يعمل الكود من غير فك الحماية ثم اغلاقه و فتحه مجددا PACKING LIST.rar

الف شكر أخي kemas و إن كان طلبي أسهل و اكثر اختصارا من الكود الذي تكرمت به .. مع ملاحظة فتح الملف الوجهة و التشييك على كونه مفتوحا أو لا.. مع عدم التعرض للتنسيق ملف الوجهة.. و في المرفق فكرة جميلة جدا و هي استدعاء بيانات من ملف دون حتى فتحه أساسا.. و هي فكرة رائعة .. فقط أحتاج من يضع لمساته على الكود و يعل فيه خيارا لوجود تفاوت بين موضع البيانات المستدعاة في الملف الوجهة.. اتمنى التكرم بمشاهدته و محاولة جعله مرنا اكثر.. GetData استيراد بيانات.rar

السلام عليكم و رحمة الله .. الإخوة الفضلاء جميعا السلام عليكم و رحمة الله و بركاته... كما يعلم الله أنني اشتقت لكم كثيرا... و لفوائدكم و طيب سريرتكم .. و لكن العتب على التزامات الحياة و مشاغلها.. أتمنى أن لا أثقل عليكم بطلبي فأنا ضئيل المعرفة جدا بالأكواد .. فقط أحاول غالبا أحاكي أو اقتبس من أكوادكم.. اريد ترحيل بيانات من ملف إلى ملف مع تفاوت في بعض مواقع البيانات المرحلة ..فمثلا في الملف المصدر بيانات في عمود B مطلوب ترحيلها إلى الملف الوجهة إلى عمود C مثلا كماهومشاهد في المرفق .. و جزاكم الله الف خير. الشكر موصول للجميع و ارجو أن يكون الجميع بألف خير و عافية مع هذه الأحداث السيئة التي يمر بها العالم الإسلامي.. و ارجو الله أن يبصر الشعوب بمصالحها و أن يعجل بخروج المهدي مهدي أهل السنة و الجماعة محمد بن عبد الله .. أمين Book1-2.rar

أرجو من الإخوة المساعدة لدي ملف تعبت في أصلاحه ليوافق الحاجة ينقصه مساعدة خفيفة p.rar

و فوق كل ذي علم عليم...افكار رائعة جزاك الله خيرا

بارك الله فيك و لا عدمناك يا غالي

كيف أجعل الـ LISTBOX يعرض في الفورم 15 عمود؟؟

اعرف ان الجميع منشغل و كل له ظروفه ، و لكن ربما هناك من المتمكنين من يحل بعض الإشكالات بشكل أسرع بكثير ممن لا دراية لديه آمل أن أجد حلا لمشكلتي في المرفق تعديل خفيف.rar

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

الرائعان الأستاذ المهندس طارق و الأستاذ المبدع الحسامي ... شكري لسعادتكما.. و ممنون لأحرفكماجدا.. لكن اريد أن يكون الترحيل للخلية A12 غير مقيد بترحيل كل ما في الأسبوع.. فقط عند إدخال اي قيمة في حقول الخصومات أو الغياب أن يتم ترحيلها إلى الخلية المذكورة مع التنبيه على عملية الترحيل... الله يحفظكم أجميعن

المرفق قد يوضح الطلب اكثر mmm.rar