مسح البيانات القديمة قبل الترحيل

[أبو إلياس السوري]

السلام عليكم

 

عند متابعتي لأحد الشروحات لأحد الأخوة واجهتني مشكلة..

أريد عند ترحيل البيانات أن يمسح البيانات القديمة ويضع البيانات الجديدة مكانها

 

ترحيل حسب اسم الشيت.rar

 

[ياسر خليل أبو البراء]

الأخ الكريم أبو إلياس جرب الكود بهذا الشكل

Sub Trheel()
    Dim CL As Range, I As Integer
    
    For I = 2 To 4
        Sheets(I).Range("B2:H1000").ClearContents
        For Each CL In Range("H2:H" & [H10000].End(xlUp).Row)
            If CL.Value = Sheets(I).Name Then
                CL.Offset(0, -6).Resize(1, 7).Copy Sheets(I).Range("B" & Sheets(I).[B10000].End(xlUp).Row + 1)
            End If
        Next
    Next
End Sub

تقبل تحياتي

[أبو إلياس السوري]

بارك الله فيك جزاك خيرا عنا