Olmayan verileri yeni satıra taşıma

[creed12]

Merhabalar, birinci sütunda 20 veri olsun, ikinci sütunda ise ilk sütundaki 15 veri olsun,
İstediğim şey ise üçüncü sütuna eksik olan 5 verinin gelmesini istiyorum böyle bir formül var mı acaba

 

[mustafa1205]

Düşeyara ile yapabilirsiniz....

 

[bycakir]

Sub EksikVerileriListele()
    Dim tumVeriler As Range, mevcutVeriler As Range
    Dim hucre As Range
    Dim cSatir As Long
    Dim bulunan As Range
    
    ' A1:A20 arası tüm veriler
    Set tumVeriler = Range("A1:A20")
    ' B sütunundaki mevcut veriler
    Set mevcutVeriler = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    ' C sütununu temizle
    Range("C:C").ClearContents
    cSatir = 1
    
    ' Her bir A verisini kontrol et
    For Each hucre In tumVeriler
        Set bulunan = Nothing
        On Error Resume Next
        Set bulunan = mevcutVeriler.Find(What:=hucre.Value, LookIn:=xlValues, LookAt:=xlWhole)
        On Error GoTo 0
        
        ' Eğer bulunamazsa, C sütununa yaz
        If bulunan Is Nothing Then
            Cells(cSatir, "C").Value = hucre.Value
            cSatir = cSatir + 1
        End If
    Next hucre
End Sub

chatgpt den alıntıdır denedim çalışıyor

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki DİZİ formül ile sonuçları alt alta listeleyebilirsiniz.

Formül girişini CTRL+SHIFT+ENTER ile tamamlayınız. Aksi durumda doğru sonuç üretmez.

Ofis diliniz Türkçe ise formülü çevirmeniz gerekir.

=IFERROR(INDEX(A$1:A$20;SMALL(IF(ISNA(MATCH(A$1:A$20;B$1:B$10;0));ROW(A$1:A$20));ROW(A1)));"")

 

[creed12]

teşekkür ederim arkadaşlar sorun çözülmüştür.

 

[creed12]

teşekkür ederim arkadaşlar sorun çözülmüştür.

yaptığım şeklide paylaşayım;
A sütununda tüm verileri, C sütununa da eksik olan verileri yerleştirdim.
B sütununa şu formülü;
=EĞER(DEĞİL(EĞERHATA(VE(KAÇINCI(C2;A:A;0));"YANLIŞ"));MAK($B$1:B1)+1;"")
D sütununa şu formülü;
=EĞERHATA(DÜŞEYARA(SATIRSAY($I$1:I1);B:C;2;0);"")
girdim.
C sütununda olmayan veriler D sütununda listelenmiş oldu.