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

شكرا لحضرتك

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

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

اخواتك بتحتاج مساعدتك بالمنتديات

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

انت مدهش

ماشاء الله 

تبارك الله

استفدت جدااااااااااا من هذا الموضوع