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

Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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

 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba.

Deneyiniz.

Kod:
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
 
Son düzenleme:
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Sayın Necdet uzmanım, çok güzel olmuş. Teşekkür ederim, saygılar :)
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba.

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