احمد حجازى

حضرتك اعتبره ورقه عمل جديده لان خبره حضرتك هتفرق كتير بمراحل بمعنى انى طالب من حضرتك تعملى السيتم اللى شرحته لحضرتك ف الورقه دى وللك جزيل الشكر بجد وهستنى رد حضرتك اعتبر الكود السابق الى عملته كان لم يكن وان شا الله مستنى مجهود حضرتك الرائع فى الورقه دى .وربنا يجزيك خيييير بجد ........

هذا هو المرفق ويا ريت تكون فهمت مقصدى يا هندسهBook1.rar

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

Sub ahmed() Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For r = 8 To 300 If sh.Name = "Sheet1" Then GoTo 2 If Cells(r, 5).Value <> Empty Then If Cells(r, 5).Value = sh.Name Then Range(Cells(r, 1), Cells(r, 13)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("a" & QQ).PasteSpecial xlPasteValues End If End If Next 2 Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

You aren't permitted to upload this kind of file ارجو النسعده ليه رافض يرفع الملف بتاعى ..............انا عايز كود ترحيل مشروح يرحل لى بيانات اعمده معينع لما اكتب اسم الشركه ارجو الافاده بسرعه جداااااااااا وشكر خاص للاساذ رجب وابو احمد والاخ ابو نصار شرحهم فوق الممتاز بجد

هو مش عاوز ليه يرفع الملف يا استاذنااااا

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

يا جماعه عايز اكواد ترحيل مشروط يعنى مثلا ارحل عمود وعمود اخر لا يليه بمعنى ترحيل صف كامل من اعمده مختلفه

ليه طلب رجاء عايز كود ترحيل حسب الاسم لاكتر من ورقه عمل ؟؟؟؟؟؟؟؟؟؟؟؟؟ بالله عليكم ليه طلب رجاء حطه اكواد الترحيل كلهااا مع الشرح ميرسى لخدماتكم الوفيره دى واعانكم الله دوماااا على الصعاب

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