ابراهيم الحداد

السلام عليكم ورحمة الله سبب المشكلة لديك بالملف هو ان تسطير الجدول بخاصية الجداول الجاهزة و لابد من التخلص منها و اذا اردت ذلك فعليك بالخطوات الاتية : 1 - تحديد اى خلية بالجدول و لتكن الخلية "A2" سيظهر لك تبويب جديد يسمى "Design" 2 - اضغط على العبارة الاتية "Convert To Range" ستظهر لك رسالة اضغط "Yes" و سينتهى الامر 3 - يمكنك جعل التنسيق من خلال التسيق الشرطى او بأى شكل آخر ان شئت

السلام عليكم ورحمة الله كود للبحث بالرقم القومى و تلوين الاسم Sub SearchData() Dim ws As Worksheet, Sh As Worksheet Dim lr As Long, i As Long Dim data Set Sh = Sheets("البحث") data = Sh.Range("C7").Value Application.ScreenUpdating = False For Each ws In Worksheets If ws.Name <> "البحث" Then lr = ws.Range("A" & Rows.Count).End(3).Row i = 8 Do While i <= lr If ws.Cells(i, 1) = data Then Sh.Range("C8").Value = ws.Cells(i, 2).Value Sh.Range("C9").Value = ws.Cells(i, 3).Value Sh.Range("C10").Value = ws.Cells(i, 4).Value Sh.Range("C11").Value = ws.Cells(i, 5).Value ws.Cells(i,

السلام عليكم ورحمة الله استخدم هذا الكود Sub ClearData() Dim ws As Worksheet, Lr As Long Set ws = Sheets("ورقة2") Lr = ws.Range("B" & Rows.Count).End(3).Row ws.Range("B2:C" & Lr, "E2:E" & Lr).ClearContents ws.Range("J2:K" & Lr, "N2:T" & Lr).ClearContents End Sub

السلام عليكم ورحمة الله اخى الكريم اشكرك على حسن اخلاقك يمنكنك استبدال هذا الجزء من المعادلة COUNTA($A$2:$A$7) بهذا الجزء COUNTA(B$2:$B7)

السلام عليكم ورحمة الله اخى الكريم يمكنك تعديل هذا الجزء من المعادلة بحيث لا تتخطى الصف الذى تطهر فيه النتائج =INDEX($A$2:$D$6;COUNTA($A$2:$A$6) مثلا ان الرقم 6 فى المعادلة يمكنك تغييره الى 10 او 50 او 100 او 1000 وهكذا الى آخر نطاق قد تظهر فيه البيانات و بذلك سوف تطهر لديك كل النتائج

السلام عليكم ورحمة الله اكتب المعادلة التالية فى الخلية "B13" ثم اسحبها طولا و عرضا =INDEX($A$2:$D$6;COUNTA($A$2:$A$6)-COLUMN()+2;MATCH($A13;$B$1:$D$1;0)+1)

السلام عليكم ورحمة الله استخدم هذا الكود بعد تحويل تنسيق العمود "E" الى "Text" Sub ConcaText() Dim LR As Long, i As Long LR = Range("G" & Rows.Count).End(3).Row i = 3 Do While i <= LR Range("E" & i).Value = Range("H" & i).Value & " / " & Range("G" & i).Value i = i + 1 Loop End Sub

السلام عليكم ورحمة الله تفضل LaLiga-2011-2012-V1.5.xls

السلام عليكم ورحمة الله جرب هذا الكود Sub GetName() Dim ws As Worksheet, Arr As Variant Dim LR As Long, i As Long Dim j As Long, x As Long Application.ScreenUpdating = False Set ws = Sheets("ورقة2") LR = ws.Range("A" & Rows.Count).End(3).Row Arr = ws.Range("A13:AA" & LR).Value x = 3 Do While x <= 27 For i = 1 To UBound(Arr, 1) For j = 1 To UBound(Arr, 2) If ws.Cells(1, x) = Arr(i, j) Then ws.Cells(2, x) = Arr(i, 1) End If Next Next x = x + 1 Loop Application.ScreenUpdating = True End Sub

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

السلام عليكم ورحمة الله يمكنك الغاء (مسح) هذا السطر بالكود و جميع الاسطر المشابهة له فى نفس الكود المدرج بالمشاركة الاولى .Range("A" & M) = M - 3

السلام عليكم ورحمة الله استخدمى هذا الكود Sub HideRows() lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row - 2 For f = lr To 3 Step -2 x = WorksheetFunction.Sum(Sheet1.Range(Cells(f, 2), Cells(f, 7))) If x = 0 Then Sheet1.Range(Cells(f - 1, 2), Cells(f, 7)).Rows.Hidden = True End If Next End Sub

السلام عليكم ورحمة الله يمكنك استخدام هذا الكود Sub UnhideColumns() Sheet1.Columns.Hidden = False End Sub

السلام عليكم ورحمة الله ضعى هذا الكود فى حدث الفورم Private Sub CommandButton1_Click() Dim ws As Worksheet, LR As Long Set ws = Sheets("æÑÞÉ1") LR = ws.Range("J" & Rows.Count).End(3).Row + 1 If Not IsEmpty(Me.TextBox1.Value) Then ws.Cells(LR, "J") = Me.TextBox1.Value Me.TextBox1.Value = "" End If End Sub

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية D2"" =ROUND(C2*15%;2) ثم اسحب لآخر خلية تريدها