barakato

مشكورين بس عندي حاجه انا بعد مكتبت اكوادي و تمام قفلت و فتح الملف لاقيت ان الماكروز مقفوله و لما بفتحا مش بيتمعلها إنيبل و الدزين مود شغال علي طول مش عارف اعمل ايه

تمام انا معاك بس انا عاوز اخد مثلا لو بدانا من D اخد بعدها C وA و مش عاوز ارحل B

متشكر جدا لقد تم حل المشكله الاول لكن واجهتني مشكله تانيه cl.Offset(0, -3).Resize(1, 5).Copy Sheets("Sheet3").Range("a" & Sheets("Sheet3").[A1000].End(xlUp).Row + 1) Offset+Resize الدالتين دول عاوز احدد اعمده محدده في الترحيل هل ممكن مش عاوز ارحل كل السطر

بس يا ريت تكتبلي الكود كامل علشان انا لما كتبته بقا بيرحل اخر صف بس متشكر لاهتمامك

متشكر للافاده بس احطه قبل if ولا بعدها و بعدين دا هيعمل للشيت الاصلي و لا لشيت الترحيل

السلام عليكم لدي مشكله ...و ارجو المساعده ضروري جداا .. انا بستخدم الكود دا Sub axsion6() Dim cl As Range If [g1] = " " Then Exit Sub For Each cl In Range("d3:d" & [d1000].End(xlUp).Row) If cl.Value = "م.باطن" Then cl.Offset(0, -3).Resize(1, 5).Copy Sheets("Sheet3").Range("a" & Sheets("Sheet3").[A1000].End(xlUp).Row + 1) End If Next End Sub لكن لما ادوس علي زر ترحيل مرتين بيعمل نسختين و دا انا مش عوزه انا عاوز لما ادوس زر ترحيلمرتين او اكثر يرحل كله من جديد علشان لو في مدخلات جديده.... ارجو الاهتمام وشكرا..