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

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

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




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





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

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



14-09-2018 08:45 مساء
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 288
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 155
 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
المشاركات : 288
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 155
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من صفحة الى عدة صفحات
للرفع أكرمكم الله





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

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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المستثنى من الترحيل مالك ماريه
3 79 مالك ماريه
اريد استخدام زر الانتر فى الترحيل بدلا من زر الامر محمد منصور
2 278 YasserKhalil
عدم تكرار عملية الترحيل ashraf_hertlion
5 116 YasserKhalil
مطابقة بيانات أو التحقق من الترحيل nyfmpha
0 70 nyfmpha
ضبط الترحيل رمضان بكري
7 87 YasserKhalil

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


 







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



الساعة الآن 02:13 صباحا

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