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

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

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




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





ضبط كود الترحيل من صفحة الى عدة صفحات

السلام عليكم اساتذتى الكرام ارجو مساعدتى فى ضبط كود الترحيل من صفحة Master Sheet الى باقى الصفحات لما هو وارد فى العمود ..



14-09-2018 08:45 مساء
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 326
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 448
الاعجاب : 193
 offline 

السلام عليكم اساتذتى الكرام
ارجو مساعدتى فى ضبط كود الترحيل من صفحة  Master Sheet الى باقى الصفحات لما هو وارد فى العمود J من هذه الورقة
لأسماء الصفحات المراد الترحيل اليها
ويكون الترحيل من هذه الورقة من النطاق B3:I الى باقى الورقات بداية من A8:H
ولكم جزيل الشكر
Sub TRANSFER()
Sheets("Master Sheet").Activate
For Each F In Range("J3:J100")
If F <> "" Then
x = F.Value
Range (F.Offset(0, 8))
LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row
Sheets(x).Activate
Range("A" & LR + 1).Select
Selection.PasteSpecial xlPasteValues
End If
Next F
Sheets("Master Sheet").Activate
Application.CutCopyMode = False
Range("B3:J").ClearContents
MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ"
End Sub Transfer.rar
 
 
  Transfer.rar   تحميل rar مرات التحميل :(8)
الحجم :(150.723) KB







15-09-2018 01:26 صباحا
مشاهدة مشاركة منفردة [1]
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 326
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 448
الاعجاب : 193
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
للرفع أكرمكم الله





15-09-2018 07:00 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 17
يتابعهم : 0
يتابعونه : 347
قوة السمعة : 15122
الاعجاب : 5665
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
وعليكم السلام أخي الكريم أحمد
جرب الكود التالي عله يفي بالغرض إن شاء المولى
Sub Test()
    Dim ws          As Worksheet
    Dim cl          As Range
    Dim lr          As Long

    Set ws = ThisWorkbook.Worksheets("Master Sheet")

    Application.ScreenUpdating = False
        For Each cl In ws.Range("J3:J" & ws.Cells(Rows.Count, 10).End(xlUp).Row)
            If Evaluate("ISREF('" & CStr(cl.Value) & "'!A1)") Then
                lr = Worksheets(CStr(cl.Value)).Cells(Rows.Count, 3).End(xlUp).Row
                lr = IIf(lr <= 7, 8, lr + 1)
                Worksheets(CStr(cl.Value)).Range("A" & lr & ":H" & lr).Value = ws.Range("B" & cl.Row & ":I" & cl.Row).Value
            End If
        Next cl
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub

أثارت هذه المشاركة إعجاب: احمد الحاوي، السعيد الجزائري، mahmoud ayad، ali mohamed ali، أحمد يوسف، عبدالله الصاري،




15-09-2018 01:03 مساء
مشاهدة مشاركة منفردة [3]
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 326
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 448
الاعجاب : 193
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
أحسنت استاذى الكريم رائع جعله الله فى ميزان حسناتك وبارك الله فيك ورزقك من غير لا تحتسب

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




15-09-2018 02:11 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 581
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 650
الاعجاب : 261
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
 If Evaluate("ISREF('" & CStr(cl.Value) & "'!A1)") Then
                lr = Worksheets(CStr(cl.Value)).Cells(Rows.Count, 3).End(xlUp).Row
                lr = IIf(lr <= 7, 8, lr + 1)
                Worksheets(CStr(cl.Value)).Range("A" & lr & ":H" & lr).Value = ws.Range("B" & cl.Row & ":I" & cl.Row).Val

استاذ ياسر ممكن شرح لهاي الاكواد
وخصوصا cstr





15-09-2018 04:28 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 17
يتابعهم : 0
يتابعونه : 347
قوة السمعة : 15122
الاعجاب : 5665
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
أخي الكريم خالد
يوجد موضوع كامل عن الدالة ISREF وكيفية استخدامها ..
بالنسبة للدالة Cstr لتحويل القيمة إلى نص لأن أوراق العمل عبارة عن أرقام وهذا يتسبب في حدوث خطأ لذا يتم تحويل الرقم لنص باستخدام الدالة Cstr وهي اختصار Convert String






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شروحات الترحيل حصريا ترحيل البيانات الى داخل الجداول الجاهزة فى الاكسل من خلال اليوزرفورم emad ghazi
8 609 كاري محمد
الترحيل كريم نظيم
1 109 كريم نظيم
الترحيل حسب نوع الفاتورة نور وحيد
22 1922 ahmedeita
تعديل كود الترحيل (معدل) khaled alborene
1 97 khaled alborene
تعديل كود الترحيل khaled alborene
12 293 khaled alborene

الكلمات الدلالية
الترحيل ، صفحة ، صفحات ،


 







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



الساعة الآن 02:55 مساء

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