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

الكود اللي في زر الامر هو 
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

7 ساعات مضت, طلعت محمد حسن said:

السلام عليكم اخي الكريم شكل الكود يكود هكذا وتم استبدال عامود الاسم بالرقم حتى يعمل الكود بشكل ممتاز

 

شريف.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

شكرا جزيلا بس يا ريت نسخه  64 بت والويندوز عندي 10
نزلت نسخه لكن اللغه ايطالي
تم التحويل بس فيه مشكله في التعامل مع المخرجات وخاصه عند الفلتره سواء للارقام او الاسماء
الملف عباره عن اسماء ويقابلها ارقام ككود لكل اسم
 

الرجاء الملف المرفق به اسماء مستخرجه من ملف dbf  لكن تظهر بحروف غير مفهومه وتم تحويلها لاكسيل وملف تكست لكن لم اتمكن من حل هذه المشكله 
الرجاء سرعه الرد للاهميه

شريف.rar