حراثي تواتي

عدم السماح بتكرار.xlsx

شكرا أستاذي سليم حاصبيا لكن النص متغير في التيكست بوكس وليس ثابتا والذي عرضته هو مثال فقط ممكن يكون نص آخر في التيكست بوكس

اريد نفس التنسيق الموجود في التيكست بوكس هو نفسه على الخلية دون ادراج اسطر فارغة

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

شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل ان تفضلتم بادخال تعديلات على الكود حتى يعمل كما اريد وشكرا مسبقا وجدت هذا الكود لكنه يتحقق من البيانات في عمود الاسم فقط lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value) If lr >= 1 Then MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"

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

السلام عليكم اساتذتنا الكرام اريد مساعدة في دالة لترتيب 5 مدن الاولى في الجدول استنادا الى معيار اكبر مجموع وشكرا مسبقا تواتي 41.xlsx

بارك الله فيك استاذنا الرائد77 والاستاذ الفاضلabouelhassan

السلام عليكم ورحمة الله اريد مساعدة في كود للانتقال من الورقة 1 الى الورقة 3 صحة 2 وشكرا مسبقا تواتي 40.xlsx

شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( touati1 ) وشكرا لكم مسبقا Sub Test() Dim file_name As Variant Dim open_wk As Workbook On Error GoTo 1 file_name = Application.GetOpenFilename(Title:="ÇÎÊÇÑ ãáÝ ÇáÇßÓíá", FileFilter:="Excel Files *.xlsx (*.xlsx),") If file_name = False Then 1 MsgBox "ÚÝæÇ ÊÓãíÉ ÇáãáÝ ÛíÑ ÕÍíÍÉ", vbCritical Exit Sub Else Set open_wk = Workbooks.Open(file_name) End If Windows("touati1.xlsx").Activate Sheets("æÑÞÉ1").Select Range("a2:d15").Select Selection.Copy ThisWorkbook.Activate Sheets("sheet1").Select Range("b2").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub

تفضل a.kawkab : بعد فك الضغط عن الملف ضعه على سطح المكتب وافتح الملف touati2 touati.rar

السلام عليكم ورحمة الله وبركاته اساتذتنا الافاضل ارجوا مساعدتي في كود لاستراد البيانات من نطاق محدد من ملف خارجي آخر الى الملف المفتوح في نطاق محدد حسب الصورة حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه الملفان مرفقان touati.rar

بوركت يا بطل الرائد77 جزاك الله خيرا واثقل بها ميزان حسناتك

السلام عليكم ورحمة الله وبركاته ارجوا من اساتذتنا الافاضل مساعدتي في اظهار رقم صفر ( رقم الهاتف ) في التيكست بوكس كما هو موضح في الصورة وشكرا مسبقا touati.xlsm

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

شكرا اخي فعلا الكود شغال 10/10 لكن فقط على الاوفيس 2010 انجليزي لاني عندما جربته على الاوفي 2010 نسخة فرنسية ظهر معي هذا المشكل هل لديكم حلا لهذا المشكل ؟ https://i.top4top.io/p_1624ku2ql1.png

يظهر نفس الخطأ عند استراد صورة ذات امتداد غير jpeg جرب مع مع امتداد bmp سيظهر معك الخطأ

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

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

السلام عليكم ورحمة الله ارجوا منكم اساتذتي الافاضل مساعدتي في حل هذا المشكل ، حيث ان هذا الملف يعمل عاد في الجهاز الأول وفي جهاز اخر تاتي هذه الرسالة والفرق بينهما في الاوفيس الاول انجليزي والثاني فرنسي وكلاهما 2010 وشكرا مسبقا ملاحظة : اضفت هذه الاداة MSCOMCT2 وبقي نفس المشكل

للأسف ... رغم ان هذا مهم جدا ملاحظة : عند التعديل من الفورم ثم تحفظ من الشيت وتخرج منها ، العمل يحفظ عاد اما اذا عدلنا من الفورم وخرجنا من الفورم مع الحفظ الالي ، فلا يحفظ العمل

بارك الله فيك يا بطل الرائد77 دمت ذخرا للعرب

السلام عليكم ورحمة الله حولت ملف اكسيل الى ملف تنفيذي ( exe ) المشكل انه بعد اجراء التعديلات واعادة فتح الملف التنفيذي لا يحفظ اي تعديل جديد ارجوا منكم مساعدتي في حل هذا المشكل وشكرا مسبقا رفعت لكم كل الملفات التي عملت عليها touati.rar

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

بارك الله فيك