- Katılım
- 17 Mayıs 2012
- Mesajlar
- 102
- Excel Vers. ve Dili
- Office 2019, Türkçe
A ve B sütunlarında verilerim var. Bana A sütununda olupta B sütununda olmayan verileri c sütununa liste halinde dökmenin formülü lazım.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub eksik()
sona = Cells(Rows.Count, "A").End(3).Row
sonb = Cells(Rows.Count, "B").End(3).Row
yeni = 3
For i = 3 To sona
If WorksheetFunction.CountIf(Range("B3:B" & sonb), Cells(i, "A")) = 0 Then
Cells(yeni, "C") = Cells(i, "A")
yeni = yeni + 1
End If
Next
End Sub