moomen1999

هل من مساعده

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

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

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 الاخوه الافاضل انا مش فاهم اوي في الفي بي ايه بس مجمع كود وفاضل خطوه اني عايز امسح البلانكات من شيت معين بعد م الكود بيعملو ومش عارف انفذ الخطوه المشكله انا ملونها بي اللون الاحمر