Sayfada sayı silme

[sellami2005]

Merhaba arkadaşlar. Forumda arama yaptım "sayı silme" diye ama bulamadım. çok büyük bir sayfam var. Burada 42 den küçük sayıları silmek istiyorum. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

1. Kod sadece sabit sayı içeren hücrelerden 42 değerinden küçük olanların içeriğini temizler.

Option Explicit
 
Sub SAYI_SİL()
    Dim Hücre As Range, Alan As Range
 
    On Error Resume Next
    Set Alan = Cells.SpecialCells(xlCellTypeConstants, 1)
    On Error GoTo 0
 
    If Not Alan Is Nothing Then
        For Each Hücre In Alan
            If Hücre.Value < 42 Then Hücre.ClearContents
        Next
    End If
 
    Set Alan = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

2. Kod ise hem sabit, hem formül, hemde sayısal veri içeren hücrelerden 42 değerinden küçük olanların içeriğini temizler.

Option Explicit
 
Sub SAYI_SİL()
    Dim Hücre As Range, Alan1 As Range, Alan2 As Range
 
    On Error Resume Next
    Set Alan1 = Cells.SpecialCells(xlCellTypeConstants, 1)
    Set Alan2 = Cells.SpecialCells(xlCellTypeFormulas, 1)
    On Error GoTo 0
 
    If Not Alan1 Is Nothing Then
        For Each Hücre In Alan1
            If Hücre.Value < 42 Then Hücre.ClearContents
        Next
    ElseIf Not Alan2 Is Nothing Then
        For Each Hücre In Alan2
            If Hücre.Value < 42 Then Hücre.ClearContents
        Next
 
    End If
 
    Set Alan1 = Nothing
    Set Alan2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ekvator]

Sayı silme

Peki Korhan Hocam Bu İşlemi Excelde Yer alan formüller ile yapabilirmiyiz.makrosuz bir çözümü yokmudur

 

[Korhan Ayhan]

Selamlar,

Sn. ekvator,

Formülle sadece hücreyi boş gösterebilirsiniz. Silme işlemi yapamazsınız.

Örnek olarak aşağıdaki formülü B1 hücresine uygulayın.

=EĞER(A1<50;"";A1)

Bu formül A1 hücresine bakar. 50 değerinden küçükse B1 hücresini boş bırakır. Değilse B1 hücresine A1 hücresindeki değeri yazar.

 

[ekvator]

cevabınız için teşekkür ederim Korhan Bey

 

[sellami2005]

Korhan Hocam, ilgin ve cevabın için teşekkür ederim.