10 adet altında ki veri kümelerini silecek kod

[Carpintero]

Merhabalar,
C sütununda verilerimiz var. C sütunundaki 2 boş hücrenin arasında ki veri
sayısı 10 dan küçükse bu veriler silinecek. 10 ve daha fazla ise bu veriler silinmeyecek.

Bir başka anlatımla; C1 den başladık ilk dolu hücreyi bulduk.
Bunun adı C5 olsun. C5 ten sonra ki dolu hücreleri sayıyoruz eğer,
C5 ten sonra peşpeşe (arada boş hücre olmadan) 10 adet ve daha fazla dolu hürce
varsa bunlar kalıyor. Eğer 10 olmaz ise bu veriler siliniyor.

Anlaşıldı ise eğer yardımcı olunur ise sevinirim. Saygılar

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub Sil()
    
    Dim ilk As Long, son As Long, i As Long, a As Long, say As Long
    
    ilk = Range("C1").End(xlDown).Row
    son = Cells(Rows.Count, "C").End(xlUp).Row

    For i = ilk + 1 To son

        a = ilk + 1
        If a > son Then Exit Sub
        If Cells(i, "C") <> "" Then
            say = say + 1
        End If
        If say < 10 And Cells(i, "C") = "" And say <> 0 Then
            Cells(a, "C").Resize(say, 1).ClearContents
            say = 0
            ilk = Cells(i, "C").End(xlDown).Row
        End If

    Next i
    
End Sub

.

 

[Carpintero]

Merhaba Ömer bey.
Tam da bunu istemiştim. Okuma mantığı doğru,
lakin silme esnasında silmesi gereken alanın ilk verisini silmiyor.

Örneğin: C5 C6 C7 C8 C9 verileri silinmesi gerekli bu durumda C5 silinmiyor.

 

[Ömer]

C5 den sonra saymaya başlayacak dediğiniz için o şekilde yazmıştım.

For i = ilk + 1 To son

a = ilk + 1

Bu bölümlerdeki +1 leri silerek deneyin.

.

 

[Carpintero]

Harika.
Ellerinize sağlık. Ömer bey.
Çok çok teşekkür ediyorum.

 

[Ömer]

Rica ederim, iyi çalışmalar.

 

[Carpintero]

Tekrardan merhabalar,
C kolonunda birbirini takip eden (arada boş hücre yok) veri blokları 1 den fazla olduğu zaman
kod ilk veri blogu öncesi işlevini yapıyor ve exit sub komutu ile sonlanıyor.

Temsili olarak;
C kolonu diyelim buraya verileri aşağı doğru düşünelim.
a aa aaa a aaaaaaaaaa aa a aa aaa gibi bir tabloda
kod sadece kırmızı verileri siliyor. Mavi verilerinde silinmesi lazım.
Yani kod C kolonunda son dolu hücreye kadar verileri işleyip 10+ lu veri kümesi (peşpeşe arada boş hücresiz) oluşturmayan
veri kümelerinin tamamını silecek.

Müsait bir zamanda yardımcı olunur ise çok sevinirim. İyi akşamlar diliyorum herkese.