اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

احمد محمد ماترك

02 الأعضاء
  • Posts

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

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

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

  1. 7 minutes ago, نبيل عبد الهادي said:
    
    Option Explicit
    
    Sub Dive_Last_Row()
      If ActiveSheet.Name = "الايراد" Then Exit Sub
      Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _
      ActiveSheet.Range("a4").End(4).Resize(, 3).Value
    MsgBox "تم الترحيل", vbDefaultButton1, "رسالة تنبيه "
    
    End Sub

     

    الف الف شكر اخي الكريم  بارك الله فيك

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

    اساتذتي الكرام ارجو المساعده 

    عندي ملف به عدد كبير من الشيتات واريد ان اعمل هايبر لينك لكل صفحه طبعا عندي في حدود 600 شيت يعني الموضوع متعب لو عملت صفحه صفحه فانا اريد اعمل هايبر لينك للجميع بضغط واحده  

    الملف مرفق يوضح المطلوب

    New Microsoft Excel Worksheet.rar

  3. 21 hours ago, ali mohamed ali said:

    تفضل لك ما طلبت

     

    Indirect.xlsx 12.22 kB · 7 downloads

    اخي الكريم هذا هو المطلوب فعلا وجزاكم الله كل خير ولكن عندي استفسار بسيط لو هغير اسم الشيت بدلا ماهو ارقام هخليه اسم موحد مثلا طالب 1 و طالب 2 وهكذا المعادله هتكون ازاي احط اقواس بين الاسم ولا ايه الملف مرفق اخي الكريم

    Indirect.rar

  4. 4 hours ago, سليم حاصبيا said:

    لا أفهم لماذا غيرت رأيك

    أنت من طلب اخر عملية

     

    Cap1.PNG

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

    4 hours ago, أحمد يوسف said:

    مشاركة مكررة يجب حذفها

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

    https://www.officena.net/ib/topic/89766-ارجو-المساعده-بكود-ترحيل/

     

    حاضر استاذنا الفاضل. انا رفعتها مرتين نظراا لاني محتاج هذا الشيت ضروري . 

×
×
  • اضف...

Important Information