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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





نقل الاسماء في الشيت المرفق من ورقة لاخرى

السلام عليكم ورحمه الله ارجو المساعده في الشيت المرفق الشيت فيه 3 صفحات اول صفحه فيها اسماء بالعناوين وتاني صفحه فيها نم ..



11-10-2019 11:08 مساء
omhamza
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 15
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
السلام عليكم ورحمه الله
ارجو المساعده في الشيت المرفق
الشيت فيه 3 صفحات اول صفحه فيها اسماء بالعناوين وتاني صفحه فيها نموذج
انا عايزه اخد الاسماء دي كل 16 اسم بالعناوين ال قدمهم واحطهم في النموذج ال في الورقة التانيه علشان تديني النتيجه ال في الورقة التالته
يعني انا حاطه الورقة التالته علشان تشوفو النتيجه في الاخر ازاي
انا عايزه اعمل كود ينقلي الاسماء بالعناوين كل 16 اسم في النموذج ال في الورقة 2 بحيث انا بعد ما يخلص اطبع النموذج ال في الورقة 3 بالاسماء كل 16 اسم في ورقة لوحده

والكود بعد ما يخصل يديني رساله تلخيص وتاكيد انه نقل كام اسم وعمل كام صفحه
وطلب كمان ان الكود يعمل ترقيم للصفحات فوق على اليمين بتنسيق حجم الخط 18
ومتشكرة جدا جدا ويارب اكون قدرت اوصل ال انا محتاجاه
 
 
  VIVA.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(151.289) KB





12-10-2019 10:44 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1413
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6390
الاعجاب : 989
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
وعليكم السلام -تفضل , تم عمل هذا الكود من قبل الأستاذ سليم حاصبيا

Option Explicit
Sub Extract_by_16()
Rem Created by Salim Hasbaya On 12/10/2019
Application.ScreenUpdating = False
Dim my_rg, i%, X, last_range As Range
Dim S As Worksheet
Dim T2 As Worksheet
Set S = Sheets("sheet1")
Set T2 = Sheets("Templete_2")
Dim lra%: lra = S.Cells(Rows.Count, 1).End(3).Row
Dim m%: m = 13
 
 For i = m To 2500 Step 37
  T2.Cells(i, 4).Resize(16, 2).ClearContents
 Next
  m = 13

For i = 2 To lra Step 16
    If lra - S.Cells(i, 1).Row < i Then
        X = lra - i
         Set last_range = _
         S.Cells(i, 1).Resize(X + 1, 2)
         Exit For
    End If
        Set my_rg = S.Cells(i, 1).Resize(16, 2)
        T2.Cells(m, 4).Resize(16, 2).Value = _
        my_rg.Value
        m = m + 37
Next i
If Not last_range Is Nothing Then
 T2.Cells(m, 4).Resize(X + 1, 2).Value = _
 last_range.Value
End If
Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: YasserKhalil، حسين مامون، omhamza،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

12-10-2019 04:37 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
السلام عليكم أختي الكريم أم حمزة

1- قومي بنسخ ورقة العمل المسماة "النموذج" إلى ورقة جديدة ... 
الطريقة : كليك يمين على اسم ورقة العمل المسماة "النموذج" ثم اختاري Move or Copy ثم من النافذة اختاري move to end وضعي علامة صح بجوار الخيار Create a copy ليتم نسخ الورقة 

2- قومي بتسمية الورقة الجديدة باسم Template
الطريقة: كليك يمين على الورقة الجديدة ثم Rename وقومي بكتابة اسم ورقة العمل باسم Template

3- الآن في ورقة العمل Template قومي بدمج الخلايا B5 و C5 واضبطي حجم الخط بنفسك وليكن 13 واجعلي الخط Bold .. (يفضل أن تكون التنسيقات في هذه الورقة كما ترغبين)

4 - أخيراً ضعي الكود التالي في موديول عادي ونفذي الكود

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

سيقوم الكود بنسخ ورقة العمل في مصنف جديد وينسخ إليها 16 اسم وهكذا في كل مرة لكل 16 اسم ، ثم في النهاية يتم تصدير أوراق العمل كلها في ملف PDF واحد جاهز للطباعة ، وسيكون الملف باسم Final Output ويمكن تغيير الاسم من الكود ، وسيكون مسار ملف الـ PDF على سطح المكتب ، كما سيظهر لكي في نهاية الكود عدد الصفحات التي تم تصديرها

أرجو أن يفيدك الكود إن شاء الله

أثارت هذه المشاركة إعجاب: ali mohamed ali، omhamza، محمود ابو الدهب،



12-10-2019 05:48 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1413
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6390
الاعجاب : 989
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
أحسنت استاذ ياسر جزاك الله كل خير

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

12-10-2019 06:09 مساء
مشاهدة مشاركة منفردة [4]
omhamza
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 15
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
ما شاء الله يا استاذ ياسر عمل رائع بجد
جزاك الله خير عليه
بس معلش ملف pdf ال بيطلع في الاخر طالع صفحه فيها الاسماء والصفحه ال بعددها فاضيه كل صفهحه عاملها بيطلع بعدها صفحه فاضيه
وكمان رقم الصفحه انا عيزه يظهر في اعلى الصفحه من فوووووق مش في الدايره دي لان ده المفترض في ختم في الدايره دي ما ينفعش اكتب فيها الرقم
فا عايزه الرقم يبقى في اعلى الصفحه فوق الشعار الازرق ده بشوية
وكمان معلش انا اسفه جدا والله عارفه اني بتعب حضرتك
لما بعمل الكود مره تانيه وييجي يحفظ الملف pdf ويكون في نسخه على الديسك توب بيعمل ديبوج ومش بيرضا يحفظ يعني لو ممكن نعمل في الكود انه يعمل ربليس للملف لو لقاه على الديسك توب 
وجزاك الله خير الجزاء على كده 

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



12-10-2019 06:24 مساء
مشاهدة مشاركة منفردة [5]
omhamza
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 15
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
جزاك الله خير يا استاذ سليم
بس الكود بتاع حضرتك عمل اول ورقة فقط وبعد كده حط الاسماء كل 16 من غير النموذج حطهم في صفوف مستقله بس مش عارفه اناعملت حاجه غلط ولا ايه
متشكرة جدا لتعب حضرك وياريت لو تشوف الكود كده اكون انا عمله حاجه غلط تقولي اعدلها 
وجزاك الله خيرا




12-10-2019 10:18 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
أختي الكريمة أم حمزة 
تم ضبط الكود في المشاركة رقم 2 ووضع الترقيم في الهامش الأيمن في رأس الصفحة .. ويتم تصدير الملف وعمل استبدال بشكل عادي ، فقط تأكدي أن الملف غير مفتوح (قد يكون هذا هو السبب في الخطأ)
أما عن ظهور صفحات فارغة فهذا لم يحدث معي ..لربما هناك مشكلة في إعدادات الطابعة لديك

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



13-10-2019 10:47 صباحا
مشاهدة مشاركة منفردة [7]
omhamza
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 15
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
جزاك الله خيرا يا استاذ ياسر فعلا الملف كان مفتوح علشان كده بيديني رساله الخطأ 
انا اسفه جدا الخطأ مني انا
والملف كده مظبوط جدا وجزاك الله خير الجزاء
ومتشكرة جدا على تعب حضرتك
ربنا يجعله في ميزان حسناتك ان شاء الله

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



13-10-2019 08:11 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif نقل الاسماء في الشيت المرفق من ورقة لاخرى
وجزيتي خيراً أختي الكريمة أم حمزة

وإليكي حل آخر مختلف ، وهو تصدير كل النتائج إلى ورقة عمل جديدة يتم وضع كل النتائج فيها ، وإليكي الكود المستخدم (وهو كود مختلف عن الكود الأول) ، وذلك لإثراء الموضوع

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم خاص للعمل على الجدول مع ترتيب الاسماء ابجدى مجدى يونس
8 1028 مجدى يونس
فورم هوايات وانشطة بالنادى مع ترتيب الاسماء مجدى يونس
10 295 مجدى يونس
تجزئة الاسماء المركبة وفصلها عن الاسماء العادية salim
14 574 moodax
UDF جديد لفصل الاسماء المركبة salim
6 297 الصقر
تكرار الاسماء بشرط مالك ماريه
12 626 مالك ماريه

الكلمات الدلالية
الاسماء ، الشيت ، المرفق ، ورقة ، لاخرى ،


 







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

الساعة الآن 04:26 صباحا

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