۩◊۩ أبو حنين ۩◊۩ قام بنشر يناير 17, 2015 قام بنشر يناير 17, 2015 السلام عليكم ارجو المساعده فى كيفيه اضافة اكثر من نطلق قبل ELSE المطلوب عمل ثلاث نطلقات مثل نطلق famely تمانا 1- glasses 2- tooth 3- surgery If Range("b" & t) = "Family" Then r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("b" & r & ":e" & r) = Range("c" & t & ":f" & t).Value Else r = Sheets(Range("a" & t).Text).[M1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("M" & r & ":M" & r) = Range("c" & t & ":C" & t).Value Sheets(Range("a" & t).Text).Range("N" & r & ":O" & r) = Range("E" & t & ":f" & t).Value End If [جزاكم الله خيرا
ياسر خليل أبو البراء قام بنشر يناير 17, 2015 قام بنشر يناير 17, 2015 أخي الحبيب أبو حنين رفقاً بنا أولاً أنت رجل قديم بالمنتدى ، فيرجى عند إدراج كود وضع الكود بين أقواس الكود <> ثانيا لو أرفقت ملف يكون أفضل حتى يسهل على من يريد المساعدة الوصول لحل سريع وفعال ثالثا مزيد من التوضيح دائما لإزالة أي لبس حول الموضوع اعذرني على كلامي فقد لاحظت في معظم مواضيعك أنها غير واضحة .. تقبل تحياتي
۩◊۩ أبو حنين ۩◊۩ قام بنشر يناير 17, 2015 الكاتب قام بنشر يناير 17, 2015 السلام عليكم الاخ العزيز ياسر ارجو ان تكون بكل خير تقبل عزرى لعدم مقدرتى على ايضاح المطلوب وكذلك عدم معرفتى موضوع الاقواس وان شاء الله سوف اتدراك الامر فى المستقبل تقبل تحياتى
ياسر خليل أبو البراء قام بنشر يناير 17, 2015 قام بنشر يناير 17, 2015 (معدل) أخي أبو حنين متزعلش مني !! إنت حبيبي والله ممكن ملف مرفق وشوية شرح للمطلوب ووضع الأكواد بين أقواس الكود .. دور على العلامة دي <> عشان تظهر بالشكل ده .. يا جميل تم تعديل يناير 17, 2015 بواسطه YasserKhalil
۩◊۩ أبو حنين ۩◊۩ قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 (معدل) السلام عليكم اخى الحبيب ياسر .. والله ما فى زعل يكفى ان الواحد بين اخوه له دائما باحسين ن المساعده للغير جزاكم الله كل الخير اخى الحبيب اولا ده كود رائع لاخ ابوعيد جزا الله كل الخير ويعمل عليه فعلا الا انى حاولت ايجاد حل مستقل لعلى اوفر عليه الوقت والمجهود المراد منه ترحيل علاج الى كارت لكل عامل على اساس رقم العامل الى هواسم الكارت يوجد به نطاقين famly والاخر personal ونظرا كون النطاق مدرج بعد if ..حاولت اضافه اكثر من نطاق ولاكن دائما يظهر خطاء وضعت الاقواس <>.الكود كامل باللمرفق If Range("b" & t) = "Family" Then> r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("b" & r & ":e" & r) = Range("c" & t & ":f" & t).Value Else r = Sheets(Range("a" & t).Text).[M1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("M" & r & ":M" & r) = Range("c" & t & ":C" & t).Value Sheets(Range("a" & t).Text).Range("N" & r & ":O" & r) = Range("E" & t & ":f" & t).Value End If< End If المطلوب اضافه اكثر من if ل 1- glasses 2- tooth 3- surgery المطلوب محاولى منى لا اعلم تاثيرها .. جزاك الله كل الخير TIST#3.rar تم تعديل يناير 18, 2015 بواسطه عبدالله المجرب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.