Sıfır değerli sayıların silinmesi

[murataras-48]

Arkadaşlar benim sorunum aktarma sayfasına gerekli bilgiler aktarıldıktan sonra aktarma sayfasında bazı bilgi girişleri 0 değerinde oluyor haliyle ben bu sıfır değerli satırları makro ile nasıl sildirebilirim? MESELA: KBS sayfasında a1 den a600 e kadar olan o değerli satırları silmek gibi.

 

[Baggwell]

ilgili sütunu seçip makroyu çalıştırabilirsiniz.

Sub Makro1()
    Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[Muzaffer Ali]

Ben sıfır değeri içeren hücrelerin bulunduğu satırın silinmesi olarak anladım. Eğer doğru anlamışsam aşağıdaki kodu inceleyiniz.

Sub SatirSil()
    Dim Bak As Integer
    Dim SatirSay As Integer
    'Satır sayısı değişiyorsa
    SatirSay = Cells(Rows.Count, "A").End(3).Row
    'Satır sayısı sabitse
    SatirSay = 10
    
    For Bak = SatirSay To 1 Step -1
        If Cells(Bak, 1).Value = 0 Then
            Rows(Bak).Delete
        End If
    Next
End Sub

 

[Necdet]

merhaba,

excel seçenekleri içinde değeri sıfır olanları gösterme diyebilirsiniz.

kod yazmaya da gerek kalmaz.

 

[murataras-48]

Tşk.

Emeği geçen bütün arkadaşlara çok teşekkür ederim Rabbim razı olsun hepinizden bilgi paylaştıkça çoğalır ve hak ettiği değeri bulur.