السلام عليكم ورحمة الله وبركاته
فضلا المساعدة في التعديل على الكود التالي والتي تتلخص وظيفته في التالي
عند الضغط على زر الكود يتم بحث النطاق من G75:G114 وكل خليه يوجد فيها YES (و YES دي نتيجة معادلة معينة موجودة في الخلية)
يتم نسخ القيمة في المقابلة الموجودة في العمود B ليتم نسخ كل الخلايا المقابلة لكلمة YES في النطاق الجديد في نفس الشيت بدأ من الخلية B29 الى الخلية B36
Sub test1()
Dim rcnt As Long
rcnt = Worksheets("ALEX").Range("g" & Rows.Count).End(xlUp).Row
For i = 1 To rcnt
If Range("G" & i).Value = "YES" Then
Range("G" & i).Offset(0, -5).Copy
Range("B30").Offset(1, 0).PasteSpecial xlPasteAll
End If
Next i
Application.CutCopyMode = False
End Sub
مرفق الملف الاصلي المطلوب العمل عليه وتم الايضاح عليه وان شاء الله اكون قدرت اوصل المطلوب وجزاكم الله خيرا