مساعده في كود

[moomen1999]

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

 الاخوه الافاضل انا مش فاهم اوي في الفي بي ايه بس مجمع كود  وفاضل خطوه اني عايز امسح البلانكات من شيت معين  بعد م الكود بيعملو ومش عارف انفذ الخطوه المشكله انا ملونها بي اللون الاحمر

 

[مهند محسن]

من فضلك لابد من رفع الملف نفسه حتى تتمكن الأساتذة من مساعدتك ... فلايمكن المساعدة بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

[moomen1999]

TTESTT.xlsmيتم ارفاق الملف مع الكود 

اريد التعدسل علي الكود مع ازاله السطور الفارغه من شيت معين قبل استخراجه

[moomen1999]

او ممكن التعديل في الشيت الحالي بناي علي الاسم بحيث انسخ الي موجود في الشيت بيست فاليو  وبعد النسخ في نفس المكان ازاله الصفوف الفاراغه في نطاق معين بناء علي اسم الشيت  

[moomen1999]

هل من مساعده