Sub karsilastirma()
For i = 2 To Sheets("VERİ").Range("E" & Rows.Count).End(3).Row
For x = 2 To Sheets("EXCEL").Range("E" & Rows.Count).End(3).Row
If Sheets("VERİ").Cells(i, "E") = Sheets("EXCEL").Cells(x, "E") Then Sheets("VERİ").Cells(i, "F").Value = "Excel Sayfasında Var"
If Sheets("EXCEL").Cells(x, "E") = Sheets("VERİ").Cells(i, "E") Then Sheets("EXCEL").Cells(x, "F").Value = "Veri Sayfasında Var"
If Sheets("VERİ").Cells(i, "F") = Empty Then Sheets("VERİ").Cells(i, "F") = "Excel Sayfasında Yok"
If Sheets("EXCEL").Cells(x, "F") = Empty Then Sheets("EXCEL").Cells(x, "F") = "Veri Sayfasında Yok"
Next
Next
End Sub