ياسر خليل أبو البراء

أخي الفاضل عبد الله يرجى إرفاق ملف لتسهيل الأمر على من يريد تقديم المساعدة .. وارفق بالملف في عمود آخر شكل النتائج المتوقعة والمنطق المتبع في المسألة تقبل تحياتي

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

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

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

وبردو دي سهلة جداً وفيه بدل الطرق أكثر من طريقة هات لي أجدعها ملف محمي بباسورد وأنا أفك لك حمايته !!

يا سلاااااااااام عليك يا أخي سليم على أساس إنه مش هيقدر يفهم الكود ..نفس المشكلة ..حتى لو لم يقم بحذف الخلية XFD1 .. هيلغي سطر الطباعة وبس If Sheets("sheet1").Range("xfd1").Value = "D'ont print" Then Cancel = True لو شال دا ايه اللي هيحصل !! .. حتى لو لم يقترب من الخلية XFD1 .. أعتقد أن اي حل بالأكواد لن يحل المشكلة بشكل نهائي ..!! لأن الأكواد قابلة دائماً للكسر وللتدمير أو على الأقل قابلة لأن تكون غير قابلة للتنفيذ إذا لم يمكن الماكرو ..!

كيف لا تجدي نفعاً مع الملف الذي يحتوي على ماكرو .. الملف المرفق في الموضوع الذي اختفى كان بامتداد xlsm .. ومطبقة عليه الطريقة ..حاول مرة أخرى لربما أخطأ في الخطوات فقط

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

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

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

أخي الكريم أبو حماده إليك كود الأخ الحبيب عبد العزيز البسكري بعد تنسيقه فقط (لسهولة الإطلاع عليه) يرجى مراعاة عملية التنسيق للأكواد المقدمة ليسهل التعامل معها Private Sub UserForm_Initialize() Dim Ws As Object Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Dim Cel As Range Set Ws = ThisWorkbook.Sheets(1) Set sDic = CreateObject("Scripting.Dictionary") With Ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys For Each Cel In Range("B2:B100") ComboBox2 = Cel If ComboBox2.ListIndex = -1 And Cel <> "" Then ComboBox2.AddItem Cel Next Cel For Each Cel In Range("C2:C100") ComboBox3 = Cel If ComboBox3.ListIndex = -1 And Cel <> "" Then ComboBox3.AddItem Cel Next Cel End Sub يوضع الكود في حدث الفورم ..طبق بنفسك ولا تعتمد على الملفات المرفقة أخي العزيز أبو حماده تقبلوا تحياتي

طيب لو حد عنده فكرة بالأكواد ، وعرف الكود المسئول عن إلغاء الطباعة .. هيروح للكود ويعمل عليه Comment أو يحذفه ويطبع ..! وانتهت المشكلة بالنسبة له عايزين حل ملوش حل .. يلا شدوا حيلكم أنا معنديش طريقة لكن بحاول أفكر في طريقة .. وللأسف مش هلاقي لأن لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه كل طرق الحماية .. للأسف مآلها إلى الكسر

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

أخي الحبيب صلاح أنا بقالي يومين بحاول أشوف الموضوع فين .. يظهر العفاريت عملوها فينا وأخفوا الموضوع عموماً كنت قد طلبت الطريقة ووجب علي أن أقدمها لك خصوصاً بعد انتظار أسبوع الموضوع والحل الذي لدي في قمة البساطة والسهولة .. وأنا خايف تشتم بعد ما تعرف الطريقة (فعايز وعد منك من غير شتيمة) الحل بدون أكواد على الإطلاق المصنف اللي فيه الصور المراد استخراجها غير امتداده من xlsm إلى zip .. وروح اعمل كليك يمين عليه واعمل Extract أي استخراج للملفات .. هيطلع لك من ضمن المستخرج مجلد اسمه Media ودا جواه الصور بنفس التنسيق ونفس الحجم تماماً وسلم لي على التروماي .. ومش عاااااااااااااايز شتيمة تقبل وافر تقديري واحترامي

أخي الكريم تم استيراد الموديول وحفظت المصنف عندي وأغلقته وفتحته مرة أخرى ولا توجد تلك المشكلة الغريبة قد تكون المشكلة إما في المصنف الذي تعمل عليه أو في نسخة الأوفيس نفسها إليك الملف المرفق التالي فيه الموديول الذي قمت بإرفاقه ويعمل الملف بشكل جيد .. ولا تحذف الأكواد في المصنف الذي يحتويه جرب المرفق وشوف هل المشكلة ما زالت مستمرة أم لا ...؟ تقبل تحياتي NoToTxt Spell Numbers UDF Function.rar

أخي الكريم الجموعي يرجى وضع الحل المقدم في موضوعك ها هنا لتعم الفائدة ويسهل على الباحث فيما بعد ان يجد بغيته في البحث ..

إن شاء الله ننتظر منك تقديم موضوع تعليمي تقوم فيه بتقديم معلومة للأعضاء بأسلوبك الجميل .. لا تحرمنا من هذا العلم الغزير .. بارك الله فيك وجزاكم الله كل خير

إن شاء الله إذا تيسر لي الوقت سأقوم بالعمل عليه إلا إذا تدخل أحد الأخوة الأعضاء تقبل تحياتي

بارك الله فيك أخي الغالي الجموعي وعوداً حميداً والله اشتقت لأعمالك الرائعة .. ننتظر منك موضوع جديد كهدية بمناسبة رجوعك للمنتدى تقبل تحياتي

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

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

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

حاول تطبق الخطوات اللي قلت لك عليها وابدأ من جديد .. ونصب نسخة أوفيس 2016 ..بعد تنصيب الويندوز لا أعلم إذا كان الملف فيروس أم لا ..يمكن فحص الملف بموقع Virus Total أو تحميل البرنامج الذي أرفقت لك رابطه وفحص الملفات لديك

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

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