makro boş satır siliyor-DEĞERİ 0 olanı silebilirmi

[karacabil55]

BU MAKRO İLE BOŞ SATIRI SİLEBİLİYORUM.ANCAK DEĞERİ 0 OLAN SATIRI SİLEMİYORUM.DEĞERİ 0 OLAN SATIRI SİLMEMİZ MÜMKÜN MÜ?

Sub DeleteBlankRowsAndColumns()

'A1 hücresinden dolu olan son hücreye kadar olan alanı seç
Range("B1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Dim i As Long

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False

'Tüm Satırlarda CountA(hücrenin içi dolu mu?)
'fonksiyonu 0 döndürüyorsa sil
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i

'Tüm Sütunlarda CountA fonksiyonu 0 döndürüyorsa sil
For i = Selection.Columns.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Columns(i)) = 0 Then
Selection.Columns(i).EntireColumn.Delete
End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With

End Sub

 

[çıtır]

Bu kodu deneyiniz.

Sub sil0()
For x = [A65536].End(3).Row To 1 Step -1
If Cells(x, "A") = "0" Then Rows(x).Delete shift:=xlUp
Next
End Sub

 

[karacabil55]

deniyorum olmadı hiç bir uyarıda çıkmadı .
önceki makroyu silip sizin kısa makroyu kayıt yapmıştım

 

[karacabil55]

A sütunu ürün adı
B sütunu ise adetler
B sütununda değeri 0 olanların silinmesi amacımız
gönderdiğim makroda ise B hücre değeri boş ise satırı tamamıyla siliyor.
0 ise silmiyor.
Teşekkür ederim

 

[karacabil55]

Çok Teşekkür ederim
MAKRO da A yerine B yazdım çalıştı ve sildi

 

[çıtır]

Önceki kod 0 ları A Sütununda arar.Bu kod tüm aktif sayfada arar bu deneyiniz.

Sub sıl0()
For Each hucre In ActiveSheet.UsedRange
    If IsError(hucre.Value) = True Then
        Range(hucre.Address) = ""
    ElseIf Range(hucre.Address) = "0" Then Range(hucre.Address).Delete shift:=xlUp
    End If
Next
End Sub

 

[karacabil55]

Teşekkür ederim.

 

[çıtır]

Teşekkür ederim.

Rica ederim.Kolay gelsin.