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

حراثي تواتي

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه حراثي تواتي

  1. السلام عليكم ايها الكرام الافاضل في ارجاء منتدانا الغالي

    لدي مشكل بسيط هو عندي ترحيل البيانات من التيكست بوكس الى الشيت يختل التنسيق وتنزل النقاط الى السطر الموالي .

    كما هو موضح بالصورة

    اين المشكل ؟؟

    احتاج الحل ضروري وبارك الله فيكم اخواني

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

    2021-01-22_150039.png

    تواتي 50.xlsm

  2. شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة

    بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل

    ان تفضلتم بادخال تعديلات على الكود حتى يعمل كما اريد وشكرا مسبقا

    وجدت هذا الكود لكنه يتحقق من البيانات في عمود الاسم فقط

    lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value)
    If lr >= 1 Then
    MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"

    254.png

  3. السلام عليكم ورحمة الله وبركاته

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

    وشكرا مسبقا

     

    223.png

    عدم السماح بترحيل البيانات.xlsm

  4. شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( 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

     

  5. السلام عليكم ورحمة الله وبركاته

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

    حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه

    الملفان مرفقان

    2020-06-15_153024.png

    touati.rar

  6. السلام عليكم ورحمة الله وبركاته

    احتاج تصحيح هذا الكود بحيث اذا استردت صورة بامتداد لا يقبله البرنامج تاتيني رسالة " غير امتداد الصورة الى jpeg "

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

    الملف مرفق وشكرا مسبقا

    2020-06-12_105145.jpg

    اوفيسنا.xlsm

  7. السلام عليكم ورحمة الله

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

    وشكرا مسبقا

    ملاحظة : اضفت هذه الاداة MSCOMCT2 وبقي نفس المشكل

    2020-06-11_142650.png

  8. السلام عليكم ورحمة الله

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

    ارجوا منكم مساعدتي في حل هذا المشكل

    وشكرا مسبقا

    رفعت لكم كل الملفات التي عملت عليها

    touati.rar

×
×
  • اضف...

Important Information