Soru Tabloları karşılaştırıp listview'a aktarma

[s.savas]

Merhaba arkadaşlar.
Yaptığım çalışma ile kurumsal faturaların takiplerini amaçlamaktayım.
frmFatura isimli formda bulunan ComboBox6 ile Sayfa2 A2 hücresinden itibaren veri tabanındaki abonelikler isimli tablodan verileri çekiyorum.

Private Sub ComboBox6_Change()
Dim s1 As Worksheet
Dim i As Long

Set s1 = Sheets("Sayfa2")
X = s1.Cells(Rows.Count, "A").End(3).Row
If X > 2 Then s1.Range("A2:H" & X).ClearContents

Call BAGLANTI

Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT IlAdi,IlceAdi,birim_adi,abone_adi,abone_no,isletme_kodu,durumu " & "FROM abone_listesi " & "' "
           rs.Open strSQL, baglan, 1, 1
s1.Range("A2").CopyFromRecordset rs
rs.Close
End Sub

ComboBox8 ile de ComboBox6 dan tercih edilen dönemde gelmiş faturaları gene Sayfa2 nin J2 hücresinden itibaren aktarıyorum.

Private Sub ComboBox8_Change()
Dim s1 As Worksheet
Dim i As Long

Set s1 = Sheets("Sayfa2")
X = s1.Cells(Rows.Count, "J").End(3).Row
If X > 2 Then s1.Range("J2:Q" & X).ClearContents

On Error Resume Next
son = s1.Range("j65536").End(3).Row
If ListView1.ListItems.Count = 0 Then Exit Sub
For i = 0 To ListView1.ListItems.Count + 1
'Cells(son, 10).Value = ListView1.ListItems(i).Text
Cells(son, 10).Value = ListView1.ListItems(i).ListSubItems(1).Text
Cells(son, 11).Value = ListView1.ListItems(i).ListSubItems(2).Text
Cells(son, 12).Value = ListView1.ListItems(i).ListSubItems(3).Text
Cells(son, 13).Value = ListView1.ListItems(i).ListSubItems(4).Text
Cells(son, 14).Value = ListView1.ListItems(i).ListSubItems(5).Text
Cells(son, 15).Value = ListView1.ListItems(i).ListSubItems(6).Text
Cells(son, 16).Value = ListView1.ListItems(i).ListSubItems(7).Text
Cells(son, 17).Value = ListView1.ListItems(i).ListSubItems(8).Text

son = son + 1
Next
End Sub

Burada takıldığım ve yardımlarınıza ihtiyaç duyduğum husus ise;
Bu iki tabloyu karşılaştırıp (N sütununu E sütunu) eşleşenler için H sütununa GELDİ, eşleşmeyenler için GELMEDİ yazması ve GELMEYEN'lerin listview1 de listelenmesi.


Dönem itibari ile gelmeyen faturaları görmek için bu tarz bir tablo karşılaştırma belki basit bir yoldur ancak naçizane aklıma gelen bu yöntem oldu.
Farklı bir çözüm yolu da kabulümdür.
Yardımcı olacak arkadaşlara teşekkür ederim.