DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub SİL()
For x = [N65536].End(3).Row To 1 Step -1
If Cells(x, "N") = "0" Then Rows(x).Delete Shift:=xlUp
Next
End Sub
Merhaba
İstediğiniz N sütununu silmek ise aşağıdaki kodu bir butona atayabilirsiniz.
Columns("N:N").Select
Selection.ClearContents
bu tamamını siler ama bildiğim
Range("N:N").Replace What:="0", Replacement:="", LookAt:=xlPart
2 numaralı cevabımda doğru anladıysam N sütununda 0 olan satırları siliyor.
Ha sadece N'de 0 olan tekil hücreleri silin diyosanız aşağıdakini kullanın
Kod:Range("N:N").Replace What:="0", Replacement:="", LookAt:=xlPart