السادة / أعضاء المنتدى المحترمين
السلام عليكم ورحمة الله
(منقول) (Compile Error Next without for) اتمنى أجد المساعدة في تصحيح الخلل في كود الملف المرفق حيث تظهر رسالة
Option Explicit
Sub test()
Dim ws As Worksheet
Dim lr As Integer
Application.ScreenUpdating = False
Sheets("البيان المجمع").Range("a4:e10000").ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "البيان المجمع" Then
If ws.Name <> "ملاحظات" Then
With ws
.Activate
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("a4:e" & lr).Copy
With Sheets("البيان المجمع")
.Range("a" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues
End With
End With
End If
Next
Sheets("البيان المجمع").Activate: Range("a1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
وشاكرا مقدما
تم ارفاق الملف112.xlsm