Belli bir değerden büyükleri silmek

[uslu45]

merhabalar,
ekteki dosyamda 10milyondan büyük sayıları makro ile nasıl silebilirim. çok büyük dosyalarla çalışacağımdan hızlı makro olursa makbule geçer arkadaşlar.
şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ON_MİLYONDAN_BÜYÜKLERİ_SİL()
    Dim Hücre As Range
 
    If WorksheetFunction.CountA(Selection) = 0 Then Exit Sub
 
    Application.ScreenUpdating = False
 
    For Each Hücre In Selection.SpecialCells(xlCellTypeConstants, 23)
        If Hücre.Value > 10000000 Then Hücre.ClearContents
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[uslu45]

denedim ama olmadı ben mi beceremedim anlamadım sn korhan ayhan

 

[uslu45]

yardımlarınız rica arkadaşlar

 

[Korhan Ayhan]

Selamlar,

Kodu boş bir modüle uygulayın. İlgili sayfada silmek istediğiniz alanı seçip kodu çalıştırın.

 

[uslu45]

tamamdır hücreleri number yapınca oldu
teşekkürler...

Selamlar,

Kodu boş bir modüle uygulayın. İlgili sayfada silmek istediğiniz alanı seçip kodu çalıştırın.