a.kawkab

السلام عليكم ارجو المساعدة فى حل مشكلة الاتصال بقاعدة بيانات اكسس 2007 فما اعلى عندما احاول اختيار قاعدة البيانات تخرج هذة الرسالة مما يضرنى للرجوع لاستخدام اكسس2003 ارجو المساعدة وشكرا لكم نص الرسالة"The Microsot.Ace.oledb.12.0,provider is not registered on the local machine "

السلام عليكم بعد اذن الاستاذ محمد حسن المحمد تفضل اخى عطيىة23 تعديل على كود الاستاذ الفاضل ياسر خليل كما طلبت Sub Test() Dim a, v, ws As Worksheet, sh As Worksheet, lr As Long, i As Long, k As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) v = sh.Range("k1").Value If v = Empty Or Not IsNumeric(v) Then MsgBox "Enter Proper Grade First", vbExclamation: Exit Sub lr = ws.Cells(Rows.Count, "B").End(xlUp).Row a = ws.Range("B4:g" & lr).Value ReDim b(1 To UBound(a), 1 To 6) For i = LBound(a) To UBound(a) If a(i, 6) = v Then k = k + 1 b(k, 1) = k b(k, 2) = a(i, 1) b(k, 3) = a(i, 2) b(k, 4) = a(i, 3) b(k, 5) = a(i, 4) b(k, 6) = a(i, 5) End If Next i If k > 0 Then sh.Range("A7:g" & Rows.Count).ClearContents sh.Range("A7").Resize(k, UBound(b, 2)).Value = b End If Application.ScreenUpdating = True End Sub توزيع التلاميذ على الفصول.xlsm

وعليكم السلام تفضل اخى الكود .... مرفق الملف Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("2", "4", "6", "8", "10")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "schoolclass " & NM, FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True MsgBox "Done...", 64 End Sub School.xlsm

بعد اذن الاستاذ ali mohamed ali تكون المعادلة بالصورة التالية تجنبا لحدوث false فى حالة كون الخلية فارغة =IF(A2<>"";TEXT(NOW();"hh:mm:ss");"")

السلام عليكم ممكن تستعين بهذا https://www.officena.net/ib/topic/83386-شيت-مخزون-بسيط/

السلام عليكم اليك اخى الملف تم تنفيذ المطلوب شاشة دخول.xlsm

السلام عليكم اليك اخى الملف لعله يفي بالمطلوب data.xlsm

السلام عليكم تم التعديل لعله يفى بالمطلوب ترحيل على الشيتات1.xlsm

اليك اخى الملف لعله يفى بالمطلوب إعدادات صفحة الطباعة1.xlsm

السلام عليكم اليك اخى الملف بعد التعديل وتنفيذ المطلوب برنامج فواتير المبيعات.xlsm

يمكنك الاستعانة بهذا الموضوع null

Sub post() Dim R As Integer Dim xnewr As Integer For R = 9 To 24 If IsEmpty(Cells(R, 2)) Then Exit Sub ' xnewr = Sheets("Data").Cells(1, 1).CurrentRegion.Rows.Count + 1 xnewr = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets("Data").Cells(xnewr, 1) = Sheet1.Cells(5, 2) Sheets("Data").Cells(xnewr, 2) = Sheet1.Cells(6, 2) Sheets("Data").Cells(xnewr, 3) = Sheet1.Cells(5, 9) Sheets("Data").Cells(xnewr, 4) = Sheet1.Cells(R, 2) Sheets("Data").Cells(xnewr, 5) = Sheet1.Cells(R, 3) Sheets("Data").Cells(xnewr, 6) = Sheet1.Cells(R, 4) Sheets("Data").Cells(xnewr, 7) = Sheet1.Cells(R, 5) Sheets("Data").Cells(xnewr, 8) = Sheet1.Cells(R, 6) Sheets("Data").Cells(xnewr, 9) = Sheet1.Cells(R, 7) Sheets("Data").Cells(xnewr, 10) = Sheet1.Cells(R, 8) Sheets("Data").Cells(xnewr, 11) = Sheet1.Cells(R, 9) Sheet1.Range("K9:K24").ClearContents Sheet1.Range("f9:f24").ClearContents Next MsgBox "Êã ÊÑÍíá ÇáÝÇÊæÑÉ", vbInformation, "Done" End Sub تم تعديل الكود الخاص بك

السلام عليكم عدم ظهور الاسماء فى العمود B لانك تارك راس العمود فارغ اكتب "الأسم"فى راس العمود B فى شيت Donnée ثم خذه Copy والصقة فى رأس العمود B فى شيتDonnée (2) واضغط زر تصفية ستظهر الاسماء فى العمود B

السلام عليكم الرجاء ارفاق الملف

تفضل اخى الملف به زر لاضافة الاسماء واخر للمسح Book1 (5).xlsm

السلام عايكم المشكلة بسيطة كل اللى كان مطلوب انك تاخذ راس الجدول المراد عمل تصفية له copy ثم تلصقة كراس للجدول المراد اظهار ناتج التصفية بداخلة وايضا معيار التصفية وهو فى حالتك(القسم) تاخذة ايضا copy من راس الجدول ثم Past فى خلية تريدها سواء اعلى او بجانب الجدول المراد اظهار التصفية بداخلة ممكن تراجع اى شروحات عن التصفية المتقدمة ومااكثرها فى المنتدى

السلام عليكم تفضل اخى الملف بعد تفعيل الماكرو جدول-تصفية-المنح-ابجد-هوز-صحيح2020-2021.rar

السلام عليكم اليك اخى الملف بعد تنفيذ المطلوب قوائط الطالبات.xlsm

السلام عليكم اليك اخى الملف لعله يفى بالمطلوب تنسق شرطي.xlsx

الملف بعد تعديل الكود GHGH.xlsm

Sub Pay_Pay1() Application.ScreenUpdating = False Sheet6.Activate Dim ms As Range Set ms = ActiveSheet.ListObjects("table4").Range Dim r As Long r = WorksheetFunction.CountA(Sheets("إجمالي حساب الموردين").Range("C:C")) r = r + 4 Sheet6.Cells(r, "c").Value = Sheet4.Range("c9").Value Sheet6.Cells(r, "d").Value = Sheet4.Range("c10").Value Sheet6.Cells(r, "e").Value = Sheet4.Range("h10").Value Sheet6.Cells(r, "f").Value = Sheet4.Range("e7").Value Sheet6.Cells(r, "g").Value = Sheet4.Range("c14").Value Sheet6.Cells(r, "i").Value = Sheet4.Range("h9").Value Sheet4.Activate Sheet4.Range("e7").Value = Sheet4.Range("e7") + 1 Application.ScreenUpdating = True End Sub تم تعديل الكود المطلوب

السلام عليكم اليك اخى الملف بعد التعديل وتنفيذ المطلوب Hassan1.xlsm

السلام عليكم اليك اخى الملف بعد التعديل gg.xlsm

السلام عليكم الطريقة بسيطة كل ماعليك انك ستقوم بادراج Shapes ثم من خصائصة تقوم ملئه بالصورة المطلوبة وتحدد درجة الشفافية التى تحتاجها ثم تجعلة خلف النص(send to back )

السلام عليكم نفضل اخى ملف اكسل لعله يفى بالمطلوب ترويسةالعوري.xlsx