ahmedadekabdulkader

Sub AAD_ASD() Dim R As Integer, M As Integer, N As Integer, O As Integer, p As Integer, Q As Integer, S As Integer, T As Integer Sheets("ßåÑÈÇÁ").Range("A4:DZ1000").ClearContents Sheets("ãíßÇäíßÇ").Range("A4:DZ1000").ClearContents Sheets("äÌÇÑÉ ÃËÇË").Range("A4:DZ1000").ClearContents Sheets("ÒÎÑÝÉ").Range("A4:DZ1000").ClearContents Sheets("ÕÍí").Range("A4:DZ1000").ClearContents Sheets("ÅäÔÇÁÇÊ").Range("A4:DZ1000").ClearContents Sheets("äÊÔØíÈÇÊ").Range("A4:DZ1000").ClearContents M = 4: N = 4: O = 4: p = 4: Q = 4: S = 4: T = 4 Application.ScreenUpdating = False For R = 4 To 1000 If Cells(R, 4) = "ßåÑÈÇÁ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ßåÑÈÇÁ").Range("A" & M).PasteSpecial xlPasteValues Sheets("ßåÑÈÇÁ").Range("A" & M).PasteSpecial xlPasteFormats Application.CutCopyMode = False M = M + 1 ElseIf Cells(R, 4) = "ãíßÇäíßÇ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ãíßÇäíßÇ").Range("A" & N).PasteSpecial xlPasteValues Sheets("ãíßÇäíßÇ").Range("A" & N).PasteSpecial xlPasteFormats Application.CutCopyMode = False N = N + 1 ElseIf Cells(R, 4) = "äÌÇÑÉ ÃËÇË" Then Range("A" & R).Resize(1, 115).Copy Sheets("äÌÇÑÉ ÃËÇË").Range("A" & O).PasteSpecial xlPasteValues Sheets("äÌÇÑÉ ÃËÇË").Range("A" & O).PasteSpecial xlPasteFormats Application.CutCopyMode = False O = O + 1 ElseIf Cells(R, 4) = "ÒÎÑÝÉ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ÒÎÑÝÉ").Range("A" & p).PasteSpecial xlPasteValues Application.CutCopyMode = False p = p + 1 If Cells(R, 4) = "ÕÍíÁ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ÕÍíÁ").Range("A" & Q).PasteSpecial xlPasteValues Sheets("ÕÍí").Range("A" & Q).PasteSpecial xlPasteFormats Application.CutCopyMode = False Q = Q + 1 If Cells(R, 4) = "ÅäÔÇÁÇÊ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ÅäÔÇÁÇÊ").Range("A" & S).PasteSpecial xlPasteValues Sheets("ÅäÔÇÁÇÊ").Range("A" & S).PasteSpecial xlPasteFormats Application.CutCopyMode = False S = S + 1 If Cells(R, 4) = "ÊÔØíÈÇÊ" Then Range("A" & R).Resize(1, 115).Copy Sheets("ÊÔØíÈÇÊ").Range("A" & T).PasteSpecial xlPasteValues Sheets("ÊÔØíÈÇÊ").Range("A" & T).PasteSpecial xlPasteFormats Application.CutCopyMode = False T = T + 1 End If Next MsgBox ("ÇáÍãÏ ááå ÊÜÜÜã ÊÑÍíá ÇáäÇÌÍíä æ ÇáÑÇÓíÓä Åáì ÃæÑÇÞ Úãá ÌÏíÏÉ ") Application.ScreenUpdating = True End Sub