Hücrelerin içeriğini ve açıklamalarını temizleme.

[sinan05]

Merhabalar. Aşağıdaki kodlarla belirlenen aralıkların hem içeriğini hemde açıklamalarını temizlemek istiyorum fakat hata veriyor. Bu iki işlemi aynı anda yapacak kodlar varmı.

Worksheets("Sayfa1").Range("a3:L65536").ClearContents ,ClearComments

 

[Muzaffer Ali]

Merhaba.

aşağıdaki kodu kullanabilirsiniz.

Worksheets("Sayfa1").Range("a3:L65536").Clear

 

[alicimri]

Kolay gelsin

  Range("a3:L65536").SpecialCells(xlCellTypeComments).Select
    Selection.ClearContents
    Selection.ClearComments

 

[sinan05]

Dalgalikur ve Alicimri hocalarım çok teşekkür ederim sağolun eksik olmayın ilgi alakanızdan ötürü.
Worksheets("Sayfa1").Range("a3:L65536").
Selection.ClearContents
Selection.ClearComments bende böyle denemiştim, sizlere yaklaşmışım.
Hocam sizlerden çok şey öğreniyorum eksik olmayınız. Yardımlarınıza çok teşekkür ederim.
Alicimri Hocam bir önceki konuda yazmış olduğunuz şu kodlar;
Worksheets("VERİLER").Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Worksheets("VERİLER").Range("a2:k2000").Replace What:="A", Replacement:="", LookAt:=xlWhole
elle değer girince çalışıyor. Fakat hücreler başvuru içerdiği için çalışmıyor bubun bir çözümü olabilirmi.