hassannahid05

السلام عليكم إخواني الكرام لدي تعديل بسيط على الملف الذي قمت بالاشتغال عليه سابقا وأضيع الكثير من الوقت لعمله فالمرجوا منكم تقديم المساعدة حسب وقتكم هل تستطيع أن تعمل ماكرو يجعل ما في خانة "المصداقية" يكتب تلقائيا في المكان الملون بين النقطتين الكيلومتريتين أي كل طبقة لها مصداقية validation ok أو validation non تكتب أو يصير لها لينك في شيت les fichiers كما في المثال الماثل أمامكم ولكن بشكل أوتوماتيكي في جميع الخانات الملونة ولكم جزيل الشكر synoptique final1.rar

السلام عليكم أنت لم تقرأ الكود الذي وضعه لك في الملف وهذا هو وبسيط جدا لا يحتاج شرح وشكرا Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then If TargetVal = Target Then Target.Interior.ColorIndex = xlNone Target.Interior.Pattern = xlSolid End If If TargetVal > Target Then Target.Interior.ColorIndex = 3 Target.Interior.Pattern = xlSolid End If If TargetVal < Target Then Target.Interior.ColorIndex = 10 Target.Interior.Pattern = xlSolid TargetVal = vbNullString End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then TargetVal = Target End If End Sub

ولا ننسى فضلك أخي وأستاذي الكريم

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

-للرفع- تحياتي

السلام عليكم الله أكبر ،،، ما شاء الله هذا هو المطلوب بعينه ولكن أستاذي خبور لدي طلب صغير وهو يا ريت هذا الكود تعدله بشكل لا يحصر العمل أو التلوين فقط في النقطة الكيلومترية 990+0 بل يمكن أن يذهب إلى أبعد مدى وأيضا عدد الطبقات هل تستطيع أن تجعله أكتر من ذلك هل تستطيع أن تزيد من عدد الطبقات أو بالأحرى تجعلها تلقائية بحيث إظا كانت 5طبقات تمسح باقي الطبقات وإذا كانت 40 طبقة تزداد طبقتين وهكذا وهذا الملف المرفق فيه التعديلات التي أريدها أرجوا أن لا أكون ثقيلا عليك أخي الكريم Sub kh_Color_None() Dim MyRange As Range Set MyRange = &aelig;&Ntilde;&THORN;&Eacute;2.Range("B7:AP29,AZ7:CN29") MyRange.Interior.ColorIndex = xlNone End Sub لك شكري وامتناني وأعجابي أستاذي خبور زادك الله رفعة وعلماً ونورا synoptique2.rar

السلام عليكم لديك مشكل في الاكسيل نفسه لحله اذهب إلى أدوات --- خيارات --- حساب--- وأرجعه أوتوماتيكيا outil-- option ---calcul ----automatique

-للرفع- هل هذا الكود يمكن تطويره Sub colorer() Dim i%, j%, k%, r% Dim Xc, Xpk1%, Xpk2%, Xpks% r = Sheets(2).Range("Pks").Row For i = 7 To Range("B65535").End(xlUp).Offset(-1, 0).Row Xc = Cells(i, 2).Value Xpk1 = Cells(i, 6).Value Xpk2 = Cells(i, 7).Value With Sheets(2) For j = 1 To .Range("B65535").End(xlUp).Row If .Cells(j, 2).Value = Xc Then For k = 1 To .Cells(r, 255).End(xlToLeft).Column Xpks = .Cells(r, k).Value Select Case Xpks Case Xpk1 To Xpk2 .Cells(j, k).Interior.ColorIndex = 45 End Select Next k End If Next j End With Next i End Sub

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

السلام عليكم الأستاذ سالم شباني عمل جميل وبه جهد كبير فعلا أنا عاجز عن الشكر بارك الله فيك وجعله في ميزان حسناتك تحياتي

السلام عليكم أخي سالم شباني حياك الله ولا أعرف كيف أشكرك الملف رائع جدا وأنا على بينة أنك تعبت فيه ولكن بقي بعض التفصيلات البسيطة مثلا في facturation عند quantité الموجودة في الخانة E5 أريدها صفر هذا يعني أنها لن تظهر في facture الشيئ الذي لا يحصل يعني إن كان الثمن فيه صفر لا أريد أن يظهر السطر الذي يحتوي عليه بالكامل في الفاتورة ويمكن أن تفعل كود فرز أولا في facturation ثم تليه إلى facture وبهذا لن تضهر الاصفار ولا الاسطر المحتوية عليها وشكرا على سعة صدرك

هل هذا هو المطلوب Classeur1.rar

مرحبا شرح طريقة نسخ الكود من ملف اكسيل الى اخر اكسيل لمعرفة الطريقة عليك معرفة مكان الكود في الملف الأصلي أليس كذلك مكان الكود يكون في هذا المسار افتح ملفك المكوكد ثم اذهب إلىeditor visual أو اضغط على Alt+F11 اذهب إلى module ثم انسخ الكود الموجود والصقه في الملف الجديد بنفس المسار

السلام عليكم الله أكبر ،،، ما شاء الله هذا هو المطلوب بعينه ولكن أستاذي سالم شباني لدي طلب صغير وهو أنني لا أريد أن يظهر الصفر في الثمن الإجمالي يعني هل ممكن فرز الأثمنة لاتي لا تحتوي على الصفر وعند معاينتي للملف وجدت فيه بعض الأشياء أولا : عند مسح سطر أو أكثر من الفاتورة facturation لا تمسح من facture بل يحل محله السطر الأول المباشر له يعني تضهر متكررة كثيرا تانيا : عند فرز الاسطر التي يها الأصفار من facturation تبقى بارزة في facture ما أقصده بعدم ظهور الأصفار هو يعني عدم ظهور الاسطر التي بها هذه الأصفار لأنه لا يعقل أن أعطي الزبون فاتورة بها أصفار ألا تتفق معي أخي الكريم لك شكري وامتناني وأعجابي أستاذي سالم شباني زادك الله رفعة وعلماً ونورا

السلام عليكم الله أكبر ،،، ما شاء الله هذا هو المطلوب بعينه ولكن أستاذي سالم شباني لدي طلب صغير وهو أنني لا أريد أن يظهر الصفر في الثمن الإجمالي يعني هل ممكن فرز الأثمنة لاتي لا تحتوي على الصفر لك شكري وامتناني وأعجابي أستاذي سالم شباني زادك الله رفعة وعلماً ونورا

شكرا إخي الكريم سالم شباني على ردك السريع أنا من المغرب أريد الفاتورة باللغة الفرنسية وشكرا المجموع بالحروف بالفرنسية والعملة هي الدرهم والجزء هو السنتيم Dirham et le centime وشكرا جزيلا

السلام عليكم شكرا مجددا على ردك أخي الكريم احمد يعقوب في كل صفحة كم عددالأصناف لكل صفحة؟ عدد الاصنفة هو محدد بالطلبات التي يطلبها الزبون يعني قيمتها متغيرة وهذا الملف المرفق مترجم للعربية أرجو المساعدة وشكرا جزيلا facture1.rar

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

السلام عليكم إخوتي الكرام ومشرفي موقعنا المحبوب لدي مشكلة وهي مشكلة في طباعة فاتورة أرجو التثبيت وشكرا مسبقا facture.rar facture.rar

إذا كان الملف موجه للقراءة فقط فعليك فسخ هذه الخاصية بالنقر بالزر الأيمن وإزالتها

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

السلام عليكم برنامج أكسيل مميز وادك الله علما

السلام عليكم يجب عليك تأكيد الحفظ بنعم وليس ب لا

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