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



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





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

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



14-09-2018 08:45 مساء
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 226
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 275
الاعجاب : 109
 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 مرات التحميل :(7)
الحجم :(150.723) KB







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





15-09-2018 07:00 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 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
المشاركات : 226
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 275
الاعجاب : 109
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
أحسنت استاذى الكريم رائع جعله الله فى ميزان حسناتك وبارك الله فيك ورزقك من غير لا تحتسب

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




15-09-2018 02:11 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 477
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 518
الاعجاب : 203
 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
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
أخي الكريم خالد
يوجد موضوع كامل عن الدالة ISREF وكيفية استخدامها ..
بالنسبة للدالة Cstr لتحويل القيمة إلى نص لأن أوراق العمل عبارة عن أرقام وهذا يتسبب في حدوث خطأ لذا يتم تحويل الرقم لنص باستخدام الدالة Cstr وهي اختصار Convert String






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الترحيل عن طريق الـ chekbox ashraf_hertlion
16 118 YasserKhalil
زر الترحيل لا ينفذ الكود ayoub2007
12 91 YasserKhalil
الترحيل الافقى مالك ماريه
0 54 مالك ماريه
ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني hellong
5 83 YasserKhalil
كود الترحيل بالمصفوفات ayman_2000
7 131 YasserKhalil

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


 







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



الساعة الآن 10:00 مساء

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