اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم إخوتي المطورين الكرام 

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

حيث أرغب أن يكون كشف الحساب مرحلاً عن صفحة اليومية أو كما ترون لأنكم أدرى بشعابها"أهل مكة أدرى بشعابها" ولكم جزيل الشكر

أرفع إليكم الملف المراد دراسته والعمل عليه - فضلاً لا أمراً - علماً أنني قد اكتسبت من خبراتكم ما لم أكن أعرفه قبيل انضمامي إلى منتداكم الكريم

أخوكم أبو يوسف.

بحث بالأحرف الأولى وكشف حساب.rar

قام بنشر

السلام عليكم ورحمة الله 

أستاذ أبو يوسف فضلا وضع باسورد الحماية حتى نتمكن من العمل على الملف 

السلام عليكم أخي علي الشيخ ....شكراً على نيتك الطيبة بالمساعدة

أرفع إليكم الملف دون كلمة مرور...

بحث بالأحرف الأولى وكشف حساب.rar

قام بنشر

السلام عليكم

بعد اذن الاخوه الكرام

قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل

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

تحياتى

بحث بالأحرف الأولى وكشف حساب.rar

  • Like 1
قام بنشر

السلام عليكم

بعد اذن الاخوه الكرام

قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل

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

تحياتى

أستاذي الكريم محمد الريفي ...أساتذتي الكرام

السلام عليكم ...وفقكم الله إلى كل خير وبعد أرفع طلبي مرفقاً بالإيضاحات التي طلبها الأستاذ محمد علها تفي بالغرض 

ما أبحث عنه مساعدة متكاملة في البحث عن الاسم وفلترته في صفحة اليومية أما في صفحة كشف حساب فهي البحث عن الاسم في صفحة اليومية وجلب بياناته المطلوبة منها حسب تاريخ بدء وانتهاء ...إن أمكن شاكراً حسن تعاونكم واهتمامكم.

بحث بالأحرف الأولى وكشف حساب.rar

قام بنشر

 

السلام عليكم

بعد اذن الاخوه الكرام

قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل

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

تحياتى

أستاذي الكريم محمد الريفي ...أساتذتي الكرام

السلام عليكم ...وفقكم الله إلى كل خير وبعد أرفع طلبي مرفقاً بالإيضاحات التي طلبها الأستاذ محمد علها تفي بالغرض 

ما أبحث عنه مساعدة متكاملة في البحث عن الاسم وفلترته في صفحة اليومية أما في صفحة كشف حساب فهي البحث عن الاسم في صفحة اليومية وجلب بياناته المطلوبة منها حسب تاريخ بدء وانتهاء ...إن أمكن شاكراً حسن تعاونكم واهتمامكم.

 

أنتظر الرد...

قام بنشر (معدل)

المطلوب هو بمجرد أن تدخل الاسم في الخلية المحددة لكتابة  الاسم يقوم بتصفية للاسم ذاته في صفحة اليومية...

أما صفحة كشف حساب اعتبروها صفحة ناتجة عن الصفحة الأولى اليومية ...حيث يتم بمجرد كتابة الاسم وحسب تاريخي البدء والانتهاء

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

تم تعديل بواسطه محمد حسن المحمد
قام بنشر

الأخ الحبيب أبو يوسف

أفضل أن تقوم بإرفاق ملف به بيانات ولو وهمية وإرفاق بعض النتائج المتوقعة . حتى تكون الصورة أوضح

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

بحث بالأحرف الأولى وكشف حساب.rar

قام بنشر

 

الأخ الحبيب أبو يوسف

أفضل أن تقوم بإرفاق ملف به بيانات ولو وهمية وإرفاق بعض النتائج المتوقعة . حتى تكون الصورة أوضح

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

 

سأسعى إلى العلياء سعي ابن ماجد وأنجد في تطلابها وأغوّر.....لا زلت انتظر في محطة قطار ردودكم الكريمة ولا أدري هل غير القطار مساره أم أنه سيأتي ولو بعد حين.

  • أفضل إجابة
قام بنشر

الأخ الحبيب البليغ أبو يوسف

معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة)

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

جرب الملف المرفق وأعلمنا بالنتيجة

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim I As Long, X As Long
    Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب")
    X = 12
    Application.ScreenUpdating = False
        SH.Range("A12:F29").ClearContents
        For I = 11 To 68
            If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then
                If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then
                
                    SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11
                    SH.Cells(X, "B").Value = WS.Cells(I, "D").Value
                    SH.Cells(X, "C").Value = WS.Cells(I, "L").Value
                    SH.Cells(X, "D").Value = WS.Cells(I, "G").Value
                    SH.Cells(X, "E").Value = WS.Cells(I, "M").Value
                    SH.Cells(X, "F").Value = WS.Cells(I, "N").Value
                    
                    X = X + 1
                End If
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

بحث بالأحرف الأولى وكشف حساب أبو يوسف.rar

  • Like 1
قام بنشر

الأخ الحبيب البليغ أبو يوسف

معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة)

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

جرب الملف المرفق وأعلمنا بالنتيجة

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet
    Dim I As Long, X As Long
    Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب")
    X = 12
    Application.ScreenUpdating = False
        SH.Range("A12:F29").ClearContents
        For I = 11 To 68
            If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then
                If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then
                
                    SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11
                    SH.Cells(X, "B").Value = WS.Cells(I, "D").Value
                    SH.Cells(X, "C").Value = WS.Cells(I, "L").Value
                    SH.Cells(X, "D").Value = WS.Cells(I, "G").Value
                    SH.Cells(X, "E").Value = WS.Cells(I, "M").Value
                    SH.Cells(X, "F").Value = WS.Cells(I, "N").Value
                    
                    X = X + 1
                End If
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

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

  • Like 1
قام بنشر

أخي الكريم أبو البراء المحترم....قد جربت الكود على المدى القصير أي ضمن الخلايا التي أجريت عليها عمل الكود فكانت رائعة أما عندما وسعت صفوف صفحة اليومية (الجدول) لم يعطني البيانات المطلوبة بدقة.

هل الكود مصمم فقط للجداول كما عملت عليها أم أنه إذا وسعنا حجم الجدول وزدنا صفوفه سيحقق النتيجة مهما زادت صفوفه

أيضاً: في صفحة اليومية لم يتم العمل على بحث وتصفية الأسماء وفقاً للخلية المشار إليها.....أرجو ألا أكون قد أثقلت عليك بطلباتي مع ذلك سأبقى على إجابتي السابقة (تحديد كأفضل إجابة) حتى لو لم يتم الرد على استدراكي هذا.

وتقبل تحياتي وامتناني وشكري.

قام بنشر

الأخ الحبيب أبو يوسف

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

أما فيما يخص الطلب الثاني فأفضل دائماً أن يكون الموضوع الواحد لطلب واحد فقط .. فيرجى طرح طلبك الجديد في موضوع جديد (راجع التوجيهات)

  • Like 1
قام بنشر

الأخ الحبيب أبو يوسف

إليك شرح الكود وإن شاء الله يكون مبسط وسهل إنك تتعامل معاه

Sub Tarhil()
'تعريف المتغيرات
    Dim WS As Worksheet, SH As Worksheet
    Dim I As Long, X As Long
'تعيين أوراق العمل التي سيتم تنفيذ الكود عليها
    Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب")
'تعيين قيمة للمتغير ليساوي 12 وهو يمثل أول صف في ورقة العمل المسماة كشف حساب لإدراج النتائج بها
    X = 12
'إلغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
'مسح محتويات النطاق الذي سيتم إدراج النتائج به في ورقة العمل المسماة كشف حساب
        SH.Range("A12:F29").ClearContents
'حلقة تكرارية للصفوف في ورقة العمل المسماة اليومية
        For I = 11 To 68
'في ورقة العمل المسماة اليومية أكبر من أويساوي تاريخ البداية وأقل من أو يساوي تاريخ الانتهاء [L] إذا كان التاريخ في العمود
'يتم تنفيذ الأسطر التالية
            If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then
'في ورقة العمل المسماة كشف حساب [D7] تساوي الاسم الموجود في الخلية [D] إذا كانت الخلية في العمود
                If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then
                
'الخلية في العمود الأول في الصف المحدد تساوي رقم الصف - 11 ليتم تسلسل البيانات
                    SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11
'الخلية في العمود الثاني في الصف المحدد تساوي الخلية في العمود الرابع في ورقة العمل اليومية
'سطر يقوم بجلب اسم العميل
                    SH.Cells(X, "B").Value = WS.Cells(I, "D").Value
'سطر يقوم بجلب التاريخ
                    SH.Cells(X, "C").Value = WS.Cells(I, "L").Value
'سطر يقوم بجلب البيان أو اسم الصنف
                    SH.Cells(X, "D").Value = WS.Cells(I, "G").Value
'سطر يقوم بجلب إجمالي المبيعات أو المدين
                    SH.Cells(X, "E").Value = WS.Cells(I, "M").Value
'سطر يقوم بجلب إجمالي الدفعات أو الدائن
                    SH.Cells(X, "F").Value = WS.Cells(I, "N").Value
'زيادة المتغير بمقدار واحد استعداداً لصف جديد في ورقة العمل كشف حساب
                    X = X + 1
                End If
            End If
        Next I
'إعادة تفعيل خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
End Sub

لا تنسانا من صالح دعائك

تقبل ودي واحترامي

  • Like 1
قام بنشر (معدل)

الأخ الحبيب أبو يوسف

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

أما فيما يخص الطلب الثاني فأفضل دائماً أن يكون الموضوع الواحد لطلب واحد فقط .. فيرجى طرح طلبك الجديد في موضوع جديد (راجع التوجيهات)

الأخ الحبيب أبو البراء وفقك الله إلى كل خير

قمت بنسخ الكود المدعوم بشرحكم المستفيض وسأعمل بعون الله تعالى ثم برعايتكم الكريمة على التعديل عليه  حسب حاجتي في توسيع عدد الصفوف في الورقة (الشيت كما تسمونه) 

أما فيما يخص طلبي الثاني فقد كنت أظنه معلقاً بالطلب الأول (علماً أنني كنت أعلم بتوجيهات منتداكم الكريم فيما يخص طرح طلب واحد)ولكن كما يقول إخواننا المصريون الكرام :(عديها ها المرة) 

مع وافر شكري وامتناني وخالص أمنياتي لكم بالصحة والعافية والمعافاة في الدنيا والآخرة....أما أنا فإنني بحاجة أيضاً لصالح دعائكم لأننا نعيش في ظروف صعبة في مخيمات اللجوء والأحزان.

والسلام عليكم ورحمة الله وبركاته.

ملاحظة: أرسلت لكم طلباً للصداقة على الفيس بوك باسم "محمد المشرفي" أرجو أن يكون مجاباً من طرفكم مشكورين.....

تم تعديل بواسطه محمد حسن المحمد
قام بنشر

أخي في الله محمد أبو يوسف

كان الله في عونكم وفرج الله همكم وكربكم

وإن شاء الله لو احتجت أي شيء فلا تتردد أبداً فنحن إخوانك

وتم قبول طلب الصداقة (رغم أني مش هواة الفيس)

قام بنشر

أخي في الله محمد أبو يوسف

كان الله في عونكم وفرج الله همكم وكربكم

وإن شاء الله لو احتجت أي شيء فلا تتردد أبداً فنحن إخوانك

وتم قبول طلب الصداقة (رغم أني مش هواة الفيس)

ونعم الأخوة.....الحمد لله رب العالمين أن لي أخوة لم أرهم ولكنهم يحملون همي ويشعرون بحزني وألمي ....فمن لم يهتم بأمور المسلمين ليس منهم ....أشكر لكم أخي حسن استجابتكم ودعمكم ...وأنا كذلك (لا أهتم كثيراً بالفيس )إلا أنه نوع من التواصل الذي يقرب البعيد. والسلام عليكم ياأبا البراء الغالي.

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information