okan32
Altın Üye
- Katılım
- 12 Mayıs 2016
- Mesajlar
- 367
- Excel Vers. ve Dili
- Ofis 2019- 32 Bit - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-04-2026
Aşağıdaki kod ile F sütutunda değeri sıfır olan satırları silebiliyorum.İstediğim F sütutunda değeri sıfır ve bir olan satırları silmek istiyorum
Kod:
SIFIR OLAN HÜCRELERİ SİL
Sub Boş_Hücre_Sil()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("F65536").End(3).Row To 2 Step -1
If Cells(i, "F").Value = "0" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True: i = Empty
MsgBox "Boş Hücreler Silinmiştir...", vbCritical Or vbOKOnly, "**Ali Koç**"
End Sub