تصفير البيانات داخل هذا الملف

[ahmed elshabrawy]

اريد تصفير البيانات داخل هذا الملف المرفق للاهمية

Data_All.xlsm

[Ali Mohamed Ali]

بسيطة وذلك من خلال هذا الكود .. سيتم تفعيله من أيقونة تصفير ,,, الموجودة بالصفحة الرئيسية

Sub ResetForm_Click()
Dim ws As Worksheet
With Worksheets("الصندوق")
  .Range("C3:J40").ClearContents
  End With
 Worksheets("كشف عميل").Range("b4:c4").ClearContents
  With Worksheets("المبيعات")
  .Range("a3:g40").ClearContents
  End With
    Worksheets("كشف مورد").Range("b4:c4").ClearContents
    With Worksheets("المشتريات")
  .Range("a3:g40").ClearContents
  End With
  With Worksheets("العملاء  الموردين")
  .Range("C2:C40").ClearContents
  .Range("E2:I40").ClearContents
  End With
  With Worksheets("أصناف المبيعات")
  .Range("a3:E200").ClearContents
  End With
  With Worksheets("اصناف المشتريات")
  .Range("a3:E200").ClearContents
  End With
  With Worksheets("الأصناف")
  .Range("B3:B40").ClearContents
  .Range("D3:I40").ClearContents
  End With
  With Worksheets("الموردين")
  .Range("A4:B200").ClearContents
  End With
  With Worksheets("شيكات")
  .Range("B4:B200").ClearContents
  End With
End Sub

Data_All1.xlsm

[ahmed elshabrawy]

اخي العزيز جزاك الله خيرا علة مجهودك الرائع ولكن حين بدات تكويد الموردين ظهرت مشكلة انه لا يقوم بالتسجيل بطريقة صحيحة وعند الذهاب لصفحة الموردين لم اجد ما قمت بادخالة من شاشة الادخال

[Ali Mohamed Ali]

وذلك لأنك استخدمت الكود بعد تكويد الموردين ,, ومن فضلك لا تتأخر بالرد هكذا فكنت قد نسيت الموضوع ...فقط عليك تفعيل الكود مرة واحدة عند الطلب وذلك عندما تريد تصفير كل البرنامج وادخال بيانات حديثة وجديدة غير القديمة ... ولكم جزيل الشكر