• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hücreleri temizleme

Sub dene()
On Error Resume Next
Application.Workbooks("ilgili çalışma adını yazın").Sheets("Silinecek sayfa adını yazın").Range("A5:A85").SpecialCells(xlCellTypeConstants).EntireRow.ClearContents
End Sub

sayfada bir commandbutton oluşturun ve yukarıdaki kodu butona atayın
 
Aşağıdaki gibi deneyin.

[a5:a85].clearcontents
 
teşekkkür

leventm harikasın kardeş.
 
Geri
Üst