A1 boşsa A satırını sil

[bmutlu966]

ekteki dosyamda 800 satırlık bir data var. Eğer A kolonunda bir değer yoksa o satırı makro ile tamamen sildirmek istiyorum. Aşağıdaki kodları denedim ama olmadı hata nerde acaba...

Deneme 1

Sub sil()
For i = 1 To 865
If Cells(i, "A") = 0 Then Rows(i).Select
Selection.Delete Shift:=xlUp
Next
End Sub

Deneme 2

Sub sil()
For i = 1 To 865
If Cells(i, "A") = 0 Then Rows(i).Delete
Next
End Sub

Her ikiside bazı satırları sildi bazılarını silmedi.
Hata nerde yapıyorum...

Tşk

 

[Orion1]

0 yerine "" kullanın.

 

[bmutlu966]

0 yerine "" kullanın.

olmadı... gene aynı şeyleri yaptı. Bazı satırları sildi bazıları kaldı... Hatta A kolonundaki dolu olan bazı satırları da siliyor...

 

[Orion1]

Ama sizin yolladığınız dosyada A sütununda hiç veri yokki.
Nasıl oluyor bu iş.

 

[Orion1]

Pardon varmış şimdi deneyicem.

 

[Korhan Ayhan]

Selamlar,

Silme kodlarında püf nokta döngüyü tersten çalıştırmaktır. Kodlarınızı aşağıdaki gibi değiştirerek sorunu çözebilirsiniz.

Sub Sil()
[COLOR=red]For i = 865 To 1 Step -1[/COLOR]
If Cells(i, "A") = "" Then Rows(i).Select
Selection.Delete Shift:=xlUp
Next
End Sub

 

[exam77]

ekteki dosyamda 800 satırlık bir data var. Eğer A kolonunda bir değer yoksa o satırı makro ile tamamen sildirmek istiyorum. Aşağıdaki kodları denedim ama olmadı hata nerde acaba...

Deneme 1

Sub sil()
For i = 1 To 865
If Cells(i, "A") = 0 Then Rows(i).Select
Selection.Delete Shift:=xlUp
Next
End Sub

Deneme 2

Sub sil()
For i = 1 To 865
If Cells(i, "A") = 0 Then Rows(i).Delete
Next
End Sub

Her ikiside bazı satırları sildi bazılarını silmedi.
Hata nerde yapıyorum...

Tşk

Şöyle denermisiniz...
For i = 865 To 1 Step -1
If cells(i,"A")="" Then Rows(i).Delete
Next
End Sub

 

[Orion1]

Kod aşağıdadadır.

Sub bosayi_sil()
Dim i As Integer
For i = 865 To 1 Step -1
    If Cells(i, "A").Value = "" Then Rows(i).Delete
Next
MsgBox "Silme işlemi sona erdi"
End Sub

 

[bmutlu966]

Herkese çok teşekkürler. Hepsi iş gördü.

 

[bmutlu966]

Ancak kodlar neden aşağıdan yukarı doğru silme işlemini doğru yaparken neden yukarıdan aşağıya doğru silmiyor. Hata nerde anlamadım ?

 

[dEdE]

Merhaba,
İlk satır silindiğinde, i değişkeninin değeri 2 oluyor. Halbu ki ilk satır silinmiş ve sayfa 1 satır yukarı kaymış olduğundan artık 1. satırın silinmesi söz konusu değil. Çünkü i satırını yani 2. satırı kontrol ediyor ve bu 865 e kadar böyle (birer atlayarak) devam ediyor.
Saygılar.

 

[bmutlu966]

çok haklısın. Bak bunu hiç düşünmemiştim. Süper. Çok teşekkürler.

 

[dEdE]

Rica ederim.

 

[exam77]

Sayın dEde sade bir şekilde izah etmiş
Tşkler...