اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





اريد كود للترحيل من الخلايا فى الصفحة الاولى الى خلايا فى الصفحة الثانية

ارجو المساعدة من الاخوة الاعضاء اريد الترحيل من الخلايا فى الورقة 1 الى الخلايا فى الورقة 2 كما هو موضح فى الملف لمشاهد ..



05-09-2017 05:19 مساء
faraktoz
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 362
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 15-8-1989
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 

ارجو المساعدة من الاخوة الاعضاء 
اريد الترحيل من الخلايا فى الورقة 1 الى الخلايا فى الورقة 2
كما هو موضح فى الملف لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  55555555yy.rar   تحميل rar مرات التحميل :(15)
الحجم :(93.97) KB







05-09-2017 06:39 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif اريد كود للترحيل من الخلايا فى الصفحة الاولى الى خلايا فى الصفحة الثانية
السلام عليكم أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

جرب الكود التالي ..
Sub Test()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim lr As Long
    
    Set ws = ThisWorkbook.Worksheets("ورقة1")
    Set sh = ThisWorkbook.Worksheets("ورقة2")
    lr = sh.Cells(Rows.Count, 6).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        sh.Range("F" & lr).Value = ws.Range("O7").Value
        sh.Range("O" & lr).Value = ws.Range("O9").Value
        sh.Range("Y" & lr).Value = ws.Range("AM7").Value
        sh.Range("AI" & lr).Value = ws.Range("AM13").Value
        sh.Range("AS" & lr).Value = ws.Range("O15").Value
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: faraktoz، ناصر سعيد،




05-09-2017 07:07 مساء
مشاهدة مشاركة منفردة [2]
faraktoz
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 362
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 15-8-1989
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif اريد كود للترحيل من الخلايا فى الصفحة الاولى الى خلايا فى الصفحة الثانية
تسلم اخونا ياسر الكود شغال 100% بس بعد الترحيل اريد الخلايا بالورقة الاولى ترجع فارغة للادخال الجديد 
وشكرا على الرد السريع ومجهودكم الجبار ده 

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،




05-09-2017 07:24 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif اريد كود للترحيل من الخلايا فى الصفحة الاولى الى خلايا فى الصفحة الثانية
لتفريغ محتوي أي خلية قم بالإشارة لورقة العمل أولاً وبما أن ورقة العمل وضع لها متغير باسم ws فتضع في أول السطر ws يليه نقطة ..
بعد النقطة تشير للخلية أو النطاق المراد مسح محتوياته فقد يكون النطاق خلية واحدة أو أكثر .. فإذا افترضنا أنه خلية واحدة وليكن A1 فنشير للخلية بهذا الشكل 
Range("A1")

وهذا بالطبع بعد أن أشرنا لورقة العمل ثم نضع نقطة أخرى ونحدد المطلوب من هذه الخلية أو هذا النطاق وبعد النقطة نضع كلمة ClearContents والتي تعني مسح المحتويات
ولكن في ملفك يوجد خلايا مدمجة لذا قم بالإشارة للخلية ثم ضع نقطة ثم Value ثم علامة يساوي وبعد علامة يساوي ضع "" ( أي فراغ .. سلسلة نصية فارغة)

أثارت هذه المشاركة إعجاب: faraktoz،






الكلمات الدلالية
اريد ، للترحيل ، الخلايا ، الصفحة ، الاولى ، خلايا ، الصفحة ، الثانية ،


 







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



الساعة الآن 05:54 صباحا

أعلن هنا
أعلن هنا
أعلن هنا