Hücrede rakam yoksa satırı sil

[zulfuernek]

F sütununda tutar mevcut.
1) eğer f sütununda rakam yoksa satırı silsin istiyorum
2) eğer f sütununda ki rakam sıfır ise satırı silsin

 

[Korhan Ayhan]

Deneyiniz.

Sub Sil()
    Dim Son As Long, X As Long, Alan As Range
    Dim Kontrol_1 As Boolean, Kontrol_2 As Boolean

    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    For X = Son To 1 Step -1
        Kontrol_1 = (Cells(X, "F") = "" Or Cells(X, "F") = 0)
        Kontrol_2 = Not IsNumeric(Cells(X, "F"))
        If Kontrol_1 = True Or Kontrol_2 = True Then
            If Alan Is Nothing Then
                Set Alan = Cells(X, "F")
            Else
                Set Alan = Union(Alan, Cells(X, "F"))
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then
        Alan.EntireRow.Delete
        MsgBox "Ýþleminiz tamamlanmýþtýr.", vbInformation
    Else
        MsgBox "Silinecek satýr bulunamadý!", vbExclamation
    End If
End Sub

 

[zulfuernek]

http://dosya.co/k8hjc3l5alxf/Adsız.jpg.html

hocam bir kısmını temizledi ancak hala ilgisiz satırlar var. f sütununda rakam olmayan satırların bir kısmını temizlemedi

şöyle anlatayım hocam 1. kural ve 2. kural ayrı ayrı olması gerekli. farklı butonlara farklı görevler atanacak çünkü. yani önce 1. kuralı gerçekleştirsin yani f sütununda parasal bir değer yoksa yazı varsa veya sütundaki satır boşsa satırı silsin.

2. kuralı şimdilik dikkate almayın onun için ayrı bir kod açacağız yani

 

[Korhan Ayhan]

Kodu revize ettim. Tekrar deneyiniz.

 

[zulfuernek]

korhan hocam bu defa herşeyi temizledi )))))

 

[Korhan Ayhan]

En sonunda herşeyi silebildim.

Şaka bir yana kodu tekrar düzenledim. Deneyiniz.

 

[zulfuernek]

Range("f1:f" & Cells(65536, "A").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
MsgBox "Satırlar Silindi"

bu kodla boş satırlrı siliyor. buna ek olarak f sütununda rakam olmayan satırları silmeyide ekleyebilirmiyiz?

 

[zulfuernek]

korhan hocam veya şöyle yapalım e sütununda tarih yoksa satırı silsin sanırım daha kısa olur

 

[Korhan Ayhan]

Önerdiğim kodu tekrar deneyin. Olmazsa dediğiniz gibi düzenleriz.

 

[zulfuernek]

korhan hoam ezda olsa bi kaç tane yazı ve boş olan satırlar var. sanırım burdaki sorun şu hocam şimdi farkettim.

mesela f sütunu için bakıyoruz tamam doğru ancak en son dolu hücre b sütunuda olabiliyor c sütunuda d sütunu gibi değişken.

şöyle yapalım. A1:F hücreleri arasındaki en son dolu hücrede f sütununda tutar yazılmamışsa satırı silsin.

sanırım o zaman olacaktır

 

[Korhan Ayhan]

"Son" değişkenini düzelttim. Tekrar deneyiniz.

 

[zulfuernek]

hocam oldu gibi sadece 1. satırda yazı kaldı. 1. satırıda temizleyebilirsek 10 numara olucak

 

[Korhan Ayhan]

Örnek dosya talebimizin ne kadar önemli olduğu daha net anlaşılıyor sanırım.

1.satırın başlık olduğunu düşünmüştüm. Bu sebeple silinmiyor. Kodu revize ettim. Tekrar deneyiniz.

 

[zulfuernek]

korhan hocam çözdüm. akşam mesaj yazdım ama sanırım gelmemiş. bende dediğinizi yaptım satırdaki 2 rkamını görünce aynı şeyi düşündüğünüzü anladım. başşlık satırı olarak bende o satırı dediğiniz gibi 1 olarak yapınca sorun kalktı. emeğinize sağlık. hocam bunda ek dosya neden gönderemedim çünkü masa üsünde bir kaç dosyadan veri çektiği için iş uzundu. ilginiz için çok çok çok teşk.