Jasmin

وعليكم السلام ورحمة الله وبركاته/ أخي الكريم ما أرسلته غير مرتبط بما تطلبه.

السلام عليكم إخوتي، أقوم بالانتهاء من برنامج وصادفتني مشكلة بخصوص الباركود فلقد أضفت الخط Font39-free3of9 لعرض ةاستخلاص الكود بشكل باركود وما عندي مشكلة إلا التالي: عندي barcode scanner reader من نوع Cipher تقرأ البعض بشكلٍ صحيح والبعض لا - فجرّبت الأمر من هاتفي على برنامجين QR scanner أعطاني نفس نتيجة الCipher Barcode scanner من zxing يعطي القيمة بشكلٍ صحيح. فما الحل يا ترى؟

وعليكم السلام ورحمة الله وبركاته، ممكن تكون موقف هالخاصية بالإعدادات، اذا كنت أنت الـ Host.

عندك بالورقة 1 و 2 overtime أي منهم تريد نقله للورقة 3؟ بامكانك استعمال vlookup() function لذا الغرض.

أخي: 1- لماذا لا تستعمل Conditional formatting ؟ 2- هل وضعت معادلات بال text box أو لا اذا كنت مصراً عالكود فتفضّل: Sub Color_blank_cells() 'declare variables Dim ws As Worksheet Dim ColorRng As Range Set ws = Worksheets("Analysis") Set ColorRng = ws.Range("B3:C9") 'color blank cells ColorRng.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(220, 230, 241) End Sub طبعا تغيّر اللون من RGB(220, 230, 241) مثل ما تريد

تفضل أخي هذا الفيديو واضح جداً: المصادر والreference للإضافة أيضا في المحتوى واذا لم تستطع قل لنا

تأكد أن تكون نتيجة المعادلة أي صفر أو فراغ عندها أكيد لن يكون الفرز صحيحاً. أخي ممكن تعمل نسخة مصغرة عنه وترسله؟

أخي الكريم ممكن التوضيح : متى يكون الترجيل وعلى أي أساس.

تفضل ال formula كاملة =INDEX(data,MATCH(MIN(ABS(data-value)),ABS(data-value),0)) واذا اردت ابعث ملف مبسط للنطبيق.

شكرا لكم أخ allilia شكله برنامج متكامل ولكن بعد فتحه مباشرة أحصل على error واعمل لها debug فيظهر كما الصورة.

تفضل أخي الكريم. 0.0_3rEd.0_3rEd!attachment!0_مواد دراسية (1).xlsx

لم أفهم الجدول المستخرج - ربما الرمكز مبهمة ولكن أيضا عندينموذج ممكن تشوف الformula VLookUp_Jinane.xls

أخي الكريم بما أنه لا توجد لديك بيانات فعلية، أرسل لك ما تريد و انا نقلت من الورقة 1 للورقة2 VLookUp_Jinane.xls

أخي الكريم، ممكن تفسرلي من أين تريد أن تنقل - من أي ورقة لأي ورقة؟

أخي هذا ملف قم بفتحه واذهب في sheet transaction للأخير وأضف بالItem Code أي iTEM فيضع لك المعلومات عن هذا الكود (باستخدام vLOOKUP وورقة STOCK2021-2022) والآن قم بعملية بيع مثلا SELL و ضع العدد 1 - سينقص QUANTITY IN STOCK 1 وسيتمّ وضعه في NEW STOCK حيث سينقل الى ورقة الSTOCK TestStock21-22.xlsm

أخي الكريم، مجموعة الخلايا اعملها select وأطلق عليها اسم NameRange مثلاً range1 واستعمل الآتي على الزر: ممكن تشوف الملف المرفق أيضا فقط لطباعة ورقة كاملة Sub printOutRange() Range ("range1").PrintOut End Sub Print-invoice.xls

ألف شكر لكم. جزاكم الرحيم كل خير واذا أضفنا عالعامود B سطر ممكن أيضا نضيف عالتعديل؟

المفترض أن تكون التيجة مثل المرفقات think 2.xlsx

السلام عليكم إخواني سؤالي بالنسبة لهذه الورقة كالتالي: عندي أول عامود به مجموعة من اسماء الملفات - ممكن أن يزيد أو ينقص وبالعامود الثاني أيضا مجموعة من الأسماء ممكن أن تزيد أو تنقص وأريد بالعامود الثالث أن أجمع بينهما كما هو موجود وفي حال أضفت أو أزلت أن يتغيّر المضمون، فهل هذا ممكن think.xlsx

شكرا لكم سأحاول غدا وأرسل لكم..

سلام إخوتي الكرام، عندي مشكلة بملفات الباوربوينت فقط العربي - عندما أفتحها تظهر وعندما أفقس على Editing تتلخبط كل الأحرف وتظهر كالمربعات أوفيس 2019 علماً أن نفس الملفات تفتح على كمبيوتر ثاني 2016

شكرا لكم أنا عندي الكود أعلاه على الورقة 2 -اسمها transaction - والورقة 1 Stock2021-2022 أسندتها للمعرف fo وهي المحمية والتي أريد فتحها بالكود كما كتبتم فكيف أفعل؟ Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("Stock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "Sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub

سلام اخوتي كيف يمكن حماية cells من التعديل اليدوي مع امكانية التعديل الاوتوماتيكالي

أرفق لكم الطريقة كود وملف لمن أراد أن يستفيد لاحقاً وشكرا للجميع. Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("OldStock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range ("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub QuckSolution-1-.xlsm

المطلوب هو كالتالي: الورقة transaction تحتوي على معلومات البضائع من الورقة old transaction المطلوب نقل الكمية NewStock من ورقة الTransaction إلى ورقة الـOld transaction عامود E -Quantity in Stock- عند كل سطر وحركة بيع Sale أو إرجاع Retrieval جديدة مرفق الملف الأصلي دون كود .. شكرا سلفا test-0-fr-a.xlsm