محمد حسن المحمد قام بنشر مايو 15, 2015 مشاركة قام بنشر مايو 15, 2015 السلام عليكم إخوتي المطورين الكرام ما زلت أطمع بكرمكم ....فهل يمكن أن دراسة الملف المرفق لمساعدتي بعملية البحث والتصفية حسب اسم العميل في صفحتي اليومية وكشف الحساب حيث أرغب أن يكون كشف الحساب مرحلاً عن صفحة اليومية أو كما ترون لأنكم أدرى بشعابها"أهل مكة أدرى بشعابها" ولكم جزيل الشكر أرفع إليكم الملف المراد دراسته والعمل عليه - فضلاً لا أمراً - علماً أنني قد اكتسبت من خبراتكم ما لم أكن أعرفه قبيل انضمامي إلى منتداكم الكريم أخوكم أبو يوسف. بحث بالأحرف الأولى وكشف حساب.rar رابط هذا التعليق شارك More sharing options...
علي الشيخ قام بنشر مايو 15, 2015 مشاركة قام بنشر مايو 15, 2015 السلام عليكم ورحمة الله أستاذ أبو يوسف فضلا وضع باسورد الحماية حتى نتمكن من العمل على الملف 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 15, 2015 الكاتب مشاركة قام بنشر مايو 15, 2015 عفوا....الرقم هو 19655 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 16, 2015 الكاتب مشاركة قام بنشر مايو 16, 2015 عفوا....الرقم هو 19655 كلمة المرور هي 19655 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 16, 2015 الكاتب مشاركة قام بنشر مايو 16, 2015 السلام عليكم ورحمة الله أستاذ أبو يوسف فضلا وضع باسورد الحماية حتى نتمكن من العمل على الملف السلام عليكم أخي علي الشيخ ....شكراً على نيتك الطيبة بالمساعدة أرفع إليكم الملف دون كلمة مرور... بحث بالأحرف الأولى وكشف حساب.rar رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر مايو 16, 2015 مشاركة قام بنشر مايو 16, 2015 السلام عليكم بعد اذن الاخوه الكرام قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل المطلوب التانى يحتاج توضيح اكتر عن الاعمده التى تريد البحث فيها عن البيانات فى اليومية تحياتى بحث بالأحرف الأولى وكشف حساب.rar 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 17, 2015 الكاتب مشاركة قام بنشر مايو 17, 2015 السلام عليكم بعد اذن الاخوه الكرام قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل المطلوب التانى يحتاج توضيح اكتر عن الاعمده التى تريد البحث فيها عن البيانات فى اليومية تحياتى أستاذي الكريم محمد الريفي ...أساتذتي الكرام السلام عليكم ...وفقكم الله إلى كل خير وبعد أرفع طلبي مرفقاً بالإيضاحات التي طلبها الأستاذ محمد علها تفي بالغرض ما أبحث عنه مساعدة متكاملة في البحث عن الاسم وفلترته في صفحة اليومية أما في صفحة كشف حساب فهي البحث عن الاسم في صفحة اليومية وجلب بياناته المطلوبة منها حسب تاريخ بدء وانتهاء ...إن أمكن شاكراً حسن تعاونكم واهتمامكم. بحث بالأحرف الأولى وكشف حساب.rar رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 18, 2015 الكاتب مشاركة قام بنشر مايو 18, 2015 رفع.... رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 19, 2015 الكاتب مشاركة قام بنشر مايو 19, 2015 السلام عليكم بعد اذن الاخوه الكرام قمت بعمل معادله للمطلوب الاول وهو بحث باسم العميل المطلوب التانى يحتاج توضيح اكتر عن الاعمده التى تريد البحث فيها عن البيانات فى اليومية تحياتى أستاذي الكريم محمد الريفي ...أساتذتي الكرام السلام عليكم ...وفقكم الله إلى كل خير وبعد أرفع طلبي مرفقاً بالإيضاحات التي طلبها الأستاذ محمد علها تفي بالغرض ما أبحث عنه مساعدة متكاملة في البحث عن الاسم وفلترته في صفحة اليومية أما في صفحة كشف حساب فهي البحث عن الاسم في صفحة اليومية وجلب بياناته المطلوبة منها حسب تاريخ بدء وانتهاء ...إن أمكن شاكراً حسن تعاونكم واهتمامكم. أنتظر الرد... رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 (معدل) المطلوب هو بمجرد أن تدخل الاسم في الخلية المحددة لكتابة الاسم يقوم بتصفية للاسم ذاته في صفحة اليومية... أما صفحة كشف حساب اعتبروها صفحة ناتجة عن الصفحة الأولى اليومية ...حيث يتم بمجرد كتابة الاسم وحسب تاريخي البدء والانتهاء تملأ بيانات العميل ....وكذلك طريقة حساب الرصيد...فهل من مجيب. تم تعديل مايو 20, 2015 بواسطه محمد حسن المحمد رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 20, 2015 مشاركة قام بنشر مايو 20, 2015 الأخ الحبيب أبو يوسف أفضل أن تقوم بإرفاق ملف به بيانات ولو وهمية وإرفاق بعض النتائج المتوقعة . حتى تكون الصورة أوضح 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 الأخ الحبيب أبو يوسف أفضل أن تقوم بإرفاق ملف به بيانات ولو وهمية وإرفاق بعض النتائج المتوقعة . حتى تكون الصورة أوضح استجابة لطلب أخي في الله أبو البراء المحترم قمت بإرفاق ملف فيه بيانات عسى أن يكون واضحاً قدر الإمكان فإن لم يكن كذلك فإنني أنيبكم عني باقتراح الشكل المناسب لأنكم كما قلت سابقاً أدرى بشعابها والله أعلى وأعلم والسلام عليكم ورحمة الله وبركاته. بحث بالأحرف الأولى وكشف حساب.rar رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 22, 2015 الكاتب مشاركة قام بنشر مايو 22, 2015 الأخ الحبيب أبو يوسف أفضل أن تقوم بإرفاق ملف به بيانات ولو وهمية وإرفاق بعض النتائج المتوقعة . حتى تكون الصورة أوضح استجابة لطلب أخي في الله أبو البراء المحترم قمت بإرفاق ملف فيه بيانات عسى أن يكون واضحاً قدر الإمكان فإن لم يكن كذلك فإنني أنيبكم عني باقتراح الشكل المناسب لأنكم كما قلت سابقاً أدرى بشعابها والله أعلى وأعلم والسلام عليكم ورحمة الله وبركاته. سأسعى إلى العلياء سعي ابن ماجد وأنجد في تطلابها وأغوّر.....لا زلت انتظر في محطة قطار ردودكم الكريمة ولا أدري هل غير القطار مساره أم أنه سيأتي ولو بعد حين. رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر مايو 22, 2015 أفضل إجابة مشاركة قام بنشر مايو 22, 2015 الأخ الحبيب البليغ أبو يوسف معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة) تفضل الملف المرفق تم العمل على ورقة العمل المسماة "كشف حساب" وتم جلب البيانات كما تريد ..بقي فقط عمود الرصيد ، ولأني لا أفهم الكثير في الحسابات فتركت لك المجال لتضع المعادلة المناسبة التي تحسب الرصيد .. جرب الملف المرفق وأعلمنا بالنتيجة 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 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 22, 2015 الكاتب مشاركة قام بنشر مايو 22, 2015 الأخ الحبيب البليغ أبو يوسف معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة) تفضل الملف المرفق تم العمل على ورقة العمل المسماة "كشف حساب" وتم جلب البيانات كما تريد ..بقي فقط عمود الرصيد ، ولأني لا أفهم الكثير في الحسابات فتركت لك المجال لتضع المعادلة المناسبة التي تحسب الرصيد .. جرب الملف المرفق وأعلمنا بالنتيجة 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 تقبل تحياتي السلام عليكم ورحمة الله وبركاته ....جزاك الله خيراً وأضحك الله سنك ...أضحكتني وأدهشتني وأنا راض منك بما وصلني أخي الحبيب الغالي المحترم أبو البراء الله يلهمك الصواب ويجزئ لك الثواب ويرضى عنك يوم العرض والحساب .أخوك المحب لك أبو يوسف 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 23, 2015 الكاتب مشاركة قام بنشر مايو 23, 2015 أخي الكريم أبو البراء المحترم....قد جربت الكود على المدى القصير أي ضمن الخلايا التي أجريت عليها عمل الكود فكانت رائعة أما عندما وسعت صفوف صفحة اليومية (الجدول) لم يعطني البيانات المطلوبة بدقة. هل الكود مصمم فقط للجداول كما عملت عليها أم أنه إذا وسعنا حجم الجدول وزدنا صفوفه سيحقق النتيجة مهما زادت صفوفه أيضاً: في صفحة اليومية لم يتم العمل على بحث وتصفية الأسماء وفقاً للخلية المشار إليها.....أرجو ألا أكون قد أثقلت عليك بطلباتي مع ذلك سأبقى على إجابتي السابقة (تحديد كأفضل إجابة) حتى لو لم يتم الرد على استدراكي هذا. وتقبل تحياتي وامتناني وشكري. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 23, 2015 مشاركة قام بنشر مايو 23, 2015 الأخ الحبيب أبو يوسف الكود يعمل بالفعل على الجداول كما هي مرفقة بالملف المرفق ولكن يمكن تغيير الكود بشكل يتناسب مع التصميم أو التوسع في الجدول ..حاول تدرس الكود ولو قابلك أي مشكلة أنا تحت أمرك أما فيما يخص الطلب الثاني فأفضل دائماً أن يكون الموضوع الواحد لطلب واحد فقط .. فيرجى طرح طلبك الجديد في موضوع جديد (راجع التوجيهات) 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 23, 2015 مشاركة قام بنشر مايو 23, 2015 الأخ الحبيب أبو يوسف إليك شرح الكود وإن شاء الله يكون مبسط وسهل إنك تتعامل معاه 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 لا تنسانا من صالح دعائك تقبل ودي واحترامي 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 24, 2015 الكاتب مشاركة قام بنشر مايو 24, 2015 (معدل) الأخ الحبيب أبو يوسف الكود يعمل بالفعل على الجداول كما هي مرفقة بالملف المرفق ولكن يمكن تغيير الكود بشكل يتناسب مع التصميم أو التوسع في الجدول ..حاول تدرس الكود ولو قابلك أي مشكلة أنا تحت أمرك أما فيما يخص الطلب الثاني فأفضل دائماً أن يكون الموضوع الواحد لطلب واحد فقط .. فيرجى طرح طلبك الجديد في موضوع جديد (راجع التوجيهات) الأخ الحبيب أبو البراء وفقك الله إلى كل خير قمت بنسخ الكود المدعوم بشرحكم المستفيض وسأعمل بعون الله تعالى ثم برعايتكم الكريمة على التعديل عليه حسب حاجتي في توسيع عدد الصفوف في الورقة (الشيت كما تسمونه) أما فيما يخص طلبي الثاني فقد كنت أظنه معلقاً بالطلب الأول (علماً أنني كنت أعلم بتوجيهات منتداكم الكريم فيما يخص طرح طلب واحد)ولكن كما يقول إخواننا المصريون الكرام :(عديها ها المرة) مع وافر شكري وامتناني وخالص أمنياتي لكم بالصحة والعافية والمعافاة في الدنيا والآخرة....أما أنا فإنني بحاجة أيضاً لصالح دعائكم لأننا نعيش في ظروف صعبة في مخيمات اللجوء والأحزان. والسلام عليكم ورحمة الله وبركاته. ملاحظة: أرسلت لكم طلباً للصداقة على الفيس بوك باسم "محمد المشرفي" أرجو أن يكون مجاباً من طرفكم مشكورين..... تم تعديل مايو 24, 2015 بواسطه محمد حسن المحمد رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 24, 2015 مشاركة قام بنشر مايو 24, 2015 أخي في الله محمد أبو يوسف كان الله في عونكم وفرج الله همكم وكربكم وإن شاء الله لو احتجت أي شيء فلا تتردد أبداً فنحن إخوانك وتم قبول طلب الصداقة (رغم أني مش هواة الفيس) رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مايو 24, 2015 الكاتب مشاركة قام بنشر مايو 24, 2015 أخي في الله محمد أبو يوسف كان الله في عونكم وفرج الله همكم وكربكم وإن شاء الله لو احتجت أي شيء فلا تتردد أبداً فنحن إخوانك وتم قبول طلب الصداقة (رغم أني مش هواة الفيس) ونعم الأخوة.....الحمد لله رب العالمين أن لي أخوة لم أرهم ولكنهم يحملون همي ويشعرون بحزني وألمي ....فمن لم يهتم بأمور المسلمين ليس منهم ....أشكر لكم أخي حسن استجابتكم ودعمكم ...وأنا كذلك (لا أهتم كثيراً بالفيس )إلا أنه نوع من التواصل الذي يقرب البعيد. والسلام عليكم ياأبا البراء الغالي. 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان