كود لتفريغ بيانات الخانة

[ُeslam7osama]

ارجو المساعدة بكود لتفريغ بيانات خانة بعد كل عملية بحث

[Ali Mohamed Ali]

أهلا ومرحبا بك اخى الكريم فى منتدانا الكبير

من الأفضل أن ترسل ملف وتشرح فيه ما تريد

ممكن تتبع هذا الفيديو فهو لحذف جميع محتويات الخلايا ماعدا المعادلات ,الإبقاء عليها

وهذا ملف أخر به كود يقوم بمسح محتويات صف  بشرط كتابة رقم الإذن مثلا فى الخلية A1 فى صفحة Sheet 1

ثم الضغط على ابحث وامسح

وأيضا اتبع هذا الموقع

http://et3lmonline.com/2010/08/delete-and-clear-tools-ms-excel/

وهذا كود اخر

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then    
Application.ScreenUpdating = False   
  Sheet1.Range("B1:I2880").ClearContents   
  With Sheet2.Range("C8:AA40")   
      .Value = .Value  
   End With  
   Me.Save
    Application.ScreenUpdating = True
End If

End Sub

وهذا أخر

Sub sbClearCellsOnlyData()
Range("A1:C10").ClearContents
End Sub
وهذا كود أخير
Sub sbClearEntireSheet()
Sheets("SheetName").Cells.Clear
End Sub

بارك الله فيك وجزيت خيرا

كود حذف محتويات صف بشرط.xls