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

نجوم المشاركات

  1. طارق محمود

    طارق محمود

    أوفيسنا


    • نقاط

      1

    • Posts

      4,533


  2. يحيى حسين

    يحيى حسين

    المشرفين السابقين


    • نقاط

      1

    • Posts

      2,148


  3. عبدالله المجرب

    • نقاط

      1

    • Posts

      5,409


Popular Content

Showing content with the highest reputation on 10 ديس, 2011 in all areas

  1. 1 point
  2. السلام عليكم تفضل المرفق وبه المطلوب وبه أيضا تعديل طفيف في العمود المساعد Helping Column ليتعرف أوتوماتيك علي نصف الشهر (الأول أو الثاني) وكذلك ألغيت عمود الشهور ، حيث يوجد خاصية بالجداول المحورية pivot tables تستطيع من خلالها تجميع البيانات (شهري - سنوي - أو أي من الخيارات الموجودة) المرفق علي الرابط ==== تم إضافة المرفق الى المشاركة suppliers required_3Tareq.rar
    1 point
  3. السلام عليكم و رحمة الله أخي جرب هذا الكود Sub FromAllSheets() Dim ws As Worksheet, Dws As Worksheet, LR As Long Set Dws = Sheets("Form") For Each ws In Sheets If ws.Name <> "Form" Then LR = Dws.Range("D" & Rows.Count).End(xlUp).Row + 1 If WorksheetFunction.CountA(ws.Range("b2:b" & LR)) <> 0 Then ws.Range("A2:C" & ws.Range("b" & Rows.Count).End(xlUp).Row).Copy Dws.Range("b" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False End If End If Next ws Application.CutCopyMode = False Dws.Range("B" & LR).Select End Sub
    1 point
×
×
  • اضف...

Important Information