ترحيل الخلايا التي تحتوي على ارقام فقط

[skyblue]

السلام عليكم ورحمة الله وبركاته وبعد :

برجاء المساعدة في الملف المرفق

تحياتي

Book1.rar

[عبد الفتاح كيرة]

ضع المعادلة التالية فى e4 من الورقة الثانية

=ورقة1!E5+ورقة1!F5

و فى e5

=ورقة1!E6+ورقة1!F6

[skyblue]

اخي kemasاشكرك على الرد . ولكن أنا اقصد اذا كانت الخلية يوجد بها مبلغ يترحل المبلغ بالاضافة الى ترحيل البيان الخاص

بها الى ورقة 2 عن طريق الكود .

تحياتي لك

[طارق محمود]

السلام عليكم

تفضل أخي المرفق بالكود

Sub shft()


For i = 1 To [D1000].End(xlUp).Row

	a = Cells(i, 4)

	x = WorksheetFunction.Max(Cells(i, 5), Cells(i, 6))

	If a <> "" And x > 0 Then

   	Sheets("ورقة2").[D1000].End(xlUp).Offset(1, 0) = a

   	Sheets("ورقة2").[D1000].End(xlUp).Offset(0, 1) = x

	End If

Next i


End Sub

ترحيل.rar