Seçili Alanın Temizlenmesi

[Ergün GÖKER]

hayırlı geceler. Öncelikle yapmak istediğim belirlediğim alan içerisine yazılmış yazı veya seçilen alan içerisine yerleştirilen bir nesnenin TEMİZLE butonu ile temizlenmesini istiyorum ilgilenenlere şimdiden teşekkür ediyorum

 

[Korhan Ayhan]

Deneyiniz...

Private Sub CommandButton1_Click()
    Dim Alan As Range, Nesne As Object
    Application.ScreenUpdating = False
    Set Alan = Range("C7:V36")
    Alan.ClearContents
    For Each Nesne In ActiveSheet.Shapes
        If Not Intersect(Nesne.TopLeftCell, Alan) Is Nothing Then
            Nesne.Delete
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Ergün GÖKER]

Hocam merhaba, Teşekkür ederim çok sağolun. İşime çok yaradı.