عربي مسلم

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

السلام عليكم عندي ملف إكسل أريد نقل بيانات من المعطيات إلى جدول الإرسال، حسب رقم جدول الإرسال. العملية تتم بنجاح ما عدا الترتيب التصاعدي لا يتم وفق رقم الفاتورة كما هو موضح في الملف و شكراً شكراً شكراً جزيلا BORDEREAU FACILE.xlsx

إن شاء الله يكون المطلوب واضح

السلام عليكم ورحمة الله وبركاته من فضلكم عندي ملف إكسل فيه داتا 1 و داتا 2. الداتا الأولى تمثل ما سيتم فوترته خلال العام بالتقريب، أما الداتا الثانية ففيها ما تم إنجازه كليا أو جزئيا، و أنا حاولت أن أكمل بواسطة معادلة البحث العمودي لإكمال و ملأ الداتا الثانية بدلالة التطابق بينها و الأولى، لكن لم تتم، لذلك أطلب مساعدة أعضاء هذا الفريق، مع الشكر و التقدير Suivi Attachemets et Factures Gardiennage 2022.ERP.xlsb

جزاك الله خيرا و بارك فيك عبدللرحيم,شكرا جزيييلا على تفاعلك و ردك الجميل ذي الذوق الأصيل أنك أرفقته بملف أرسلته أنا قبل مدة,فهدا شيء رائع من قبلك,بارك الله فيك. الكود الذي أحتاجه لا يطبع إلا من الزر و فقط لا من إختصار طباعة أو غيره,و الحمد لله وجدت الحل بالتحايل و الحيلة لتجاوز كود المنع, و دونك الكود فلعل أحدا من أعضاء هذا الجمع الكريم في هذا المنتدى المميز أن يجد فيه ضالة ينشدها.و الشكر موصول للأخ المميز أبو عائشة حسونة hassona229. يوضع هذا الكود في thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Range("B200").Value = "" Then MsgBox "Rappel... Passez par un bouton Imprission" Cancel = True Else Cancel = False End If End Sub يوضع هذا الكود في module Sub Imprission() Dim r As Range Set r = ActiveSheet.UsedRange ActiveSheet.Range("B200").Value = "1" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TEST, openafterpublish:=True ActiveSheet.Range("af5").Value = "" With ActiveSheet.PageSetup If r.Width > 595.3 Then .Orientation = xlPortrait Else .Orientation = xlPortrait End If End With ActiveSheet.PrintOut Copies:=1 ActiveSheet.Range("B200").Value = "" End Sub

السلام عليكم إخواني الكرام عندي كود طباعة شغال 10/10 بواسطة زر أي بوتون هذا هو الكود, في الشيت رقم 3 sheet Sub Imprission() Dim r As Range Set r = ActiveSheet.UsedRange ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TEST, openafterpublish:=True With ActiveSheet.PageSetup If r.Width > 595.3 Then .Orientation = xlPortrait Else .Orientation = xlPortrait End If End With ActiveSheet.PrintOut Copies:=1 End Sub حاولت أن أجعل هذا الكود هو مفتاح الطباعة الوحيد فبحثت عن كود لألغي به الطباعة من دونه، فوجدت كود، لكنه للأسف يمنع الطباعة بشكل كلي، هذا الكود جعلته في الووركبوك thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "Rappel... Passez par un bouton IMPRIMER" Cancel = True End Sub و بارك الله في الجميع

السلام عليكم عندي قائمة منسدلة لأربعة عملاء لكل منهم لوقوlogo خاص به استعملت طريقتين لإظهار صورة اللوقو بإسم العميل في القائمة المنسدلة في نفس الورقة، شيت 3,أيضا نقلت الصور لورقة أخرى و جربت مع المعادلة آندراكت، رغم هذا لم تنجح معي، فهل فيه حل بارك الله فيكم Doc1EXPLICQ.docx

شكرا جزيلا أخي الحبيب حسونةhassona229 إن شاء الله تكون اطلعت على مشكل الحماية الذي أرسلته

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

جزاك الله خيرا أخي حسونة حسين أبو عائشة رقية و محمد hassona229 PROTECTION1.rar

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

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

hassona229 بارك الله فيك، هل رأيت الصور التي أرسلتها أخي الغالي و الملاحظات الأخرى. الملف لما يكون محمي لا يمكن إضافة أي سطر جديد، فكيف أضيف أسطر من 161 إلى 164 هل فيه طريقة أخرى، لم أعرف و لم تنجح معي حتى مع إزالة الحماية للتجربة. كذلك عند تحديد أكثر من خلية و كتابة P أو رمز آخر حسب القائمة المنسدلة لكل خلية يظهر أن هناك خطأ في الكود لم أهتدي أنا لحله. بارك الله فيك اخي العزيز و جزاك الله خيراً. 🖊🌹💐

hassona229 بارك الله فيك، هل رأيت الصور التي أرسلتها أخي الغالي و الملاحظات الأخرى. الملف لما يكون محمي لا يمكن إضافة أي سطر جديد، فكيف أضيف أسطر من 161 إلى 164 هل فيه طريقة أخرى، لم أعرف و لم تنجح معي حتى مع إزالة الحماية للتجربة. كذلك عند تحديد أكثر من خلية و كتابة P أو رمز آخر حسب القائمة المنسدلة لكل خلية يظهر أن هناك خطأ في الكود لم أهتدي أنا لحله. بارك الله فيك اخي العزيز و جزاك الله خيراً. 🖊🌹💐

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