عبدالسلام ابوالعوافي

اجازة.rar

اجازة.rar

او يمكن تجاوز التحديد Private Sub CommandButton6_Click() For a = 1 To 10000 If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then Exit For End If Next a Sheets("ورقة2").Cells(a, 1).Offset(0, 1) = TextBox2.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 2) = TextBox3.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 3) = TextBox4.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 4) = TextBox5.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 5) = TextBox6.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 6) = TextBox7.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 7) = TextBox8.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 8) = TextBox9.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 9) = TextBox10.Text Sheets("ورقة2").Cells(a, 1).Offset(0, 10) = TextBox11.Text End Sub

Private Sub CommandButton6_Click() For a = 1 To 10000 If Sheets("ورقة2").Cells(a, 1) = TextBox1.Text Then Sheets("ورقة2").Cells(a, 1).Select Exit For End If Next a Sheets("ورقة2").ActiveCell.Offset(0, 1) = TextBox2.Text Sheets("ورقة2").ActiveCell.Offset(0, 2) = TextBox3.Text Sheets("ورقة2").ActiveCell.Offset(0, 3) = TextBox4.Text Sheets("ورقة2").ActiveCell.Offset(0, 4) = TextBox5.Text Sheets("ورقة2").ActiveCell.Offset(0, 5) = TextBox6.Text Sheets("ورقة2").ActiveCell.Offset(0, 6) = TextBox7.Text Sheets("ورقة2").ActiveCell.Offset(0, 7) = TextBox8.Text Sheets("ورقة2").ActiveCell.Offset(0, 8) = TextBox9.Text Sheets("ورقة2").ActiveCell.Offset(0, 9) = TextBox10.Text Sheets("ورقة2").ActiveCell.Offset(0, 10) = TextBox11.Text End Sub جرب

=VLOOKUP(A2;ورقة1!$A$1:$G$9;3;False)

Private Sub CommandButton1_Click() If ActiveSheet.CommandButton1.Caption = "Hide" Then Application.ScreenUpdating = False For Each cell In Range("g4:g300") If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True i = 1 End If Next cell ActiveSheet.CommandButton1.Caption = "Show" Else Rows("4:300").EntireRow.Hidden = False ActiveSheet.CommandButton1.Caption = "Hide" End If Application.ScreenUpdating = True End Sub

C3 جرب هذه في الخلية =IF(ISNA(VLOOKUP(B3;الاتصالات!$B$2:$C$37;2;FALSE));"";VLOOKUP(B3;الاتصالات!$B$2:$C$37;2;FALSE))&IF(ISNA(VLOOKUP(B3;الادارية!$B$2:$C$37;2;FALSE));"";VLOOKUP(B3;الادارية!$B$2:$C$37;2;FALSE))&IF(ISNA(VLOOKUP(B3;الانتاج!$B$2:$C$37;2;FALSE));"";VLOOKUP(B3;الانتاج!$B$2:$C$37;2;FALSE))&IF(ISNA(VLOOKUP(B3;الصيانة!$B$2:$C$37;2;FALSE));"";VLOOKUP(B3;الصيانة!$B$2:$C$37;2;FALSE))

جرب .. غير الاعدادات من لوحة التحكم .. غير اللغة الى عربية

اعتذر اخي .. يبدو اني ارسلت لك ملف اخر .. جرب هذا copy_2.rar

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

اسف علي التاخير .. جرب اخي osamahreport2.rar

تمام اخي ... ان شاء الله ارفعه لك اليوم

فهمت الان ولم يبقى الا شي واحد .. هل العمود المشترك هو العمود A? ما اقصده .. ماهو الشي المشترك بين الشيتيات الثلاث والذي يعتبر كانه "المفتاح الاساسي" كمافي قواعد البيانات ؟

تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A

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

osamahreport2.rar

الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الماكرو في المستطيل الي Copying?

جرب معادلة بحث.rar

Sub Copying() Dim i As Integer Dim LstRow As Integer Dim LstRow1 As Integer LstRow = Sheet4.UsedRange.Rows.Count If LstRow > 2 Then Sheet4.Rows("2:" & LstRow).Delete LstRow1 = 2 For i = 1 To 3 LstRow = Sheets(i).UsedRange.Rows.Count If LstRow > 1 Then Sheets(i).Rows("2:" & LstRow).Copy Sheet4.Cells(LstRow1, 1) LstRow1 = Sheet4.UsedRange.Rows.Count + 1 End If Next i End Sub جرب اخي

افهم من كلامك انك تريد نسخ الصفحات الثلاث في الصفحة الرابعة بدون تكرار؟ اذا كان هذا طلبك فهو بسيط ان شاء الله .. فقط اريد التاكيد منك

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

غير التنسيق الى نمبر (رقم) وقم بازالة العلامة العشرية

تاكد من الاوبشنز

تفضل مساعدة في نسبة ..rar

هل هذا ماتقصد اخي؟ Check For Specific Digits Within Numbers YasserKhalil2222.rar