(تمت الاجابة) الغاء الترحيل السابق واثبات الصحيح

[skyblue]

المشرفين والاعضاء الافاضل المحترمين

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

طلبي هذا يخص جزئية انا محتاجها في برنامج خاص بي

الشرح موجود في الملف المرفق .

الموضوع على رغم صعوبته فانني علي يقين ان شاء الله ان من في هذا المنتدى سيجدون الحل

تحياتي للجميع

Book19.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود (لتعديل بيانات اخر سطر مرحل)

Sub ss1()

Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 6) = Cells(3, 1)

Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 7) = Cells(3, 2)

Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 8) = Cells(3, 3)

End Sub

[أبو عبد النور]

السلام عليكم،

بعد إذن الاخ عبد الله.

جرب المرفق.

apt - Skyblue - v1.rar

[skyblue]

حفظك الله ياابو احمد على هذا الحل .. والله ماكنت اعتفد ان اجد مثل هذا الحل . ولكن الحمد لله .

تفبل مني يابو احمد تحياتي وتقديري .

ايضا نشكر الاخ apt على المساهمة في الحل ولكن للاسف الملف الللي في مشاركته لايفتح .

[عبدالله المجرب]

حياك الله اخي الفاضل

[أبو عبد النور]

أهلا أخي skyblue

لا ادري اين المشكلة لديك ان التحميل فاق الـ 14.

جرب المرفق

apt - Skyblue - v1.rar

[skyblue]

يابو احمد الله يخليك ويسعدك اليوم طبقت الكود على برنامج لدي في العمل فاعطى نتيجة مذهلة ولكن على السطر الاخير فقط .

فهل يمكن ان نجعاه عاى جميه الاسطر سواءا اتعدلت ام لا .

فقد حاولت بهذا الكود ولكن لم يضبط معي

	  Sub ss1()

	   For i = 3 To 10

	   If Sheets("1").Cells(i, "c") <> 0 Then

	 Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 6) = Cells(i, "a")

	 Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 7) = Cells(i, "b")

	 Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 8) = Cells(i, "c")  

	 End If

	 Next i

	 End Sub

تقبل تحياتي

Book19.rar

[skyblue]

up