samycalls قام بنشر أكتوبر 4, 2014 قام بنشر أكتوبر 4, 2014 الأخوة الكرام .. مرفق ملف به اسماء فى عمود محدد .. والمطلوب أن تنسخ هذه الاسماء الى عمود أخر بواسطة كود .. نسخ اسماء.rar
سليم حاصبيا قام بنشر أكتوبر 5, 2014 قام بنشر أكتوبر 5, 2014 السلام عليكم و أعاده الله عليكم بالخير اليك لحل عسى ان ينال اعجابك نسخ اسماء.rar
samycalls قام بنشر أكتوبر 5, 2014 الكاتب قام بنشر أكتوبر 5, 2014 (معدل) أخى الكريم سليم حاصبيا .. كل عام وأنتم بخير .. دائما صاحب فضل .. هنالك أكثر من طلب .. ناخذهم واحد تلو الأخر لطمعى فى رحابة صدرك .. أولهما أن يتم نسخ الاسماء بدون زر ماكرو للتنفيذ .. تم تعديل أكتوبر 5, 2014 بواسطه samycalls
سليم حاصبيا قام بنشر أكتوبر 6, 2014 قام بنشر أكتوبر 6, 2014 تم التعديل على الملف حسب الحاجة انظر الى الورقة "ماكرو آلي" نسخ اسماء.rar
samycalls قام بنشر أكتوبر 6, 2014 الكاتب قام بنشر أكتوبر 6, 2014 الكود يعمل ولكن فى الأسماء المجلوبه بمعادلة تنسخ ب 0 فى العمود g وإذا تم مسح بعض الاسماء فى العمود c لاتمسح من العمود g
عبدالله باقشير قام بنشر أكتوبر 6, 2014 قام بنشر أكتوبر 6, 2014 الكود يعمل ولكن فى الأسماء المجلوبه بمعادلة تنسخ ب 0 فى العمود g وإذا تم مسح بعض الاسماء فى العمود c لاتمسح من العمود g استخدم هذا الكود في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range If Not Intersect(Target, Range("C6:C" & Cells(Rows.Count, "C").Row)) Is Nothing Then For Each Cel In Target.Cells Cells(Cel.Row, "G").Value = Cel.Value Next End If End Sub تحياتي
samycalls قام بنشر أكتوبر 6, 2014 الكاتب قام بنشر أكتوبر 6, 2014 (معدل) الأخ الكريم .. عبدالله باقشير لك كل الشكر على اهتمامك وكل عام وأنت بخير .. والكود ممتاز ويحقق المطلوب .. وأرجو منك تطبيقه على هذا الملف لأنى حاولت ولم أوفق . نسخ أوجلب بيانات بكود.rar تم تعديل أكتوبر 6, 2014 بواسطه samycalls
samycalls قام بنشر أكتوبر 7, 2014 الكاتب قام بنشر أكتوبر 7, 2014 أخى الكريم .. عبدالله باقشير أرجو شمولى بكرمكم .. وتنفيذ الماكرو أكثر من مرة فى ورقة واحدة كما موضح فى المرفق .. نسخ اسماء بماكرو آلى.rar
عبدالله باقشير قام بنشر أكتوبر 7, 2014 قام بنشر أكتوبر 7, 2014 أخى الكريم .. عبدالله باقشير أرجو شمولى بكرمكم .. وتنفيذ الماكرو أكثر من مرة فى ورقة واحدة كما موضح فى المرفق .. استبدل هذا بدل الموجود Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range If Not Intersect(Target, Range("C6:C" & Cells(Rows.Count, "C").Row)) Is Nothing Then For Each Cel In Target.Cells Cells(Cel.Row, "G").Value = Cel.Value Next End If If Not Intersect(Target, Range("I6:I" & Cells(Rows.Count, "I").Row)) Is Nothing Then For Each Cel In Target.Cells Cells(Cel.Row, "L").Value = Cel.Value Next End If End Sub تحياتي
samycalls قام بنشر أكتوبر 7, 2014 الكاتب قام بنشر أكتوبر 7, 2014 مشكور .. أخى الفاضل.. أ / عبدالله باقشير تم اضافة الكود ولكن هنالك شيئ ما بخصوص استجابة الكود وهو موضح بالمرفق كل التحية .. نسخ اسماء بماكرو آلى.rar
ashraf_6770 قام بنشر أكتوبر 7, 2014 قام بنشر أكتوبر 7, 2014 الاستاذ الفاضل عبدالله باقشير كل عام وانتم بخير حقيقى انت انسان رائع جعلك الله دائما عونا لكل من يحتاج الى عون وزادك علما لتنفع به غيرك دائما وجعل كل اعمالك فى ميزان حسناتك اااااااااااااااااااااامين ااااااااااااااااااااامين يارب العالمين وارجوا ان تقبلنى تلميذا لك 1
عبدالله باقشير قام بنشر أكتوبر 8, 2014 قام بنشر أكتوبر 8, 2014 الاستاذ الفاضل عبدالله باقشير كل عام وانتم بخير حقيقى انت انسان رائع جعلك الله دائما عونا لكل من يحتاج الى عون وزادك علما لتنفع به غيرك دائما وجعل كل اعمالك فى ميزان حسناتك اااااااااااااااااااااامين ااااااااااااااااااااامين يارب العالمين وارجوا ان تقبلنى تلميذا لك جزاكم الله خيرا وكل عام وانتم بخير تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر أكتوبر 8, 2014 قام بنشر أكتوبر 8, 2014 مشكور .. أخى الفاضل.. أ / عبدالله باقشير تم اضافة الكود ولكن هنالك شيئ ما بخصوص استجابة الكود وهو موضح بالمرفق كل التحية .. هذا الكود للتغيير اليدوي هل تريد نقل المعادلة مع النسخ ؟؟ يعني اذا كانت معادلة ستنقل المعادلة وان كانت قيمة ستنقل قيمة
samycalls قام بنشر أكتوبر 8, 2014 الكاتب قام بنشر أكتوبر 8, 2014 (معدل) أستاذى الكريم .. عبدالله باقشير طلبى كما أوضحته لكم فى هذا المرفق .. أنه فى حالة تغير بيانات الإدخال يدوى فى العمود I تتغير فى العمود L ولكن التغير بالإدخال اليدوى فى العمود H والنقل بموجب معادلة الى العمود I لا يتم التغير فى العمود L إلا إذا قمت بعمل دبل كليك ثم أنتر على الخليه فى العمود I . فالعمود H هو عمود الإدخال اليدوى الأساسى للبيانات التى تنقل كناتج بالمعادلات الى العمود I والكود ينقل الى العمود L . أى على حسب كلامك يعني اذا كانت معادلة ستنقل "ناتج" المعادلة وان كانت قيمة ستنقل القيمة . نسخ اسماء بماكرو آلى.rar تم تعديل أكتوبر 8, 2014 بواسطه samycalls
عبدالله باقشير قام بنشر أكتوبر 9, 2014 قام بنشر أكتوبر 9, 2014 اليدوي يعني انك انت تقوم باجراء الحدث اما المعادلة حذثها Worksheet_Calculate هل بيانات العمود كلها معادلات ؟؟؟
samycalls قام بنشر أكتوبر 9, 2014 الكاتب قام بنشر أكتوبر 9, 2014 بيانات العمود I هى نوعان الأول وارد بمعادلة من العمود H ( أو أى عمود أخر ) , والثانى أنه أحياناً ندخل بعض البيانات مباشرة يدوياً الى العمود I . وإليك المرفق عسى أن يقوم بالتوضيح .. وكل ما أطلبه أن يتم نقل البيان يالكود الى العمود L سوء كان الادخال فى العمود I مباشرة يدوى أو كان مجلوب بمعادله من العمود H ( أوأى عمود أخر ) . نسخ اسماء بماكرو آلى.rar
عبدالله باقشير قام بنشر أكتوبر 9, 2014 قام بنشر أكتوبر 9, 2014 ممكن تدخل العمود H في شرط الحدث If Not Intersect(Target, Range("H6:I" & Cells(Rows.Count, "I").Row)) Is Nothing Then
samycalls قام بنشر أكتوبر 9, 2014 الكاتب قام بنشر أكتوبر 9, 2014 تمام ادخال العمود H فى شرظ الحدث .. بقى شيئ واحد ماذا إذا كان العمود I كله به معادلات تاتى بالبيانات من عدة أوراق وملفات مختلفة ..
samycalls قام بنشر أكتوبر 9, 2014 الكاتب قام بنشر أكتوبر 9, 2014 (معدل) تم تعديل أكتوبر 9, 2014 بواسطه samycalls
samycalls قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 كل الشكر والتقدير أ / عبد الله باقشير على الصبر وسعة الصدر ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.