logo

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



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





30-10-2017 04:03 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 639
المشاركات : 54
الجنس :
تاريخ الميلاد : 11-3-1957
قوة السمعة : 52
الاعجاب : 0
السلام عليكم ورحمة اللة
في هاذا الملف اردت مسح حركات عميل رصيدة صفر من شيتين وترحيلها الى شيت (temp)
وان لا يكون فراغ في الاسطر التي رحلت . وان كان الرصي attachyosif test.rarد اكبر من صفر فلا يرحل وشكرا لجهودكم
 
 
  yosif test.rar   تحميل rar مرات التحميل :(16)
الحجم :(55.631) KB





look/images/icons/i1.gif في هاذا الملف اردت مسح حركات عميل رصيدة صفر
  31-10-2017 07:33 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وعليكم السلام أخي الكريم يوسف
جرب الكود التالي عله يفي بالغرض
CODE
Sub Test()
    Dim ws          As Worksheet
    Dim wsSales     As Worksheet
    Dim wsCash      As Worksheet
    Dim wsTemp      As Worksheet
    Dim x           As Variant
    Dim str         As String
    Dim m           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("ارصدة اول المدة")
        Set wsSales = ThisWorkbook.Worksheets("مبيعات")
        Set wsCash = ThisWorkbook.Worksheets("نقدي")
        Set wsTemp = ThisWorkbook.Worksheets("temp")
        
        str = ws.Range("I2").Value
        x = Application.Match(str, ws.Columns(1), 0)
        
        If Not IsError(x) Then
            If ws.Cells(x, 3).Value <> 0 Then
                MsgBox "Balance Does Not Equal Zero", 64: Exit Sub
            Else
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
                With wsSales.Range("B3", wsSales.Range("B" & Rows.Count).End(xlUp))
                    .AutoFilter 1, str
                    .Offset(1).EntireRow.Copy wsTemp.Range("A" & m)
                    .Offset(1).EntireRow.Delete
                    .AutoFilter
                End With
                
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
                With wsCash.Range("B3", wsCash.Range("B" & Rows.Count).End(xlUp))
                    .AutoFilter 1, str
                    .Offset(1).EntireRow.Copy wsTemp.Range("A" & m)
                    .Offset(1).EntireRow.Delete
                    .AutoFilter
                End With
            End If
        End If
    Application.ScreenUpdating = True
End Sub




look/images/icons/i1.gif في هاذا الملف اردت مسح حركات عميل رصيدة صفر
  31-10-2017 02:26 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 639
المشاركات : 54
الجنس :
تاريخ الميلاد : 11-3-1957
قوة السمعة : 52
الاعجاب : 0
السلام عليكم ورحمة اللة
اشكركم اخواني على عمل هذا الكود وزادكم اللة نورا وعلما في جهودكم .
الكود يعمل كما يجب . بارك اللة فيكم وتحياتى الى من عمل هذا الكود .
ملاحظة: اذا امكن شرح الكود كيف يعمل عن طريق you tube مع الاخ عماد غازي وبارك اللة فيكم .




look/images/icons/i1.gif في هاذا الملف اردت مسح حركات عميل رصيدة صفر
  01-11-2017 08:51 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وعليكم السلام أخي الكريم يوسف
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

وننتظر فيديو من الأخ عماد لشرح الفيديو لتمام الاستفادة .. جزاه الله عنا خير الجزاء




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




الكلمات الدلالية
هاذا ، الملف ، اردت مسح ، حركات ، عميل ، رصيدة ،









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

الساعة الآن 05:04 PM