شرط في ملئ نطاقات مختلفة بارقام ثابتة لكل نطاق

[أبو يوسف النجار]

الملف بالموضوع هذا

 

http://www.officena.net/ib/index.php?showtopic=58428&hl=%D9%86%D8%B7%D8%A7%D9%82

 

الذي أجاب عنه الأستاذ / ابن مصر

وتابعه كالعادة المشرف المبدع الأستاذ  /    ياسر خليل أبو البراء

السؤال

كيف أضع الكلمة المراد وضعها ولكن بشرط أن تأخذ النطاق المقابل لنطاق بعمود آخر ولكن الممتلئة بالبيانات فقط من أول خلية بها بيانات مقابلة لأخر خلية بها بيانات فقط وتحدد تلقائيا

السؤال والتوضيح بالملف المرفق ولكم جزيل الشكر

سؤال في النطاق 2.rar

تم تعديل يونيو 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

[أبو يوسف النجار]

 

 انسخ هذا الكود الى 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

 

تمام أستاذ سليم  ما شاء الله

لو سمحت أنا مبتدء بالفجول بيزك / ممكن الشرح كيف أغير النطاقات وأنقل الموديول لصفحة أخرى

[سليم حاصبيا]

الموديل هو بشكل general  اي انه يعمل مع كل الصفحات

فقط قم بتنشيط الصفحة المطلوبة و نفذ فيها الماكرو 

لتغير النطاقات فقط بدل الاحرف في الكود:

مثلاً تبديل B الى M  يقوم الماكرو بالتنفيذ على العامود M  وهكذا

[أبو يوسف النجار]

الموديل هو بشكل general  اي انه يعمل مع كل الصفحات

فقط قم بتنشيط الصفحة المطلوبة و نفذ فيها الماكرو 

لتغير النطاقات فقط بدل الاحرف في الكود:

مثلاً تبديل B الى M  يقوم الماكرو بالتنفيذ على العامود M  وهكذا

شكرا جزيلا أستاذ / سليم على التواصل وسرعة الرد

تم تحديد أفضل إجابة بارك الله فيك وكثر من أمثالك 

 بصراحة منتدى الله أكبر عليه وعلى كل إلي فيه

[أبو يوسف النجار]

استاذ / سليم

مش عارف أغير العمودين النطاقين 

وأغير بداية الصف معلش بالمصري

[ياسر خليل أبو البراء]

أخي الغالي سليم لما استخدام الحلقات التكرارية هنا

Sub TypeSpecificWord()
    Range("C2:C" & Rows.Count).ClearContents
    With Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row)
        .Value = "ناجح"
    End With
End Sub

يمكن ببساطة استخدام الكود بهذا الشكل

[أبو يوسف النجار]

أخي الغالي سليم لما استخدام الحلقات التكرارية هنا

Sub TypeSpecificWord()
    Range("C2:C" & Rows.Count).ClearContents
    With Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row)
        .Value = "ناجح"
    End With
End Sub

يمكن ببساطة استخدام الكود بهذا الشكل

حبيبي في الله  الأستاذ / ياسر وصل

جاري التجربة أستاذنا 

[أبو يوسف النجار]

فعلا أستاذنا / المشرف النشيط ياسر خليل أبو البراء

 

الكود الأخير أسهل وبسيط في الاستخدام وخاصة لواحد مثلي

الشكر موصول للأستاذ /  سليم

[سليم حاصبيا]

  اخي ياسر

هذا خيار اخر قمت به جزاك الله خيراً