Tümü işaretli olanlar ve hiçbiri işaretli olmayanların tespiti

[izcik]

Merhaba

Örnek dosyada başlık satırı ve başlık sütunu arasında kalan hücreler; (olup olmadığını belli edebilmek için) “evet” kelimesiyle işaretlenmiştir.

(Evet kelimesi değişebilir, karışık sayılar veya harfler de olabilir. Ayrıca satır ve sütun sayısı da değişebilir)

Amacım; tamamı işaretlenmiş hücrelerin olduğu satırları ve hiçbiri işaretlenmemiş hücrelerin olduğu satırları makroyla bulmak.


Örnek dosyayı ben hazırladığım için 3. satırdaki ve 10. satırdaki hücrelerin tamamının işaretlenmiş olduğunu;
18. satırın ise hiçbirinin işaretlenmemiş olduğunu biliyorum.

Tam doluları ayrı,
Tam boşları ayrı
makro düğmeleriyle nasıl bulabiliriz.

(“İki ayrı makro düğmesi olursa daha kullanışlı olur” diye düşünüyorum)

Teşekkürler

ornek.xlsx dosyasını indir - download

ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Necdet]

Merhaba.

Deneyiniz.

Sub DoluBosBul()

    Dim Kol As Integer, _
        Adt As Integer, _
        Bul As Integer, _
        i   As Long
    
    Kol = Cells(1, Columns.Count).End(1).Column
    Adt = Kol - 1
    
    Range("I2:I" & Cells(Rows.Count, "A").End(3).Row).ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Bul = Application.WorksheetFunction.CountA(Range(Cells(i, "B"), Cells(i, Kol)))
            
        If Bul = Adt Then
            Cells(i, Kol + 1) = "Hepsi İşaretli"
        ElseIf Bul = 0 Then
            Cells(i, Kol + 1) = "Hiç İşaretlenmemiş"
        End If
            
    Next i
    
End Sub

 

[izcik]

Sayın Necdet uzmanım, çok güzel olmuş. Teşekkür ederim, saygılar

 

[izcik]

Sayın Necdet uzmanım merhaba

Acaba bu güzel kodlara şunu ilave edebilir miyiz?

(Olup olmayacağını bilmiyorum olmazsa hiç önemli değil, böyle de güzel)

Düğmeye bastığımızda neticeyi veriyor.
Fakat “evet” kelimelerinin bulunduğu hücrelerdeki verileri değiştirdiğimizde (farklı veriler girdiğimizde) sonuç değişeceği için; sonucun çıktığı sütunu (örnekte I sütunu oluyor) her seferinde silmek (temizlemek) gerekiyor. Zira silmezsek bütün sonuçlar üst üste binmiş oluyor.


Düğmeye bastığımızda neticenin oluştuğu sütundaki verilerin; düğmeye İKİNCİ KEZ BASTIĞIMIZDA, otomatik olarak silinmesini sağlayacak kodları ekleyebilir miyiz?

Umarım anlatabilmişimdir. Saygılar

 

[Necdet]

Merhaba.

Bu gibi ayrıntıya artık girmiyoruz, nedeni ise zaten çözümünün basit olması.
Kodlarda silme işlemini koydum, inceleyiniz.