#excel #vba #compare #match
Not: Since the less than and greater than sign cannot be used in this section, I wrote the greater than or less sign instead. This phrase (lessthangreaterthansign) should be replaced with less than and greater than signs.
Sub Dikdörtgen1_Tıkla()
Set ws = ThisWorkbook.Sheets("Page1") ' Change according to your page name
birinciListe = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
ikinciListe = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
Dim i, j, a, b, x As Integer
a = 0
'Compare and Pair List 1 and List 2
For i = 3 To birinciListe
geciciad = Cells(i, 3)
For j = 3 To ikinciListe
If Cells(j, 9) = geciciad Then
Cells(i, 6) = geciciad
Cells(i, 7) = Cells(j, 10)
a = 1
End If
Next
If a lessthangreaterthansign 1 Then
Cells(i, 6) = ""
Cells(i, 7) = ""
a = 0
End If
Next
'List not in List 1
x = 1
For i = 3 To ikinciListe
b = 0
geciciad2 = Cells(i, 9)
For j = 3 To birinciListe
If Cells(j, 3) = geciciad2 Then
b = 1
End If
Next
If b lessthangreaterthansign 1 Then
Cells(x + 2, 13) = geciciad2
Cells(x + 2, 14) = Cells(i, 10)
x = x + 1
End If
Next
End Sub
Sub Silme()
Set ws = ThisWorkbook.Sheets("Page1") ' Clear
ikinciListe = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
For i = 3 To ikinciListe
Cells(i, 6).Clear
Cells(i, 7).Clear
Cells(i, 13).Clear
Cells(i, 14).Clear
Next
End Sub