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

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


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


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





مطلوب تعديل على كود للوقوف على ورقة معينة

السلام عليكم مطلوب فى هذا الكود تعديل و هو : فى حالة توافق الشرط بسطر جملة ال if يتم الذهاب الى جملة ال skipper كما هو ..



19-11-2019 10:49 صباحا
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
السلام عليكم
مطلوب فى هذا الكود تعديل و هو :
فى حالة توافق الشرط بسطر جملة ال if يتم  الذهاب الى جملة ال skipper  كما هو الحال و لكن مع اضافة تنشيط ورقة الشهادة 
و فى حالة عدم توافق الشرط يتم الطباعة و الترحيل عادى و تنشيط ورقة قاعدة البيانات اخر خلية بالعمود c
Sub save_print()

  Dim wb As Workbook, ws As Worksheet, nextRow As Long, lastRow As Long
   
    Const wbName As String = "الصادر"
    Const source As String = "قاعدة البيانات"
    Const target As String = "الصادر العام"
    Const shCert As String = "الشهادة"
   
    With Application
        .ScreenUpdating = False: .DisplayAlerts = False: .AskToUpdateLinks = False
    End With
        On Error Resume Next
            Set wb = Workbooks(wbName & ".xlsm")
            Set ws = ThisWorkbook.Sheets(source)
    nextRow = ws.ListObjects("Table2").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    If wb Is Nothing Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "" & "الصادر.xlsM")
    Else
        wb.Activate
    End If
    On Error GoTo 0
       
        With wb.Sheets(target)
        If Application.WorksheetFunction.CountIf(.ListObjects("الجدول1").ListColumns(6).DataBodyRange, ws.Range("n" & nextRow).Value) >= 1 Then MsgBox "عذرا تم تصدير المعاملة من قبل يرجى الطباعة من ورقة الشهادة", vbExclamation: GoTo Skipper
        
        lastRow = .ListObjects("الجدول1").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
        .Range("C" & lastRow).Value = Format(Date, "yyyy/mm/dd")
        .Range("D" & lastRow).Value = ws.Range("d" & nextRow).Value
        .Range("e" & lastRow).Value = ws.Range("e" & nextRow).Value
        .Range("G" & lastRow).Value = ws.Range("N" & nextRow).Value
        ActiveWorkbook.Save
       Windows(ThisWorkbook.Name).Activate
              
    End With
    Sheets(shCert).Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets(source).Select
    Range("c" & [c2].End(xlDown).Row + 1).Select
    ActiveWorkbook.Save
Skipper:
    With Application
        .ScreenUpdating = True: .DisplayAlerts = True: .AskToUpdateLinks = True
    End With
       
End Sub




19-11-2019 01:41 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
وعليكم السلام أخي صلاح
للذهاب لنقطة محددة تستخدم الجملة
GoTo Skipper

والسطر بالفعل موجود بالكود ويمكن إضافة سطر قبله حسب الحاجة ..




19-11-2019 02:59 مساء
مشاهدة مشاركة منفردة [2]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
قعلا اخ ياسر
بس المشكلة انه لما بنفذ جملة معينة بتتنفذ سواء الشرط تحقق او لم يتحقق
يعنى لو تحقق بيروح لل skipper و يكمل السطر المضاف و ليكن تنشيط ورقة معينة
و لو لم يتحقق الشرط بيقفذ لل skipper  و بردو بينفذ الجملة
انا عايز فى حالة تحقق الشرطة ينشط ورقة الشهادة
و فى حالة عدم تحقق الشرط يشتغل فى الكود عادى و ينشط ورقة قاعدة البيانات و يقف بقى ما يروحش لل skipper
و شكرا




19-11-2019 05:30 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
ممكن عند النقطة التي تريد الخروج بعدها أن تضع جملة Exit Sub للخروج من الإجراء بشكل نهائي
لا أفهم صراحة ما تحاول فعله لذا عليك أن تدرس الكود لتستطيع التعديل عليه بنفسك




19-11-2019 10:40 مساء
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
اعتقظ انى فهمتك 
سوف اضع سطر exit sub قبل سطر skipper
و اضع سطر تنشيط ورقة الشهادة بعد سطر skipper
غدا ان شاء الله هاجرب و ارد على حضرتك
الف شكر للمساعدة

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



20-11-2019 12:45 مساء
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
الله عليك يا ابو البراء اسطورة الاساطير
تم عمل المطلوب بفضل من الله ثم تعاونكم
جزاك الله خيرا

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



20-11-2019 05:04 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
بارك الله فيك أخي الكريم صلاح
أنت من قمت بحل المشكلة وليس أنا .. والحمد لله أن تم المطلوب على خير

أثارت هذه المشاركة إعجاب: صلاح الصغير،



20-11-2019 07:26 مساء
مشاهدة مشاركة منفردة [7]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif مطلوب تعديل على كود للوقوف على ورقة معينة
لا العفو ابو البراء 
لولا توجيهاتك ما كنت عرفت
انت بس اللى متواضع

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



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

ولا تنسى أنه ما أروع أن تحل أي مشكلة بنفسك فهذا سيضعك على الطريق الصحيح إن شاء الله

أثارت هذه المشاركة إعجاب: صلاح الصغير،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب التعديل وتصحيح اليوزر فورم azzeddine
14 170 YasserKhalil
هل ممكن تعديل الكود ayoub2007
6 80 YasserKhalil
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو6تعديل مجدى يونس
2 89 مجدى يونس
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو5 حذف بيان مجدى يونس
2 123 مجدى يونس
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو4 طباعة مجدى يونس
2 170 مجدى يونس

الكلمات الدلالية
مطلوب ، تعديل ، للوقوف ، ورقة ، معينة ،


 







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

الساعة الآن 08:05 مساء

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