Private Sub CommandButton1_Click()
Dim S As Shape
Dim Path1 As String
dim blank as
Application.ScreenUpdating = False
Path1 = ActiveWorkbook.Path & "\" & Sheets("BOARD").Range("A3").Value & Format(Sheets("BOARD").Range("B1").Value, " dd-mm-yyyy ")
Sheets(Array(Sheets("BOARD").Range("B3").Value, Sheets("BOARD").Range("B4").Value)).Copy
For Each ws In ActiveWorkbook.Worksheets
With ws.UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial xlPasteFormats
For Each shp In ws.Shapes
shp.Delete
Next shp
End With
With Sheets("BOARD").Range("B3").Value
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Next ws
With ActiveWorkbook
.SaveAs Filename:=Path1
.Close
End With
Application.ScreenUpdating = False
End Sub
الاخوه الافاضل انا مش فاهم اوي في الفي بي ايه بس مجمع كود وفاضل خطوه اني عايز امسح البلانكات من شيت معين بعد م الكود بيعملو ومش عارف انفذ الخطوه المشكله انا ملونها بي اللون الاحمر
