Satır Silmek

[YASINT]

merhaba arkadaşlar bir tablo yaptım tablom 5. satırdan başlıyor yapmak istediğim D5130 ve G5:G130 satırlarındaki rakam 0 (sıfır) ise o satırı silmek. Bunuda bir buton yardımıyla yapmak istiyorum. yardımlarınızı bekliyorum. teşekkürler.

 

[Kemal Demir]

Sub dveg()
For c = 5 To 130
If Cells(c, 4).Value = 0 Then
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
If Cells(c, 7).Value = 0 Then
Selection.Delete Shift:=xlUp
Range("A1").Select
End If

Next

End Sub


umarım işine yarar

 

[Kemal Demir]

cevap yazdıktan sonra sole bir sey geldı aklıma acaba siz iki kosula sağlıyorsa mı dıye sormus olabilirsiniz diye bırde sunu vereyim.

Sub dveg()
For c = 5 To 130
If Cells(c, 4).Value = 0 and Cells(c, 7).Value =0 then
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
Next
End Sub

 

[YASINT]

arkadaşım denedim istediğim gibi olmadı örnek dosya gönderiyorum orda denersen sevinirim bu sefer toplamlarıda siliyor benim istediğim karlığı boş olan hesapları silmesi teşekkürler.

 

[Ali]

silindi....

 

[YASINT]

yalnız arkadaşım bu makro alt hesapları siliyor ben D5130 ve G5:G130 satırlarındaki rakam 0 (sıfır) ise o satırları ve üst hesap satırlarını silmek istiyorum.

 

[dost]

Merhaba,

Ekteki dosyayı inceleyiniz.

 

[YASINT]

teşekkürler Sn. dost