korumalı hücreler dışındaki hücre içerikleri nasıl silinebilir?

[metinak]

Merhaba arkadaşlar,

hazırladığım tablo içerisinde korumalı ve korumasız hücrelr var. makro ile sadece korumasız olan hücreleri silmek istiyorum.

range("A1:F20").select
selection.value=""

şeklinde oluyor fakat kilitli ve formül içeren hücrelerdeki değerler en son hali ile kalıyor.

range("A1:F20").select
selection.clearcontents

de ise makro çalışmıyor. Önerilerinizi bekliyorum.

formül ve text içeren hücreler dışındaki sadece sayısal veri ieçeren hücrelerin silinmesini sağlayan bir makro da işimi görebilir.

 

[mehmett]

Aşağıdaki makroyu deneyin.

Sub Makro1()
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

 

[metinak]

Aşağıdaki makroyu deneyin.

Sub Makro1()
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

maalesef hücreler kilitli iken çalışmıyor. yinede sağol

 

[mehmett]

Sayfayı şifresiz korumaya alın ve makroyu bir de şöyle deneyin.

Sub Makro1()
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveSheet.Protect
End Sub

 

[metinak]

Sayfayı şifresiz korumaya alın ve makroyu bir de şöyle deneyin.

Sub Makro1()
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveSheet.Protect
End Sub

Teşekkürler, formül içeren hücrelerdeki formüller silinmedi, aynı olay text içeren hücrelerdede uygulanabilir mi?
xlCellTypeConstants, 23 açıklamasınıda yapabilirsen eğitici olacaktır.

 

[metinak]

Teşekkürler, formül içeren hücrelerdeki formüller silinmedi, aynı olay text içeren hücrelerdede uygulanabilir mi?
xlCellTypeConstants, 23 açıklamasınıda yapabilirsen eğitici olacaktır.

23 değerini 25 yapınca text ve formül içeren hücreler dışında sayısal veri içeren hücreler temizleniyor.

zorda kalınca insan neler yapabiliyor )