مسح البيانات من الخلية في الشيت

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة 

اخواني ارفق لكم الكود مع الملف و ارجوا مساعدتي في حلها لانها لا تعمل 

و شكرا لكم

 
 Private Sub CommandButton2_Click()
   Dim wsSource As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet4")
    wsSource.Range("B3, D4, D5, D6, C54, C57:C59, B61, C11:C17, E11:E17, G11:G17, C21:C27, E21:E27, G21:G27, B37:B43, B47:B51, G47:G51, C31:C34, G31:G34").ClearContents
End Sub

 

محضر الاجتماع.xlsm

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اليك التعديل حيث الكود يتعامل مع الخلايا المدمجة 

Private Sub CommandButton2_Click()
    On Error GoTo ErrorHandler
    Dim wsSource As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet4")
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    With wsSource
         .Range("B3:G3").ClearContents
        .Range("G4:G6").ClearContents
        .Range("D4:E6").ClearContents
        .Range("C11:G17").ClearContents
        .Range("C21:G27").ClearContents
        .Range("C31:G34").ClearContents
        .Range("B37:G43").ClearContents
        .Range("B47:G51").ClearContents
        .Range("C54:G54").ClearContents
        .Range("C57:G59").ClearContents
        .Range("B61:G68").ClearContents
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Exit Sub
ErrorHandler:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "حدث خطأ: " & Err.Description
End Sub

 

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة 

عبدالله بشير عبدالله

جزاك الله خير الجزاء  تم التجربة و ممتاز 

ارفق لكم البرنامج بعد التعديل لمن يريد الاستفادة منه

محضر الاجتماع.xlsm

تم تعديل الجمعة at 08:12 بواسطه husain alhammadi