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

أبو قاسم

04 عضو فضي
  • Posts

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

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

  • Days Won

    1

مشاركات المكتوبه بواسطه أبو قاسم

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

    اساتذتنا الكرام 

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

    نموذج.xlsm

  2. محتاج عند الكتابة في في العمد A إعطاء التاريخ اتوماتيك في العمود السادس وإعطاء الوقت في العمود السابع

     

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then
    
    With Target (1, 6)
    
    .Value = Format (Date, "YYYY/MM/DD")
    
    ‐---------‐-----------------------------------------
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then With Target (1, 7)
    
    .Value = Format (time, "hh: mm")
    
    End With
    
    End If
    
    On Error GoTo 0

     

  3. محتاج عند البحث اكتب الرقم المطلوب  ويكون CIN يظهر بشكل اتوماتيك او يكون البحث بالجزء من الكلمة بدون CIN طبعا هذا الكود من ابداع الاستاذ سليم حاصبيا  لة كل الشكر والتقدير

    abou_kasem.xlsm

  4. يوجد لدي ملف يقوم بنسخ البيانات فقط محتاج ليس نسخ وانما قص البيانات من صفح البيانات الى صفحة منتهي وترتيب البينات في صفحة البيانات بشكل اتوماتيك 

    تم حذف المشاركة الأخرى ورجاءاً عدم فتح مشاركات جديدة لنفس المشاركات ... والا ستحذف جميع المشاركات

    المصنف1(.xlsm

×
×
  • اضف...

Important Information