Listeye bilgi girilmeyen hücrelerin hangisi olduğunun görülmesi

[HBKN84]

Ekteki dosyada görüldüğü gibi veritabanı sheetinde yer alan bilgilerde 1, 2, 3, 4 numaralarında A,B,C görüşlerinden hangileri görüş girmediğini, girişler sheetinde belirttiğim şekilde görebilirimiyim? Bunun için makro yapabilir miyiz ?

Yardımlarınız lütfen...

 

[HBKN84]

arkadaşlar konu biraz acildir, konu ile ilgili bir bilgisi olan varsa cevap lütfen...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub OlmayaniBul()
 
    Dim Sv As Worksheet, sut As Integer, sat As Long, i As Long, j As Integer
 
    Sheets("girişler").Select
    Range(Cells(3, 3), Cells(Rows.Count, Columns.Count)).ClearContents
 
    Set Sv = Sheets("veritabanı")
 
    sut = 4
    For j = 2 To Sv.Cells(1, Columns.Count).End(xlToLeft).Column
    sat = 3
        If Sv.Cells(1, j) <> "" Then
            Cells(sat, sut) = Sv.Cells(1, j)
            For i = 2 To Sv.Cells(Rows.Count, "A").End(xlUp).Row
                If Sv.Cells(i, j) = "" Then
                    sat = sat + 1
                    Cells(sat, sut) = Sv.Cells(i, 1)
                End If
            Next i
            sut = sut + 1
        End If
    Next j
 
End Sub

.

 

[HBKN84]

Emeğinize bilginize sağlık, çok teşekkür ederim.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

Not: Ben hazırlayana kadar Ömer bey cevaplamış. Alternatif bir çözüm olarak sunuyorum.

 

[HBKN84]

Levent bey gönderdiğiniz dosyayı inceledim, gayet güzel olmuş, 2 farklı alternatifim var artık emeğinize sağlık, çok teşekkür ederim.