أبو يوسف النجار قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 (معدل) الملف بالموضوع هذا http://www.officena.net/ib/index.php?showtopic=58428&hl=%D9%86%D8%B7%D8%A7%D9%82 الذي أجاب عنه الأستاذ / ابن مصر وتابعه كالعادة المشرف المبدع الأستاذ / ياسر خليل أبو البراء السؤال كيف أضع الكلمة المراد وضعها ولكن بشرط أن تأخذ النطاق المقابل لنطاق بعمود آخر ولكن الممتلئة بالبيانات فقط من أول خلية بها بيانات مقابلة لأخر خلية بها بيانات فقط وتحدد تلقائيا السؤال والتوضيح بالملف المرفق ولكم جزيل الشكر سؤال في النطاق 2.rar تم تعديل يونيو 7, 2015 بواسطه أبو يوسف النجار رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 انسخ هذا الكود الى Module و قم بوضع زر لتنفيذه Sub salim_has() Dim LR As Long Dim Rng As Range, Cell As Range ''''''''''''''''''''''''''''''''''''''''''''''' lrb = Cells(Rows.Count, 2).End(xlUp).Row Set Rng = Sheets("Sheet1").Range("b2:b" & lrb) Range("c2:c" & lrb) = "" '''''''''''''''''''''''''''''''''''''''''' Do While i < lrb - 1 Cells(i + 2, 3).Value = "ناجح" i = i + 1 Loop End Sub 1 رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 انسخ هذا الكود الى Module و قم بوضع زر لتنفيذه Sub salim_has() Dim LR As Long Dim Rng As Range, Cell As Range ''''''''''''''''''''''''''''''''''''''''''''''' lrb = Cells(Rows.Count, 2).End(xlUp).Row Set Rng = Sheets("Sheet1").Range("b2:b" & lrb) Range("c2:c" & lrb) = "" '''''''''''''''''''''''''''''''''''''''''' Do While i < lrb - 1 Cells(i + 2, 3).Value = "ناجح" i = i + 1 Loop End Sub تمام أستاذ سليم ما شاء الله لو سمحت أنا مبتدء بالفجول بيزك / ممكن الشرح كيف أغير النطاقات وأنقل الموديول لصفحة أخرى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 الموديل هو بشكل general اي انه يعمل مع كل الصفحات فقط قم بتنشيط الصفحة المطلوبة و نفذ فيها الماكرو لتغير النطاقات فقط بدل الاحرف في الكود: مثلاً تبديل B الى M يقوم الماكرو بالتنفيذ على العامود M وهكذا 1 رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 الموديل هو بشكل general اي انه يعمل مع كل الصفحات فقط قم بتنشيط الصفحة المطلوبة و نفذ فيها الماكرو لتغير النطاقات فقط بدل الاحرف في الكود: مثلاً تبديل B الى M يقوم الماكرو بالتنفيذ على العامود M وهكذا شكرا جزيلا أستاذ / سليم على التواصل وسرعة الرد تم تحديد أفضل إجابة بارك الله فيك وكثر من أمثالك بصراحة منتدى الله أكبر عليه وعلى كل إلي فيه رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 استاذ / سليم مش عارف أغير العمودين النطاقين وأغير بداية الصف معلش بالمصري رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 7, 2015 أفضل إجابة مشاركة قام بنشر يونيو 7, 2015 أخي الغالي سليم لما استخدام الحلقات التكرارية هنا Sub TypeSpecificWord() Range("C2:C" & Rows.Count).ClearContents With Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row) .Value = "ناجح" End With End Sub يمكن ببساطة استخدام الكود بهذا الشكل 1 رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 أخي الغالي سليم لما استخدام الحلقات التكرارية هنا Sub TypeSpecificWord() Range("C2:C" & Rows.Count).ClearContents With Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row) .Value = "ناجح" End With End Sub يمكن ببساطة استخدام الكود بهذا الشكل حبيبي في الله الأستاذ / ياسر وصل جاري التجربة أستاذنا رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 فعلا أستاذنا / المشرف النشيط ياسر خليل أبو البراء الكود الأخير أسهل وبسيط في الاستخدام وخاصة لواحد مثلي الشكر موصول للأستاذ / سليم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 اخي ياسر هذا خيار اخر قمت به جزاك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان