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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله استناداً إلى الموضوع في الرابط التالي من هنا قمت بتطوير كود بحيث يمنع التكرار في العمود الأول ، وفي نفس الوقت يسمح للنسخ لخلية واحدة فقط ، أما إذا تم النسخ لأكثر من خلية فإنه يتم التراجع عن الأمر ومسح الخلايا المنسوخة ها هو الكود يوضع في حدث ورقة العمل ، ويتم التعامل مع العمود الأول Private Sub Worksheet_Change(ByVal Target As Range) Dim Cl As Variant, Dat As Variant Dim DupCtr As Double Dim LastRow As Long If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then Application.EnableEvents = False If Target.Cells.Count > 1 Then Dat = Target.Formula For Each Cl In Dat If Cl <> "" Then MsgBox "Change Only One Cell At A Time", , "Too Many Changes!" Application.Undo: Application.CutCopyMode = False GoTo Skipper End If Next Cl End If '========================================================================= LastRow = Cells(Rows.Count, "A").End(xlUp).Row DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Target.Text) If DupCtr > 1 Then MsgBox "You Have Entered A Duplicate" Target.ClearContents: Target.Activate GoTo Skipper End If End If Skipper: Application.EnableEvents = True End Sub أرجو أن يكون الموضوع مفيد لكم حمل الملف من هنا تقبلوا وافر تقديري واحترامي

بارك الله فيك أخي الكريم محمد والحمد لله أن تم المطلوب على خير ونال الكود إعجابكم تقبل تحياتي

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

أخي الكريم أسامة كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim DupCtr As Double LastRow = Cells(Rows.Count, "A").End(xlUp).Row If Not Intersect(Target, Columns(1)) Is Nothing Then DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Target.Text) If DupCtr > 1 Then MsgBox "You Have Entered A Duplicate" Target.ClearContents End If End If End Sub

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

أخي الحبيب أبو يوسف جزاكم الله خيراً على هذه الموضوعات الجديدة والمتميزة والرائعة بحق بارك الله فيك وجزاك الله كل خير .. انتظرت في الرد حتى أقوم بتجربة الأكواد المقدمة .. الكود الثاني يعمل بشكل جيد تماماً الكود الأول سليم ولا عيب به سوى شيء بسيط جداً جداً .. وهو أنه لا يقوم بإدراج صف جديد إلا بعد الضغط على TAB من لوحة المفاتيح .. وبهذا ليس له فائدة حيث أن الضغط على TAB يفعل الكود الثاني وليس الأول ..أي الإدراج في هذه الحالة يكون مرتبط بالكود الثاني المطلوب عمله لتصحيح الكود الأول وجعله يقوم بعملية الإدراج هو أن تضيف للمتغير N الرقم 1 .. بحيث يصبح السطر بهذا الشكل .ListObjects(1).Resize Range("$C$4:$E$" & n + 1) وأخيراً تقبل وافر تقديري واحترامي

أخي الكريم محمد عبد الناصر جرب الكود التالي عله يفي بالغرض حمل الكود من هنا

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

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

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

أخي العزيز أحمد الخلل أنك تقوم بحذف الأعمدة من ثم يجب أن تكون الحلقة التكرارية معكوسة أي تبدأ من العمود الأكبر للأصغر ، لأنك لو بدأت كما في مشاركتك فأنه بعد حذف عمود محدد تختلف الإشارة لبقية الأعمدة ..لذا تقوم بالعكس For i = 2 To 183 استخدم السطر التالي بدلاً من هذا السطر For i = 183 To 2 Step -1

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

أعتقد أن هناك مكتبة Reference يجب أن تضاف للملف لكي يعمل الكود .. ولا تنسنى تنصيب برنامج الأكروبات النسخة البروفيشنال اقرأ التعليقات داخل الكود Adobe Acrobat xx.0 Type Library

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

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

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

أكيد عدد الاحتمالات هيزي يعني لو اشتغلنا على الرقمين فقط وقلنا عايزين 4 خانات .. فيكون النتائج 2 ^ 4 =16 شوف إنت عايز كام خانة .. لو عايز 10 خانات من الرقمين فتكون الاحتمالات 2 ^ 10 وهكذا ..

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

كلامك صحيح .. https://support.office.com/en-us/article/TEXTJOIN-function-357b449a-ec91-49d0-80c3-0e8fc845691c دا رابط فيه شرح للدالة .. بس الغريب النسخة اللي عندي متحدثة ..!! هراجع النسخة إن شاء الله بارك الله فيك وجزاك الله كل خير

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

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

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

أخي الحبيب حسام أنا أعمل على أوفيس 2016 والدالة التي ذكرتها غير موجودة ربما تكون دالة معرفة .... بارك الله فيك وجزيت خيراً على التفاعل في الموضوع

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