Makro önce sayfayı temizlesin

[Hakan ERDOST]

Aşağıdaki Makro ile veri aktarıyorum.Ancak aktarırken her aktarımda sayfaı temizleyerek aktarması için kodda ne gibi değişiklik yapmalıyım.

Option Explicit
Sub DERS_DAĞILIMINI_AKTAR_2()
    Dim X1 As Integer, X2 As Integer, X3 As Integer
    Dim GÜN As String, BUL As Range
    
    Application.ScreenUpdating = False
    
       
    For X1 = 3 To Sayfa5.Cells(Rows.Count, "c").End(3).Row
If Rows(X1).Hidden = True Then GoTo 10
    If Sayfa5.Cells(X1, 10) <> 0 Then Sayfa6.Cells(X1, 1) = Sayfa5.Cells(X1, 3) Else GoTo 100:
    Sayfa6.Cells(X1, 2) = Sayfa5.Cells(X1, 10)
    
    
            For X3 = 18 To 50
                        
                        Sayfa6.Cells(X1, X3 - 15) = Sayfa5.Cells(X1, X3)
                  
            Next
100:
10:
        Next
        
Sayfa6.[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
 
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Levent Menteşoğlu]

Kodlarınızın en başına aşağıdaki gibi bir satır ekleyin.

sayfa5.range(aralığı yazın).clearcontents

 

[Hakan ERDOST]

Koda uyarlar mısınız Üstad?

 

[Levent Menteşoğlu]

Koda uyarlar mısınız Üstad?

Silinecek aralığı siz biliyorsunuz. Yapmanız gereken sayfa adını ve silinecek aralığı tanımlayıp sonuna .clearcontents komutunu eklemektir.

sheets("sayfaadı").range("silinecek aralık").clearcontents