yara ahmed

الف شكر جارى التجربة بارك الله فيك

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

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

اخى استاذ سليم حاصبيا الفاضل واجهتنى مشكلة عندما ابحث عن رقم واضغط باليست واقوم بوضع المصروف الجديد ثم اضغط حفظ يتم الحفظ تمام تمام تمام ثم اقوم بوضع رقم جديد اضغط بحث لا يحدث شئ ويجب ان اغلق الفورم واعيد فتحه ليقوم بالبحث مع اعتذارى وكل شكرى ليك من قلبى والله YARA_FORM_New..xlsm

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

اخى فى الله انى احبك فى الله حفطك الله وبارك فيك انت مش ممكن رائع رائع رائع رائع رائع رائع بارك الله فيك اختك

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

اخواتى حبايبى الاصدقاء الزملاء العباقرة احتاج مساعدة بهذا الفورم المرفق وكتابة كود لكى يعمل مع خالص شكرى البحث اما بالرقم القومى او رقم الكود والتعديل يتم على المصروف وخالص دعائى فورم..xlsm

تسلم ايدك الله ينور تمام يا ملك الروائع لا حرمنامنك ابداااااااااااااااااا تعيش يارب يخليك كل حبى وشكرى لك اخى الغالى

حاولت اعدل بس فى حاجة غلط مع الشكر الوفير Option Explicit Sub del_zeros() Dim sh As Worksheet Dim curt As Range Dim rg_to_del As Range Dim F_rg As Range Dim Ro%, i% For Each sh In ThisWorkbook.Worksheets With sh If .Name = "report" Or _ .Name = "report2" Or _ .Name = "report3" Or _ .Name = "report4" Or _ .Name = "report5" Or _ .Name = "report" Then Else Ro = sh.Cells(Rows.Count, 1).End(3).Row If Ro < 5 Then Exit Sub Set curt = sh.Range("E5:I" & Ro) curt.Interior.ColorIndex = xlNone For i = 1 To curt.Rows.Count Set F_rg = curt.Rows(i).Find(0, lookat:=1) If F_rg Is Nothing Then GoTo next_row If rg_to_del Is Nothing Then Set rg_to_del = curt.Rows(i) Else Set rg_to_del = Union(rg_to_del, curt.Rows(i)) End If next_row: Next '+++++++++++++++++++++++++ If Not rg_to_del Is Nothing Then ' rg_to_del.EntireRow.Delete rg_to_del.Interior.ColorIndex = 6 End If Set rg_to_del = Nothing End Sub خالص الدعاء لك والله

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

اشرقت الانوار يا باشا انا اضفت بيانات تمام الريبورتات فارغة لا داعى املاءها اريد استثناء هذه الصفحات من تطبيق المكرو اريد اذا كان الخلية بالعمود من E5 الى I500 اذا كانت 0 يتم حذف السطر كله مشكور ياباشا واوعى تزعل منى انت كريم وجميل استاذ سليم ربنا يكرمك يارب مسح الصف الذى به 0.xlsm

اخواتى احتاج ماكرو لمسح الصف الذى به الرقم 0 بدا من الصفحة الرابعة ومن الصف 5 مع خالص حبى وشكرى او تعديل الكود هذا واضافة شرط وجود 0 فى العمود e5:i500 ليتم المسح Sub Dell() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws If .Name = "report" Or _ .Name = "report2" Or _ .Name = "report3" Or _ .Name = "report4" Or _ .Name = "report5" Or _ .Name = "report" Then Else .Range("A5:J50000").ClearContents End If End With Next ws Else End If End Sub مسح الصف الذى به 0.xlsm

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

مشكور استاذنا الفاضل

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

ربنا يكرمك استاذ سليم اخى الكريم

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

تسلم لى ايدك وعينك يارب يحفظك ان شاء الله موفق دائما كل حبى وشكرى من قلبى ربنا ما يحرمنى منك ابداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

معلش سامحنى انا افتكرت انى كده وصلت المطلوب معلش ربنا ما يحرمنى منك

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

احتاج مساعدة اخى استاذ سليم الغالى لقلبى هذا الكود من ابداعاته احتاج تعديلة بحيث لا يستدعى الارقام السالبة مع حبى وشكرى yara_salim_NEW.xlsm

شكرا لحضرتك

ربنا يرضى عنك ليه مش هتبرمج لما حضرتك نزلت الموضوع شاهدت كل مواضيعك السابقة حضرتك رائع وبتساعد الناس وملك من ملوك الاكسيل اخواتك بتحتاج مساعدتك بالمنتديات فكر شوية انت من علامات المنتدى ومن عباقرته ربنا يوفقك يارب

انت مدهش ماشاء الله تبارك الله استفدت جدااااااااااا من هذا الموضوع