moomen1999 قام بنشر يناير 14, 2022 مشاركة قام بنشر يناير 14, 2022 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 الاخوه الافاضل انا مش فاهم اوي في الفي بي ايه بس مجمع كود وفاضل خطوه اني عايز امسح البلانكات من شيت معين بعد م الكود بيعملو ومش عارف انفذ الخطوه المشكله انا ملونها بي اللون الاحمر رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 14, 2022 مشاركة قام بنشر يناير 14, 2022 من فضلك لابد من رفع الملف نفسه حتى تتمكن الأساتذة من مساعدتك ... فلايمكن المساعدة بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!! 1 رابط هذا التعليق شارك More sharing options...
moomen1999 قام بنشر يناير 14, 2022 الكاتب مشاركة قام بنشر يناير 14, 2022 TTESTT.xlsmيتم ارفاق الملف مع الكود اريد التعدسل علي الكود مع ازاله السطور الفارغه من شيت معين قبل استخراجه رابط هذا التعليق شارك More sharing options...
moomen1999 قام بنشر يناير 15, 2022 الكاتب مشاركة قام بنشر يناير 15, 2022 او ممكن التعديل في الشيت الحالي بناي علي الاسم بحيث انسخ الي موجود في الشيت بيست فاليو وبعد النسخ في نفس المكان ازاله الصفوف الفاراغه في نطاق معين بناء علي اسم الشيت رابط هذا التعليق شارك More sharing options...
moomen1999 قام بنشر يناير 15, 2022 الكاتب مشاركة قام بنشر يناير 15, 2022 هل من مساعده رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان