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

السلام عليكم جرب المرفق Sort_Unique_req.rar

السلام عليكم تفضل المرفق وبه المطلوب وبه أيضا تعديل طفيف في العمود المساعد Helping Column ليتعرف أوتوماتيك علي نصف الشهر (الأول أو الثاني) وكذلك ألغيت عمود الشهور ، حيث يوجد خاصية بالجداول المحورية pivot tables تستطيع من خلالها تجميع البيانات (شهري - سنوي - أو أي من الخيارات الموجودة) المرفق علي الرابط ==== تم إضافة المرفق الى المشاركة suppliers required_3Tareq.rar

السلام عليكم و رحمة الله أخي جرب هذا الكود 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