skyblue قام بنشر فبراير 8, 2011 مشاركة قام بنشر فبراير 8, 2011 السلام عليكم ورحمة الله وبركاته وبعد : برجاء المساعدة في الملف المرفق تحياتي Book1.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر فبراير 8, 2011 مشاركة قام بنشر فبراير 8, 2011 ضع المعادلة التالية فى e4 من الورقة الثانية =ورقة1!E5+ورقة1!F5 و فى e5 =ورقة1!E6+ورقة1!F6 رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر فبراير 8, 2011 الكاتب مشاركة قام بنشر فبراير 8, 2011 اخي kemasاشكرك على الرد . ولكن أنا اقصد اذا كانت الخلية يوجد بها مبلغ يترحل المبلغ بالاضافة الى ترحيل البيان الخاص بها الى ورقة 2 عن طريق الكود . تحياتي لك رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 9, 2011 مشاركة قام بنشر فبراير 9, 2011 السلام عليكم تفضل أخي المرفق بالكود 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.