أكاديمية الصقر للتدريب

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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ترحيل ونسخ بيانات اكسل

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


موضوع مغلق


28-09-2021 06:03 صباحا
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 

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

لأنني وضعت علامة يساوي فقط للنسخ

مرفق لكم الشرح

شاكر ومقدر لكم

 

 
 
  555.xlsx   تحميل xlsx مرات التحميل :(10)
الحجم :(10.64) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم
الصراحة الطلب غريب نوعاً ما .. عموماً جرب الكود التالي في حدث ورقة العمل
قبل نسخ الكود قم بحذف الصفوف بدايةً من الصف رقم 14 وكل ما يليه من صفوف بها بيانات وامسح الجدول رقم 2 بما فيه من معادلات وابدأ في عمليات الإدخال في الصف رقم 3 فقط في الجدول رقم 1
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim m As Long, n As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row = 3 And (Target.Column >= 1 And Target.Column <= 3) Then
        m = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
        Cells(m, Target.Column).Value = Target.Value
        If Target.Column = 3 Then Cells(Target.Row, 1).Select Else Target.Offset(, 1).Select
    End If
    If Target.Row >= 4 And Target.Column = 3 Then
        n = Cells(Rows.Count, 12).End(xlUp).Row + 1
        Cells(n, 12).Resize(1, 4).Value = Target.Offset(, -2).Resize(1, 4).Value
    End If
End Sub
عرض الإجابة




28-09-2021 06:43 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترحيل ونسخ بيانات اكسل
السلام عليكم أخي الكريم
الصراحة الطلب غريب نوعاً ما .. عموماً جرب الكود التالي في حدث ورقة العمل
قبل نسخ الكود قم بحذف الصفوف بدايةً من الصف رقم 14 وكل ما يليه من صفوف بها بيانات وامسح الجدول رقم 2 بما فيه من معادلات وابدأ في عمليات الإدخال في الصف رقم 3 فقط في الجدول رقم 1
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim m As Long, n As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row = 3 And (Target.Column >= 1 And Target.Column <= 3) Then
        m = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
        Cells(m, Target.Column).Value = Target.Value
        If Target.Column = 3 Then Cells(Target.Row, 1).Select Else Target.Offset(, 1).Select
    End If
    If Target.Row >= 4 And Target.Column = 3 Then
        n = Cells(Rows.Count, 12).End(xlUp).Row + 1
        Cells(n, 12).Resize(1, 4).Value = Target.Offset(, -2).Resize(1, 4).Value
    End If
End Sub

28-09-2021 01:26 مساء
مشاهدة مشاركة منفردة [2]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif ترحيل ونسخ بيانات اكسل
اشكرك استاذ ياسر
تم وضع الكود ولم يعمل الكود
فضلا لو ترفق لي الملف منسوخ به الكود لانني لا اعلم كيف الطريقه

28-09-2021 03:03 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترحيل ونسخ بيانات اكسل
الكود يوضع في حدث ورقة العمل .. كليك يمين على اسم ورقة العمل ثم اختر View Code والصق الكود في موديول ورقة العمل وليس موديول عادي
لابد أن تتعلم الأساسيات لأن شعار المنتدى لا تعطني سمكة ولكن علمني كيف أصطاد

ولترى التغيير اتبع الخطوات التي ذكرتها لك من قبل من مسح الجدول وحذف الصفوف ثم اكتب الإدخالات في الصف الثالث (اللي هو الصف الأول في جدول 1)



الكلمات الدلالية
اكسل ، بيانات ، ترحيل ، ونسخ ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:13 صباحا