İçinde Açıklama Olmayan Hücreler

[hakki83]

Merhaba

Örnek dosyada, ÇALIŞMA adlı sayfada,
B2:AF10000 alanında veriler vardır.

Bu alandaki hücrelerin hepsinin içinde açıklama notu ekli olması gereklidir.

Notu ekli olmayan hücrelerin adreslerini,
KONTROL adlı sayfadaki H sütununa örnekteki gibi döktürebilir miyiz, teşekkürler.

 

[veyselemre]

Sub test()
    
    Dim rng As Range, rngD As Range, rngA As Range, huc As Range
    Dim lst, say&
    
    With Sheets("ÇALIŞMA")
        Set rng = .Range("B2:AF" & .Cells(Rows.Count, 1).End(3).Row)
    End With
    
    Set rngD = rng.SpecialCells(2)
    Set rngA = rng.SpecialCells(-4144)
    
    ReDim lst(1 To rngD.Cells.Count, 1 To 1)

    For Each huc In rngD
        If Intersect(huc, rngA) Is Nothing Then
            say = say + 1
            lst(say, 1) = huc.Address
        End If
    Next huc
    
    With Sheets("KONTROL")
        .Range("H2:H" & Rows.Count).ClearContents
        .Range("H2").Resize(say).Value = lst
    End With
    
End Sub

 

[hakki83]

Sağ olunuz Veysel Emre hocam. Olmuştur. Emeğinize sağlık.