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

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


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


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

Preview




اضافة شرط الى ترحيل فاتورة

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم - حياكم الله ممكن اضافة شرط الى ترحيل الفاتورة وهو ..



22-08-2017 06:34 مساء
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم - حياكم الله

ممكن اضافة شرط الى ترحيل الفاتورة وهو :
اذا كان يوجد مبلغ متبقي لا ترحل الى شيت نقد  
وعمل تنبيه بانه يوجد مبلغ متبقي



 
 
 
  برنامج الاقساط - جمعية بيتنا - شرط الترحيل.rar   تحميل rar مرات التحميل :(49)
الحجم :(286.025) KB





22-08-2017 06:54 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
وعليكم السلام أخي الكريم أبو عبد الواجد
في الحلقة التكرارية من 11 إلى 20 في السطر التالي لبداية الحلقة غيره لهذا الشكل وجرب الكود
If ws.Cells(i, 1) = "" Or ws.Range("B6").Value <> 0 Then Exit For




22-08-2017 10:36 مساء
مشاهدة مشاركة منفردة [2]
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
السلام عليكم - اولاً - تسلم على سرعة الرد - جزيت خيرا استاذ
ثانيا : والله ما فهمت وين اضع الكود
وثالثا : جربت عدة احتمالات ولم افلح
ممكن استاذنا العزيز نأخذ من وقتك وتضع الكود في المكان المناسب
الله يرحم والديك




22-08-2017 11:33 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
أخي الكريم أبو عبد الواجد ..
جملة الحلقة التكرارية .. بالشكل التالي 
For i=11 To 20
تحتها سطر .. قم بحذف السطر الموجود وضع السطر في المشاركة السابقة مكانه .. حيث تم إضافة شرط




23-08-2017 05:06 صباحا
مشاهدة مشاركة منفردة [4]
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
السلام عليكم- مرحبا استاذ ياسر
تم اجراء اللازم
النتيجة هي :
لم ترحل الفاتورة الى شيت نقد 
ولكن في شيت فاتورة
ظهرت رسالة بانه رحلت وحذفت البيانات من الفاتورة واعط رقم فاتورة جديد
وعند الذهاب الى شيت نقد لم اجد بيانات الفاتورة

المطلوب :  اذا كان يوجد مبلغ متبقي وحالة الفاتورة (نقد) تظهر رسالة تعذر الترحيل لوجود مبلغ متبقي الغاية حتى نحول حالة الفاتورة من نقد الى اقساط



تم تحرير المشاركة بواسطة :ابوعبدالواجد
بتاريخ:23-08-2017 05:09 صباحا





23-08-2017 08:41 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
وعليكم السلام
جرب الكود التالي بعد التعديل
Sub Test()
    Dim ws      As Worksheet
    Dim sh1     As Worksheet
    Dim sh2     As Worksheet
    Dim sh      As Worksheet
    Dim str     As String
    Dim lr      As Long
    Dim i       As Long
    Dim j       As Long
    Dim k       As Long

    Application.ScreenUpdating = False
        Set ws = Sheets("فاتورة")
        Set sh1 = Sheets("نقد")
        Set sh2 = Sheets("اقساط")
    
        str = ws.Range("C2").Value
        If str = "نقد" Then
            Set sh = sh1
        ElseIf str = "أقساط" Or str = "اقساط" Then
            Set sh = sh2
        Else
            Exit Sub
        End If
    
        lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
        If sh.Name = "نقد" And ws.Range("B6").Value <> 0 Then MsgBox "يوجد مبلغ متبقي", vbExclamation: Exit Sub
    
        If sh.Name = "اقساط" Then
            sh.Range("H" & lr).Value = ws.Range("B4").Value
            sh.Range("I" & lr).Value = ws.Range("B6").Value
            sh.Range("ac" & lr).Value = ws.Range("a24").Value
            sh.Range("ad" & lr).Value = ws.Range("b24").Value
            sh.Range("ae" & lr).Value = ws.Range("c24").Value
            sh.Range("af" & lr).Value = ws.Range("d24").Value
            sh.Range("ah" & lr).Value = ws.Range("e24").Value
            sh.Range("z" & lr).Value = ws.Range("a22").Value
            sh.Range("aa" & lr).Value = ws.Range("b22").Value
            sh.Range("ab" & lr).Value = ws.Range("c22").Value
            sh.Range("al" & lr).Value = ws.Range("e22").Value
    
            For j = 3 To 9
                If Not IsEmpty(ws.Cells(j, 5).Value) Then
                    sh.Cells(lr, j + k + 7).Value = ws.Cells(j, 5).Value
                    sh.Cells(lr, j + k + 8).Value = ws.Cells(j, 6).Value
                End If
                k = k + 1
            Next j
        End If
    
        For i = 11 To 20
            If ws.Cells(i, 1) = "" Then Exit For
            sh.Range("A" & lr).Resize(1, 6).Value = ws.Cells(i, 1).Resize(1, 6).Value
            sh.Range("G" & lr).Value = ws.Range("B2").Value
            sh.Range("y" & lr).Value = ws.Range("a2").Value
    
            lr = lr + 1
        Next i
    
        With ws
            .Range("A2").Value = .Range("A2").Value + 1
            .Range("B2:C2").ClearContents
            .Range("A11:A20").ClearContents
            .Range("C11:D20").ClearContents
            .Range("F11:F20").ClearContents
            .Range("E3:E9").ClearContents
            .Range("A22:F22").ClearContents
            .Range("A24:F24").ClearContents
        End With
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub




23-08-2017 09:37 صباحا
مشاهدة مشاركة منفردة [6]
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
جزيت خيرا
تمام
هو المطلوب
جزيت خيرا
 




23-08-2017 09:39 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif اضافة شرط الى ترحيل فاتورة
وجزيت خيراً بمثل ما دعوت لي وزيادة
والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب عند ترحيل البيانات من فورم 1 الى الفاتورة ايد طريقة لي اختيار سعر بيع جملة او تقسيط محمدعبدالسلام
2 487 رمضان بكري
مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت المبتدأ
7 562 YasserKhalil
محتاج كود الترحيل وطباعة الفاتورة او الاذن الصرف رمضان بكري
4 676 YasserKhalil
الترحيل حسب نوع الفاتورة نور وحيد
22 3378 ahmedeita
طباعة فاتورة حسب تاريخ الصرف وترحيل الاجمالى hosamabdelmohsen
0 569 hosamabdelmohsen

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








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

الساعة الآن 07:27 مساء

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