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

اتفضل اليك تعديل اخر الان تعمل مع اربع ملفات اكسل تم تم Fayz.rar

وعليكم السلام استاذ حسين العربى مشاركة مع استاذ ازهر عبد العزيز ارجو ان تكون موفقة test-root.rar

تفضل اخي العزيز ارجو ان يكون طلبك Adddte-root.rar

بعد ادن اخي محي الدين و زيادة في اثراء الموضوع هذا الكود Option Explicit Sub test_1() Dim arr(), i%, t%, itm, col% Dim B As Worksheet Dim Tas As Worksheet Set B = Sheets("البيان") Set Tas = Sheets("التصنيفات") B.Range("D2").CurrentRegion.ClearContents Dim Rg As Range Set Rg = Tas.Range("B2:D20") For i = 1 To Rg.Cells.Count If Rg.Cells(i) <> "" Then ReDim Preserve arr(t) arr(t) = Rg.Cells(i) t = t + 1 End If Next t = 2 For i = 2 To 9 For Each itm In arr If InStr(B.Cells(i, 2), itm) Then col = Rg.Find(itm, lookat:=1).Column B.Cells(t, 4) = Replace(B.Cells(i, 2), _ itm, Tas.Cells(1, col)) t = t + 1: Exit For End If Next itm Next i End Sub الملف مرفق Mh_Fayz.xlsm

عفواً مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول البيان احتياطاً Sub test() With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) .Cells(i, 3) = Sheet2.Cells(1, fin.Column) Next End With End Sub تصنيف الوصف.xlsm

حسب ما فهمت مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول التصنيفات تصنيف الوصف.xlsm

احسنت و ابدعت اخي الكريم

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

On Error Resume Next DoCmd.OpenReport "RS", acPreview هذا يظهر التقرير ولكن معاينة فقط

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

عليكم السلام استاذ AboBahaa تفضل التعديل ارجو ان يكون طلبك تحديث حساب العمر2.rar

اظن ان هناك خطا في ادخال قم بحذف كل البيانات وبعدين قم بادخالها من جديد وشوف النتيجة اليك قاعدة بعد تنظيف و تعبئة من جديد تاريخ الواصل (1).rar

هل جربت هذا Docmd.Open Docmd.OpenReport "NameForReport", acViewReport

هذا عمل من الصعب تنفيذه بالمعادلات جرب هذا الكود Option Explicit Sub Extract_Codes() Dim col As Object Dim i% Dim RoB%, RoD% Set col = CreateObject("System.Collections.ArrayList") With Sheets("Sheet2") i = 2 Do Until .Cells(i, 1) = vbNullString If Not col.Contains(.Cells(i, 2).Value) _ And .Cells(i, 2) <> "" _ And IsNumeric(.Cells(i, 2)) Then col.Add .Cells(i, 2).Value End If If Not col.Contains(.Cells(i, 4).Value) _ And .Cells(i, 4) <> "" _ And IsNumeric(.Cells(i, 4)) Then col.Add .Cells(i, 4).Value End If i = i + 1 Loop col.Sort .Cells(1, "I").CurrentRegion.ClearContents .Cells(1, "I").Resize(col.Count).Value = _ Application.Transpose(col.ToArray) End With End Sub الملف مرفق Saher.xlsm

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

قلت دون كلمات لا معنى لها هل هناك شركة باسم غشاخخ أو لخخخلث

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

ألف شكر استاذنا الفاضل ... بارك الله فيك

انا استخدم اوفيس 2010 ويعمل عندي بالتمام ليس فيها اي مشكلة تحياتي

ضع كل احتمالات الكتابة في عامود واحد (دون فراغات) ودون كلمات لا معنى لها ( الاسهم الزرقاء) و في عامود اخر ما تريد استبداله كما في هذه الصورة

بالخدمة استاذ حسين العربى

رحم الله والديك وانا بخدمتك

ھل ھذا هو ما تبحث عنه