اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

في الملف المرفق توضيح للمطلوب ارجو المساعدة ولكم الشكر 

Book1.rar

قام بنشر (معدل)

جزاكي الله اختي ام عبد الله عني كل خير

واعذريني ان اطمع في كرمك كود يضيف شيت جديد ويوجد باسم جديد  وعليه  نفس البيانات في الصف العلوي الموجودة في الشيت رقم 145

اختي ام عبدالله ايمكن وضع كود الترحيل هذا للترحيل من اي شيت بنفس الشرط الموجود في هذا الكود مع العلم اني قمت بنسخ هذا الكود ووضعه في نافذه جديدة وتبديل اسم الشيت 145 باسم شيت 147 لكن عند الترحيل يقوم بمسح كامل البيانات في الصفحة المرحل اليها ويظهر فقط الصف المرحل الجديد

اتمنا المساعدة وجزاكي الله عني كل خير

تم تعديل بواسطه الوليد زين العابدين
قام بنشر

الأستاذ / الوليد زين العابدين

 

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

 

الكود يعمل على أي ملف آخر بشرط تسمية الشيت الرئيسي 145 أو تغير اسم الشيت من محرر الأكواد ولك أن تضيبف شيت أو أكثر بحيث تسمي الشيت بنفس المكتوب في العمودK في الشيت الرئيسي 145 كما في الملف المرفق.

Book13.rar

قام بنشر (معدل)

 

الأستاذ / الوليد زين العابدين

 

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

 

الكود يعمل على أي ملف آخر بشرط تسمية الشيت الرئيسي 145 أو تغير اسم الشيت من محرر الأكواد ولك أن تضيبف شيت أو أكثر بحيث تسمي الشيت بنفس المكتوب في العمودK في الشيت الرئيسي 145 كما في الملف المرفق.

 

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

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

تم تعديل بواسطه الوليد زين العابدين
قام بنشر (معدل)

الاخت ام عبد الله تم نسخ الكود ولصقه في نافذه جديدة ويتم الترحيل الان من الشيت المسمى 145 والشيت المسمى الوليد لكن اذا تم الترحيل من شيت 145 الى الشيت 146 او اي شيت يتم الترحيل واذا قمنا بعمل ايضا ترحيل من الشيت الوليد الى الشيت 146 يتم الترحيل لكن يتم مسح الصف المرحل من الشيت 145 ويظهر فقط المرحل من شيت  الوليد ونفس الشيء اي ان الترحيل الثاني من اي شيت الى شيت مرحل اليه من شيت اخر يمسح الصفوف ويظهر الصف المرحل منه في الملف مرفق يتم الترحيل من شيت اللوليد و 145 

ارجو مساعدتي في حل هذه المشكلة ولك الف شكر على مساعدتك

Book1325.rar

تم تعديل بواسطه الوليد زين العابدين
قام بنشر

السلام عليكم

 

اولا تم تنفيذ الكود لجميع اوراق الملف مع عدم مسح السابق

ولكن لا ادري  ........هل هذا ما تريده ؟؟

 

المرفق 2003

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

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

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

مثلا

تم ترحيل السطر الاخير من مشروع الوليد الى مشروع 147  وبعدها لم يتم اضافة سطر اخر في مشروع الوليد وتم الضغط على كلمة ترحيل لا يسمح بتنفيذ عملية الترحيل السطر الاخير والموجه الى مشروع 147 لان هذه البيانات  موجودة مسبقا في نفس المشروع ويسمح بترحيلها اذا تم تغير اسم المشروع المرسل اليه مثلا الى 146 ارجو ان اكون وضحت طلبي

وارجو مساعدتي ولك جزيل الشكر مني 

قام بنشر

 

السلام عليكم

 

اولا تم تنفيذ الكود لجميع اوراق الملف مع عدم مسح السابق

ولكن لا ادري  ........هل هذا ما تريده ؟؟

 

المرفق 2003

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

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

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

مثلا

تم ترحيل السطر الاخير من مشروع الوليد الى مشروع 147  وبعدها لم يتم اضافة سطر اخر في مشروع الوليد وتم الضغط على كلمة ترحيل لا يسمح بتنفيذ عملية الترحيل السطر الاخير والموجه الى مشروع 147 لان هذه البيانات  موجودة مسبقا في نفس المشروع ويسمح بترحيلها اذا تم تغير اسم المشروع المرسل اليه مثلا الى 146 ارجو ان اكون وضحت طلبي

وارجو مساعدتي ولك جزيل الشكر مني 

 

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

 

استخدم فقط هذا الكود

Option Explicit

Sub kh_Trheel()
Dim NamSheet As String
Dim Last As Long
'''''''''''''''''''''''
On Error GoTo kh_ExT

Last = Cells(Rows.Count, "A").End(xlUp).Row
NamSheet = CStr(Cells(Last, "K"))
If Not IsError(Evaluate("'" & NamSheet & "'!A1")) Then
    With Sheets(NamSheet)
        If CStr(.Cells(Rows.Count, "K").End(xlUp)) = NamSheet Then
            MsgBox "مكرر": Exit Sub
        Else
            Cells(Last, "A").Resize(1, 11).Copy .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    End With
End If
'''''''''''''''''''''''
'''''''''''''''''''''''
kh_ExT:
If Err Then
    MsgBox "Error Number : " & Err.Number
    Err.Clear
Else
    MsgBox "الحمد لله تم الترحيل"
End If
'''''''''''''''''''''''
End Sub


المرفق 2003

 

تحياتي

ترحيل صف الى ورقة معينة حسب خلية معينة.rar

  • Like 1
قام بنشر

وعليكم السلام

 

ان اطمع في كرمك كود يضيف شيت جديد ويوجد باسم جديد  وعليه  نفس البيانات في الصف العلوي الموجودة في الشيت

 

 

 

هذا المرفق مع اضافة ورقة جديدة للاسم الجديد

ترحيل صف الى ورقة معينة حسب خلية معينة.rar

قام بنشر

وعليكم السلام

 

ان اطمع في كرمك كود يضيف شيت جديد ويوجد باسم جديد  وعليه  نفس البيانات في الصف العلوي الموجودة في الشيت

 

 

 

هذا المرفق مع اضافة ورقة جديدة للاسم الجديد

عاجز عن الشكر اخي عبدالله  زادك الله من علمه 

قام بنشر

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

الاستاذ عبد الله المحترم

في المرفق برنامج صلاحيات المستخدمين لاحد الاساتذه في المنتدى 

وقمت بادخال الكود الذي تم ارساله لي من قبلكم 

ارجو فقط بمساعدتي به في الشيت رقم 4 والمطلوب استاذي مسح البيانات المرحلة من الصفحة المرحل منها

وفي الشيت رقم 3 ارغب بكود يرحل فقط التنسيق مع البيانات الموجودة داخالها الى شيت جديد ويسمى الشيت بنفس الاسم الموجود في الخليه M

ويعمل في الشيت رقم 3 / 5 / 6 

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

والدخول للبرنامج 

اسم المستخدم: الدعم الفني

الرقم السري   : 1111

برنامج صلاحيات المستخدمين.rar

قام بنشر

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

الاستاذ عبد الله المحترم

في المرفق برنامج صلاحيات المستخدمين لاحد الاساتذه في المنتدى 

وقمت بادخال الكود الذي تم ارساله لي من قبلكم 

ارجو فقط بمساعدتي به في الشيت رقم 4 والمطلوب استاذي مسح البيانات المرحلة من الصفحة المرحل منها

وفي الشيت رقم 3 ارغب بكود يرحل فقط التنسيق مع البيانات الموجودة داخالها الى شيت جديد ويسمى الشيت بنفس الاسم الموجود في الخليه M

ويعمل في الشيت رقم 3 / 5 / 6 

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

والدخول للبرنامج 

اسم المستخدم: الدعم الفني

الرقم السري   : 1111

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information