Ali Mohamed Ali

لك ما طلبت اخى الكريم مثال.xlsx

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

كيف يمكن العمل على الصورة !!!!!!!!! عليك برفع الملف نفسه ؟

وعليكم السلام عليك برفع الملف حتى تكتمل المساعدة

وعليكم السلام لابد من رفع الملف للعمل عليه لكى تتم المساعدة

تفضل

تفضل كتابة التاريخ تلقائيا.xlsx

تفضل بعد اذن استاذنا الكبير ابراهيم المصنف1.xlsm

انها حقا معادلة رائعة استاذى الكريم -ولكنى اعتقد ان تكون هكذا لكى يتم اضافة 3 أشهر , فعندما تم تطبيق معادلة حضرتك اعطت التاريخ فى الخلية A2 -01/07/2019 فلابد ان يكون 01/04/2019 =DATE(YEAR($A$1),MONTH($A$1)+3*(ROWS($A$1:A1)),1)

تفضل Book2.xlsx

وعليكم السلام تفضل اخى الكريم محصلات.xlsx

بارك الله فيك اخى الكريم هذه هى المعادلة المستخدمة فى البحث يمكنك دراستها متفهمها جيدا بسهولة =IFERROR(VLOOKUP($D9,Feuil1!$B$9:$I$1000,4,0),"")

وعليكم السلام تفضل exemple2.xlsx

تفضل مع مقارنة عمودين مع بعضهما(1).xlsm

بارك الله فيك اخى الكريم والحمد لله الذى بنعمته تتم الصالحات

وذلك بتغيير اسم العملة فى الكود اى تغيير كل كلمة تقابلك فى الكود من Euro الى ما تشاء وتريد فكما تريد الى دينار مثلا

اى ملف تريد وليكن هذا كمثال مع مقارنة عمودين مع بعضهما.xlsm

تفضل اخى الكريم كان عليك استخدام خاصية البحث فى المنتدى قبل رفع المشاركة https://www.officena.net/ib/topic/39234-طريقة-تحويل-ملف-اكسل-الى-csv-أو-vcf/\ او يمكنك من هنا ايضا https://convertio.co/ar/xls-csv/

ما تقوله من الصعب عمله لأنى بأى سريال مثلا تريد ان أبدأ اول طالب من المدسة 2 وهكذا بالنسبة لباقى المدارس وعلى اى اساس يتم الترقيم والتسلسل للمدارس كلها ليس هناك شروط وضوابط لطلبك ؟ تمام انا معك اذا اعطيت المدرسة 1 سريال مثلا من 100 الى 145 ثم بعد ذلك بدأت المدرسة 2 فى الترقيم فبأى سريال ابدأ مع هذه المدرسة هل ب 146 ولا ابدأ من 100 كالبداية !!!!!!!!!!

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

لماذا لم تضع كود المعادلة داخل الملف ؟!!!!!!!!! تفضل كله تمام . Classeur1.xlsm

تفضل كان عليك رفع ملف بالمطلوب من البداية Test.xlsx

تفضل هذا الكود اذا قمت بالكتابة فى العمود الأول A والعمود الثالث C سيعمل هذا الكود على تلوين المتشابه الغير متماثل باللون الأصفر Sub compare_cols122() Dim NameList As Worksheet Dim i As Long, j As Long Set NameList = Excel.Worksheets("Names") Dim rngNames As Range Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp)) Dim varNames As Variant varNames = rngNames.Value2 Dim rngData As Range Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp)) Dim varData As Variant varData = rngData.Value2 Application.ScreenUpdating = False For i = LBound(varNames) + 1 To UBound(varNames) For j = LBound(varData) + 1 To UBound(varData) If varNames(i, 1) <> "" Then If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then NameList.Cells(j, 3).Interior.ColorIndex = 6 NameList.Cells(i, 1).Interior.ColorIndex = 6 Exit For Else End If End If Next j Next i Application.ScreenUpdating = True End Sub

تفضل هذا الكود اذا قمت بالكتابة فى العمود الأول A والعمود الثالث C سيعمل هذا الكود على تلوين المتشابه الغير متماثل باللون الأصفر Sub compare_cols122() Dim NameList As Worksheet Dim i As Long, j As Long Set NameList = Excel.Worksheets("Names") Dim rngNames As Range Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp)) Dim varNames As Variant varNames = rngNames.Value2 Dim rngData As Range Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp)) Dim varData As Variant varData = rngData.Value2 Application.ScreenUpdating = False For i = LBound(varNames) + 1 To UBound(varNames) For j = LBound(varData) + 1 To UBound(varData) If varNames(i, 1) <> "" Then If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then NameList.Cells(j, 3).Interior.ColorIndex = 6 NameList.Cells(i, 1).Interior.ColorIndex = 6 Exit For Else End If End If Next j Next i Application.ScreenUpdating = True End Sub

تفضل لك ما طلبت Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("a1:a5,F4,B12,C3,E10"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub