logo

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



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





22-03-2020 09:58 مساءً

السلام عليكم أساتذتى الأفاضل
كيف يمكن نسخ نطاق معين ولصقه في نطاق اخر بشرط اواكثر ثم الطباعة ؟

 
 
  نسخ نطاق.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(129.961) KB





look/images/icons/i1.gif نسخ و طباعة نطاق معين بشرط او اكثر
  22-03-2020 10:57 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 818
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8453
الاعجاب : 6
اتفضل أخى الكريم المرفق التالى
بمجرد كتابة رقم الفاتورة فى ورقة ( طباعة ) سيتم ترحيل البيانات المطلوبة
وأضفت زر فى أعلى الفاتورة للطباعة
 
 
  نسخ نطاقMD.xlsm   تحميل xlsm مرات التحميل :(15)
الحجم :(137.166) KB


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



look/images/icons/i1.gif نسخ و طباعة نطاق معين بشرط او اكثر
  22-03-2020 11:02 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
السلام عليكم
جرب هذا الكود
CODE
Sub Test()
    Dim x, ws As Worksheet, sh As Worksheet, nInvoice, r As Long, n As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        nInvoice = sh.Range("B3").Value
        x = Application.Match(nInvoice, ws.Columns(1), False)
        n = 7
        
        If Not IsError(x) And nInvoice <> Empty Then
            For r = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
                If ws.Cells(r, 1).Value = nInvoice Then
                    sh.Cells(n, 1).Resize(1, 4).Value = ws.Cells(r, 4).Resize(1, 4).Value
                    n = n + 1
                End If
            Next r
        End If
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: عبدالله فتحى، ali mohamed ali، محمد الدسوقى، hassona229،



look/images/icons/i1.gif نسخ و طباعة نطاق معين بشرط او اكثر
  22-03-2020 11:07 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 11-02-2020
رقم العضوية : 18038
المشاركات : 16
الجنس :
تاريخ الميلاد : 11-6-1999
قوة السمعة : 20
الاعجاب : 0

شكرا استاذنا الفاضل محمد الدسوقي علي مرورك ولكن
اولا : حضرتك محدد نطاق الطباعة وانا عايزة نطاق طباعة مطاطي حسب عدد الاصناف المنسوخة
ثانيا : الكود بينسخ صف واحد وليس كل الصفوف


استاذنا الكريم YasserKhalil</b> من أبداع لأبداع اكبر

كفيتم و وفيتم الله لا يضيع عليك تعبكم و يخليك لنا يارب ❣️

أثارت هذه المشاركة إعجاب: محمد الدسوقى،



look/images/icons/i1.gif نسخ و طباعة نطاق معين بشرط او اكثر
  23-03-2020 09:06 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
بارك الله فيك أخي الكريم والشكر موصول لصاحب الجولات والصولات المبدع بحق محمد الدسوقي
والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: رمضان بكري، محمد الدسوقى، hassona229،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لدي عدة جداول في صفحة اريد بالأكواد تحديدهم للطباعة عبد الله السعيد
0 101 عبد الله السعيد
كود طباعة الصفحة بناء على رقم خلية Khairi
0 277 Khairi
كود طباعة صفحتين ظهر و وجه noureddine70
1 255 noureddine70
برنامج طباعة الاختبارات بطريقة الأتمتة صالح ربيع
7 1562 خليل البيضاني
حل مشكلة الطباعة من موقع وزارة التربية والتعليم بمصر EMIS MOE Araby Browser YasserKhalil
31 6787 hassona229

الكلمات الدلالية
طباعة ، نطاق ، معين ، بشرط ، اكثر ،









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

الساعة الآن 09:29 AM