اختيار خلايا تحتوى على قيمة معينة

[abdelfattahbadawy]

أحتاج كود لإختيار الخلايا التى قيمتها 15% فى ورقة العمل وإعطائها Define name (rng_15) مثلاً وأنا أقوم بباقى العمل 

Book1.xlsm

[محي الدين ابو البشر]

   ربما

Sub test()
    Dim mr As Range
    Dim r As Range
    For Each r In Cells(4, 3).Resize(Cells(Rows.Count, 3).End(xlUp).Row, 9).Cells
        If r = 0.15 Then
            If mr Is Nothing Then
                Set mr = r
            Else
                Set mr = Union(mr, r)
            End If
        End If
    Next
    mr.Name = "rng_15"
End Sub

 

[abdelfattahbadawy]

مشكور أخى محى جزاك الله خيراً ورفع قدرك وزادك فى العلم والرزق بغير حساب 

أنا قمت بإضافة صفر فقط فى السطر الأخير لكى يقوم بإختيار العمود B لكى تفلح النتيجة فى عمل rng_100  والحمد لله نجحت الفكرة  

مشكور مشكور مشكور 

[محي الدين ابو البشر]

بارك الله

ولك مثل ما دعوت