تصحيح كود جلب البيانات

[Chenine Abdelhalim]

سلام عليكم

سادة الاعضاء سلام عليكم ورحمة الله تعالى وبركاته

كيف  حالكم اتمنى ان تكونوا  بالف خير وعافية

اعترف ان لي وقت لم اتصل بالموقع فاعتذر لكم

لي سؤال او لنقل عندي مشكلة في فورم

الفورم  استعمله في برامج اخرى يمشي على احسن وجه  ولما استعملته في هذا  البرنامج  الاول يمشي تمام اما الثاني  به مشكلة

 هذا الفورم يقوم  بجلب البيانت من الصفحة 5 الى الصفحة 6 بنوعين

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

النوع الثاني لجلب البيانات على اساس رقم العميل ورمز الفواتير الغير مسددة (رمزها هو 0 ) يجلب لي كل الفواتير الغير المسددة فقط لان رمزها هو 0

اما  الفواتير المسددة  فرمزها هو 1  ( هذ الرمز (  0 و 1 ) يوجد في اخر عمود من الجدول )  

هذا الفورم النوع الثاني  عند التنفيذ تاتيني رسالة مفاده هناك خطا وعند الضغط عل FIN ينفذ البرنامج عمله  ولم افهم الخطا   رغم اني اعمل مثله  في برامج اخرى ويمشي تمام

تجد الفورم الاول وثاني في الصفحة   6

اتمنى ان اجد الجواب عندكم

المطلب الثاني وهو الى المشرفين على الموقع كان لي حساب واعمل به منذ 2008 او2009  او اكثر

واسم العضو    حليم ناصر    واعمل به طيلة  السنين السابقة لكن  في السنة السابقة اردت الدخول الى الصفحة  باسم العضو لان سابقا الدخول يكون باسم العضو وبالعربية فلم يقبل حاولت  ولم افلح

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

وفي الاخير تقبلو مني فائق التقدير والاحترام  وشكرا

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

 

 

حساب العملاء 2024.xlsm

[محمد هشام.]

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

تفضل جرب اظنه اسرع 

Sub TEST1()
Dim WS As Worksheet, sh As Worksheet
  Set WS = Sheets("Feuil5"): Set sh = Sheets("Feuil6")
  LR = WS.Cells(Rows.Count, 3).End(xlUp).Row
  
  Application.ScreenUpdating = False
  sh.Range("A10:M" & sh.Rows.Count).ClearContents
  a = WS.Range("A10:K" & LR).Value
  
  Dim tmp(): ReDim tmp(1 To UBound(a))
  For I = LBound(a) To UBound(a)
  On Error Resume Next
  If a(I, 2) = sh.[E3] And a(I, 11) = sh.[F3] Then n = n + 1: tmp(n) = I
' بما ان رموز الفواتير ثابثة  بين 0 . و 1  اجعل الشرط بهده الطريقة
   ' If a(I, 2) = sh.[E3] And a(I, 11) >0 Then n = n + 1: tmp(n) = I
 Next
  ReDim Preserve tmp(1 To n)
  a = Application.Index(a, Application.Transpose(tmp), _
  Application.Transpose(Evaluate("Row(1:" & UBound(a, 2) & ")")))
                   sh.[A10].Resize(UBound(a), UBound(a, 2)) = a
                   
  Application.ErrorCheckingOptions.BackgroundChecking = False
  Application.ScreenUpdating = True
End sub

 

حساب العملاء 2024.xlsm

[أحمد يوسف]

بارك الله فيك أستاذ محمد كود رائع

أما بالنسبة للطلب الثانى .. لأن الدخول الى المنتدى أصبح بالبريد الإلكترونى ( e-mail) وليس بأسم العضو   

[محمد هشام.]

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

8 ساعات مضت, أحمد يوسف said:

أما بالنسبة للطلب الثانى .. لأن الدخول الى المنتدى أصبح بالبريد الإلكترونى ( e-mail) وليس بأسم العضو 

هده من مهام المشرفين والقائمين على المنتدى ليس لي اي دراية بها 

[حسونة حسين]

اخي @Chenine Abdelhalim

لقد تم ارسال لك رساله ببيانات الدخول

[Chenine Abdelhalim]

سلام عليكم

اشكركم جزيل الشكر على المساعدة ولو اني متاخر في الرد 

موضوع الاول الاسناذ محمد هشام كان الكود رائع وتمام لكن لي طلب

في البرنامج الذي اعمل عليه  لما طبقت عليه الكود  يعمل تمام  

  المشكلة عندما يجلب لي ارقام الفواتير يجلبها بشكل مختلف ا

مثلا فاتورة رقمها  200130706401  يجلبها بهذ الشكل   2.00131E+11

اعرف انها تخص تنسيق الخلية  فاضطر الي اعادة تنسيق الخلايا كلهم  والضغط عليهم واحدة واحدة وهذا كثير

فكيف افعل لكي تجلب لي ارقام الفواتير كما هي دون تغيير    ارجو ان اجد الحل

 

اما الموضوع الثاني فقد تم حله وتم استعادة الحساب القديم  واشكر الاساتذة

احمد يوسف  وحسونة حسين  على المساعدة

و عموما اشكر كل اعضاء المنتدى على الاهتمام بعضهم البعض  والله يديم المحبة بينهم

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

 

[محمد هشام.]

31 دقائق مضت, Chenine Abdelhalim said:

فكيف افعل لكي تجلب لي ارقام الفواتير كما هي دون تغيير    ارجو ان اجد الحل

حاول تجربة وضع هدا في اخر الكود 

sh.Range("C10:C" & sh.Rows.Count).NumberFormat = "0"

'OR
sh.Columns(3).NumberFormat = "0"

 

31 دقائق مضت, Chenine Abdelhalim said:

اعرف انها تخص تنسيق الخلية  فاضطر الي اعادة تنسيق الخلايا كلهم  والضغط عليهم واحدة واحدة وهذا كثير

المفروض انك تحدد العمود بالكامل وتغيير التنسيق  دفعة واحدة 

 

تم تعديل مايو 25 بواسطه محمد هشام.

[Chenine Abdelhalim]

شكرا على الكود والمعلومة

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

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

[محمد هشام.]

العفو اخي @Chenine Abdelhalim يسعدنا اننا استطعنا مساعدتك