اذهب الي المحتوي
أوفيسنا

حراثي تواتي

03 عضو مميز
  • Posts

    190
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو حراثي تواتي

  1. شكرا أستاذي سليم حاصبيا لكن النص متغير في التيكست بوكس وليس ثابتا والذي عرضته هو مثال فقط ممكن يكون نص آخر في التيكست بوكس
  2. اريد نفس التنسيق الموجود في التيكست بوكس هو نفسه على الخلية دون ادراج اسطر فارغة
  3. السلام عليكم ايها الكرام الافاضل في ارجاء منتدانا الغالي لدي مشكل بسيط هو عندي ترحيل البيانات من التيكست بوكس الى الشيت يختل التنسيق وتنزل النقاط الى السطر الموالي . كما هو موضح بالصورة اين المشكل ؟؟ احتاج الحل ضروري وبارك الله فيكم اخواني وان كانت هناك طريقة اخرى افيدوني بها واجركم على الله تواتي 50.xlsm
  4. شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل ان تفضلتم بادخال تعديلات على الكود حتى يعمل كما اريد وشكرا مسبقا وجدت هذا الكود لكنه يتحقق من البيانات في عمود الاسم فقط lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value) If lr >= 1 Then MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"
  5. السلام عليكم ورحمة الله وبركاته اساتذتنا الكرام فضلا وليس امرا احتاج كود لا يسمح بترحيل بيانات نفس اسم الموظف ونفس تاريخ الزيارة الى الجدول كما هو موضح في الصورة وشكرا مسبقا عدم السماح بترحيل البيانات.xlsm
  6. السلام عليكم اساتذتنا الكرام اريد مساعدة في دالة لترتيب 5 مدن الاولى في الجدول استنادا الى معيار اكبر مجموع وشكرا مسبقا تواتي 41.xlsx
  7. بارك الله فيك استاذنا الرائد77 والاستاذ الفاضلabouelhassan
  8. السلام عليكم ورحمة الله اريد مساعدة في كود للانتقال من الورقة 1 الى الورقة 3 صحة 2 وشكرا مسبقا تواتي 40.xlsx
  9. شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( 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
  10. تفضل a.kawkab : بعد فك الضغط عن الملف ضعه على سطح المكتب وافتح الملف touati2 touati.rar
  11. السلام عليكم ورحمة الله وبركاته اساتذتنا الافاضل ارجوا مساعدتي في كود لاستراد البيانات من نطاق محدد من ملف خارجي آخر الى الملف المفتوح في نطاق محدد حسب الصورة حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه الملفان مرفقان touati.rar
  12. بوركت يا بطل الرائد77 جزاك الله خيرا واثقل بها ميزان حسناتك
  13. السلام عليكم ورحمة الله وبركاته ارجوا من اساتذتنا الافاضل مساعدتي في اظهار رقم صفر ( رقم الهاتف ) في التيكست بوكس كما هو موضح في الصورة وشكرا مسبقا touati.xlsm
  14. في كل الحالات شكرا لك استاذنا بن علية حاجي شكرا جزيلا على الاهتمام ومتابعة مشكلتي
  15. شكرا اخي فعلا الكود شغال 10/10 لكن فقط على الاوفيس 2010 انجليزي لاني عندما جربته على الاوفي 2010 نسخة فرنسية ظهر معي هذا المشكل هل لديكم حلا لهذا المشكل ؟ https://i.top4top.io/p_1624ku2ql1.png
  16. يظهر نفس الخطأ عند استراد صورة ذات امتداد غير jpeg جرب مع مع امتداد bmp سيظهر معك الخطأ
  17. السلام عليكم ورحمة الله وبركاته احتاج تصحيح هذا الكود بحيث اذا استردت صورة بامتداد لا يقبله البرنامج تاتيني رسالة " غير امتداد الصورة الى jpeg " لانه الان تاتيني رسالة خطأ في الكود اذا جلبت صورة غير jpeg الملف مرفق وشكرا مسبقا اوفيسنا.xlsm
  18. بعد بحث طويل تحصلت على هذا الحل واردت ان اشارك به اخواني ممن وقعت له نفس المشكلة اضبط هذه الاعدادات كما في الصورة المهم نجحت معي الطريقة والملف يشتغل 10/10
  19. السلام عليكم ورحمة الله ارجوا منكم اساتذتي الافاضل مساعدتي في حل هذا المشكل ، حيث ان هذا الملف يعمل عاد في الجهاز الأول وفي جهاز اخر تاتي هذه الرسالة والفرق بينهما في الاوفيس الاول انجليزي والثاني فرنسي وكلاهما 2010 وشكرا مسبقا ملاحظة : اضفت هذه الاداة MSCOMCT2 وبقي نفس المشكل
  20. للأسف ... رغم ان هذا مهم جدا ملاحظة : عند التعديل من الفورم ثم تحفظ من الشيت وتخرج منها ، العمل يحفظ عاد اما اذا عدلنا من الفورم وخرجنا من الفورم مع الحفظ الالي ، فلا يحفظ العمل
  21. السلام عليكم ورحمة الله حولت ملف اكسيل الى ملف تنفيذي ( exe ) المشكل انه بعد اجراء التعديلات واعادة فتح الملف التنفيذي لا يحفظ اي تعديل جديد ارجوا منكم مساعدتي في حل هذا المشكل وشكرا مسبقا رفعت لكم كل الملفات التي عملت عليها touati.rar
  22. السلام عليكم ورحمة الله بعد غلق الفورم وفتح الشيت لا استطيع الكتابة في اي خلية رغم انها غير محمية الا بعد الضغط على زر التوقف في محرر الاكواد كما هو موضح في الصورة اين المشكل ؟؟ وشكرا مسبقا
×
×
  • اضف...

Important Information