نجوم المشاركات

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

السلام عليكم ورحمة الله وبركاته الحمد لله الذي بلّغنا شهر رمضان المبارك شهر الخير واليمن والبركات نسأل الله تعالى أن يجعلنا من أهل الصيام والقيام وغض البصر وحفظ اللسان. اللهم اجعلنا من عتقاء شهر رمضان المبارك من النار واجعلنا من أهل باب الريان واغفر لنا ما تقدم من ذنوبنا وسيئاتنا واقبل دعاءنا واغفر لنا الزلات والعثرات واجعلنا ممن يكبرون الله على ما هداهم واجعلنا من المتقين الأخيار اللهم ارحم من فارقونا إلى دار الخلد يا رب العالمين واجعلهم تحت ظل عرشك واجعلنا وإياهم في ظلال على الأرائك متكئين من غير ضراء مضرة ولا فتنة مضلة آمين يارب العالمين كل عام وأنتم إلى الله تعالى أقرب وله أطوع. والصلاة والسلام على سيد المرسلين محمد وعلى آله وصحبه أجمعين والحمد لله رب العالمين. والسلام عليكم ورحمة الله وبركاته.

كل عام و أنتم جميعا بخير تقبل الله منكم صالح الأعمال 🌷

وعليكم السلام وذلك بسبب ان طريقة الحساب لديك كانت Manual اجعلها كما بالصورة

جزاك الله خير الثواب وكل عام وانتم جميعاً بخير

وعليكم السلام-فقط استخدم هذه المعادلة =CONCATENATE($E2," ",$BC2," ",$F2) مواقع استخدام العناصر 201.xlsx

هدية طبعاً مقبولة بارك الله فيك أستاذ محمد وكل عام وانتم بخير ورمضان كريم أعاده الله علينا جميعاً بالخير واليمن والبركات ونتمنى من الله زوال هذا الوباء والمرض الفتاك

اهلا بك فى المنتدى -يمكنك ببساطة استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B9,ورقة1!$A$3:$C$400,2,0),"") VLOOKUP.xlsx

وعليكم السلام-طالما انها معادلة اجمالى من الأفضل ان تكون هكذا =SUM(J6:L6) معادلة الجمع1.xlsx

تفضل لك ما طلبت 1معادلات.xlsx

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Combine() Dim j As Integer Dim s As Worksheet On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Year 2020" ' copy headings Sheets(1).Activate With ActiveSheet v = 1 Range("a2").Resize(v + 1, 10) = arr Range("b" & v + 1).FormulaR1C1 = "Total" Range("c" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C3:R[-2]C)" Range("d" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C4:R[-2]C)" Range("e" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C5:R[-2]C)" Range("f" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C6:R[-2]C)" Range("g" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C7:R[-2]C)" Range("h" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-2]C)" Range("i" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C9:R[-2]C)" End With Sheet1.Range("b4:k4").Copy Sheets("Year 2020").Range("a3:K3") Columns("A:C").ColumnWidth = 10 Columns("D:I").ColumnWidth = 8 Columns("J").ColumnWidth = 16 Range("b4").EntireRow.Select Range("b2:i2").Interior.ColorIndex = 5 Range("a2:j2").Font.ColorIndex = 2 Range("b2:i2").Font.Bold = True Range("b2:i2").Font.Size = 16 Range("b2:i2").Font.Name = "Times New Roman" Range("b2:i2").HorizontalAlignment = xlCenter Cells.Rows(4).Font.Bold = True Selection.Copy Destination:=Sheets(1).Range("b4") For Each s In ActiveWorkbook.Sheets If s.Name <> "Year 2020" Then Application.Goto Sheets(s.Name).[b4] Selection.CurrentRegion.Select ' Don't copy the headings Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets("Year 2020"). _ Cells(Rows.Count, 1).End(xlUp)(2) End If Next End Sub Book4 .xlsm

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B$2,البيانات!$A$2:$E$100,1,0),INDEX(البيانات!$A$2:$A$100,MATCH($B$2,البيانات!$B$2:$B$100,0))) test1.xlsx

تم التعديل كما تريد على الملف السابق وتم وضع كود بصفحة تفاصيل الحجز .. حتى لا تقوم بحجز وإدخال نفس الملعب بنفس اليوم بنفس التوقيت أكثر من مرة , ولكم جزيل الشكر

وعليكم السلام-تفضل المشكلة لديك انك كنت عامل طريقة الحساب يدوياً وليس تلقائياً او الية !!! جدول توزيع النوبتجيات1.xlsx

تفضل finger print1.xlsx

ببساطة يمكنك استخدام هذا الكود لطلبك Sub format() For Each WS In Worksheets With WS i = .Range("a" & Rows.Count).End(3).Row Sheets("السويد").Range("A1:xfd12").Copy .Range("A" & i) End With Next WS End Sub test1.xlsm

تفضل هذا التعديل تم اضافة عمود جديد في الجدول لعملية ترحيل البيانات DATA2000.mdb

ربما هذا ما تثصد lable.xlsm

استفسار لو سمحت أين تريد أن تحفظ البيانات بعد ضغط زر الترحيل (الي أي جدول ستنتقل البيانات ) التركيز لدي انخفض بنسبة 98.2 % لذي لم استطع تتبع كل هذه الجداول بالمرفق

لديك حقل يجب ان يتم ادخال قيمة له حسب اعدادات الجدول لديك هذا هو MNO وهو حقل رقمي من أين تجلب قيمته ام هو مسلسل فقط عموما قد قمت بتغيير اعداد هذا الحقل الي غير مطلوب وجربت الاستعلام فعمل بغير رسالة الخطأ والحمد لله انظر ان كان هذا هو المطلوب ام لا قم بتشعيل الاستعلام q1 ووافنا بالنتائج سجلات xx.rar

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

الحل بالمعادلات مش اكواد =COUNTIFS(B2:B5;B5;E2:E5;E5) =IF((E5=E4)*AND(C4<>"");C4;C4+1) تفضل اخي عمر الملف بالاكواد اي استفسار اعلمني المدى بالملف الى السطر 41 بامكانك تزيد عليه حسب احتياجك Sub Macro15() ' ' Macro15 Macro Range("A2").Formula = _ "=IF(RC[1]="""","""",COUNTIFS(RC[1],RC[1],RC[4],RC[4]))" Range("A3:A41").Formula = _ "=IF(RC[1]="""","""",COUNTIFS(R2C[1]:RC[1],RC[1],R2C[4]:RC[4],RC[4]))" Range("C2").Formula = _ "=IF(RC[2]<>"""",1,"""")" Range("C3:C41").Formula = _ "=IF(RC[2]="""","""",IF((RC[2]=R[-1]C[2])*AND(R[-1]C<>""""),R[-1]C,R[-1]C+1))" End Sub

تفضل التعديل اخي الكريم DATA2000.mdb

جزاك الله خير يا حسين مامون وكل عام وانت بخير تمت العمليه بنجاح بفضل جهودكم

الوجهين صحيحين المشكلة ان الجدول المراد نقل البيانات اليه يحتوي على مفتاح رئيسي لذا يجب ان يحتوي على بيانات ايضا مع مراعاة ان لا تكون مكررة

تفضل قاعدة البيانات ومجلد الحفظ اجعل المجلد بجوار القاعدة Downloads.rar

جرب هذا الكود Sub Bevel1_Click() Dim sh For Each sh In Sheets If Format(Sheets("main").Range("m3"), "d") = sh.Name Then sh.Activate Range("I6").Select Exit For End If Next End Sub

وعليكم السلام-تفضل بالتنسيقات الشرطية مهم1 .xls

فقط تم تغيير امتداد وتنسيق الملف الى XLSM حتى لا يقوم بإلغاء القائمة المنسدلة ... دائماً وأبداً حاول عدم جعل ملفات الإكسيل لديك بهذا الإمتداد XLS , فهو امتداد قديم قائمة منسدلة.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(2,1/('تفاصيل الحجز'!$E:$E=$B6)/('تفاصيل الحجز'!$D:$D=$C6)/('تفاصيل الحجز'!$G:$G=D$5),('تفاصيل الحجز'!$A:$A)),"") كشف حجوزات الملاعب -ماكرو.xlsm

ولك بمثل ما دعوت - جرب هذا الملف المراد اصلاحة.xlsb

السلام عليكم ورحمة الله تعالى وبركاته ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت اولا قمت بحجز استضافة مجانيه من هذا الموقع https://somee.com/ وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396 ونظرا لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61485&hl= بخصوص الربط وجعل قاعدة اكسس مجرد واجهة قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان اترككم مع المرفق انشاء اتصال DNS.rar