احمد حجازى

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

هذا هو المرفق ويا ريت تكون فهمت مقصدى يا هندسه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

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

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

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

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

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

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