ابولجين العزالي

الكود اللي في زر الامر هو Private Sub CommandButton5_Click() Unload Me Sheets("تقرير عميل").Range("g1").Value = Me.TextBox1.Value ActiveWindow.SelectedSheets.PrintPreview ActiveSheet.PrintOut Application.Visible = False UserForm6.Show End Sub ايه الغلط اللي فيه

الملف المرفق به اكواد ولا استطيع فتحه الا بصعوبه وبعد عمل ريستارت للجهاز وعندما يفتح لا يعمل زر امر"معاينه التقرير"حيث من المفترض ان يظهر شيت الاكسيل بمجرد كتابه رقم في خانه البحث تقرير عن عميل (تم الحفظ تلقائياً).xlsm

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

المطلوب عند كتابه المبلغ في الخانه الخضراء يتم البحث في الجدول عن الفتره التي يقع فيها المبلغ واختيار القيمه المقابله ووضعها في الخانه الصفراء مع ملاحظه انه سيتم البحث في 400 شريحه للرقم تامين.zip

ما هو افضل برنامج لتحويل ملفات pdf إلي اكسيل وهل هناك برامج يمكنها تحويل ملفات بي دي اف الممسوحه ضوئيا الي اكسيل حتي يمكن البحث فيها علما بان الارقام مكتوبه بالانجليزي في الاوراق الممسوحه ضوئيا

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

الرجاء المساعده في الشيتات من 1 حتي 10 تأخذ بياناتها من الشيت صفر وكل شيت يمثل بيانات سجل(صف) من شيت صفر انا عملت المعادلات في الشيت 1 مطلوب تكرارها في كل الشيتات 6ب.rar

انا شاكر لحضرتك بس واجهتني مشكله كبيره وتم حلها الحمد لله

استفسار.zip

الملف بعد التعديل ابولجين تعديل.rar

للبحث بالاسم او اول حرف او اول جزء في اكسيل من خلال فيديو للزميل عبد الفتاح كيرة ابولجين.rar

اخي مازال الكود لا يعمل باختصار ما اريده كود عند كتابه جزء من الاسم يظهر لي قائمه بالاسماء الموجوده وعندما اختار منها اسم معين يظهر لي باقي البيانات الخاصه بالاسم

الرجاء كود للبحث باستخدام الاسم عند كتابه الاسم يظهر لي الرقم والفرع والموقف حاولت في اليوزرفورم 3 ومش عارف الخطأ فين مرفق الملف شريف.rar

المطلوب الترحيل من الشيتات (0-10-20-30-40-50)للشيت السجل علما بان كل شيت يحتوي مالا يقل عن 50000 سجل وعند الترحيل يترك صفوف كثيره فارغه بين بيانات كل شيت مرحل والمطلوب الترحيل للبيانات التي يكون رقم البنك مكتوب في العمود الاول وعندما يجد ان الخليه الاولي في الصف فارغه يتجه لترحيل اول خليه في الشيت التالي مع الابقاء علي البيانات في الشيتات المرحل منها كما هي ملف تجميع.rar

كود ادخال البيانات Dim LRow As Long Dim ws As Worksheet Set ws = Worksheets("ÇáÓÌá") LRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row If Trim(Me.TxtBox1.Value) = "" Then Me.TxtBox1.SetFocus MsgBox ("ãä ÝÖáß ÃÏÎá ÇáßæÏ") Exit Sub End If If Trim(Me.TxtBox2.Value) = "" Then Me.TxtBox2.SetFocus MsgBox ("ãä ÝÖáß ÃÏÎá ÇáÇÓã") Exit Sub End If ws.Cells(LRow, 1).Value = Me.TxtBox1.Value ws.Cells(LRow, 2).Value = Me.TxtBox2.Value ws.Cells(LRow, 3).Value = Me.TxtBox3.Value ws.Cells(LRow, 4).Value = Me.TxtBox4.Value ws.Cells(LRow, 5).Value = Me.TxtBox5.Value ws.Cells(LRow, 6).Value = Me.TxtBox6.Value ws.Cells(LRow, 7).Value = Me.TxtBox7.Value ws.Cells(LRow, 8).Value = Me.TxtBox8.Value ws.Cells(LRow, 9).Value = Me.TextBox1.Value ws.Cells(LRow, 10).Value = Me.TextBox2.Value Me.TxtBox1.Value = "" Me.TxtBox2.Value = "" Me.TxtBox3.Value = "" Me.TxtBox4.Value = "" Me.TxtBox5.Value = "" Me.TxtBox6.Value = "" Me.TxtBox7.Value = "" Me.TxtBox8.Value = "" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TxtBox1.SetFocus