Bir kritere göre satır sildirme.

[Necdet]

Ben şimdi son eklenen kodları nereye ekliyeyim?

Teşekkürler..

Merhaba,

Dosyanız ekte..

 

[Galus]

Sayın Necdet_Yesertener,

Çok teşekkürler..

Saygılarımla...

 

[Galus]

Verileri dışardan makro ile getirirken bazı rakamlar tarih formatına dönüştügünden hücreleri "METİN" formatına çevirdim. C sütununda 0 (sıfır) olmazsa satırları silmiyor. 0 (sıfır) ve değer olmayan boş hücreleri sildirebilir miyiz?

Destekleriniz için teşekkürler..

Saygılarımla...

 

[AS3434]

Sayın Galus

Necdet Beyin herhalde dalgınlığına gelmiş, kodlarda küçük bir hata yapmış.

Sub satir_sil()
Dim i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For i = Cells(65536, "C").End(xlUp).Row To 1 Step -1
    If Cells(i, "C").Value [COLOR=red]<>[/COLOR] "" [COLOR=red]And[/COLOR] Cells(i, "C").Value = 0 Then
        Rows(i).Delete
    End If
Next
Application.ScreenUpdating = True
MsgBox "0 Olan satırlar silindi.."
End Sub

<> olanyeri = (eşittir.)
And olan yeri Or yapın.

 

[Galus]

Say&#305;n AS3434,

Sayg&#305;lar, h&#252;rmetler... &#231;ok te&#351;ekk&#252;rler...

 

[AS3434]

Rica ederim.

Ben bir&#351;ey yapmad&#305;m. Sadece k&#252;&#231;&#252;k bir d&#252;zeltme.

&#304;yi &#231;al&#305;&#351;malar.

Not. Konunun ge&#231;mi&#351;ini okumam&#305;&#351;t&#305;m. Necdet bey zaten o &#351;ekilde &#246;nermi&#351; kodlar&#305;. 21 nolu mesajdaki dosyay&#305; da istedi&#287;iniz gibi d&#252;zenlemi&#351;.