تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
السلام عليكم ورحمة الله وبركاته
فضلا المساعدة في التعديل على الكود التالي والتي تتلخص وظيفته في التالي
عند الضغط على زر الكود يتم بحث النطاق من 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
مرفق الملف الاصلي المطلوب العمل عليه وتم الايضاح عليه وان شاء الله اكون قدرت اوصل المطلوب وجزاكم الله خيرا
أفضل إجابة مقدمة من
YasserKhalil
وهي:
وعليكم السلام
جرب الكود بهذا الشكل
عرض الإجابة
جرب الكود بهذا الشكل
Sub MyTest()
Dim r As Long, m As Long
m = 30
For r = 51 To 119
If Cells(r, "G").Value = "YES" Then
m = m + 1
If m > 39 Then MsgBox "No More", vbExclamation: Exit Sub
Cells(m, 2).Value = Cells(r, 2).Value
End If
Next r
End Sub
أعجبني أعجبك هذاإلغ اعجابي 0
