Farklı sayfalardaki mükerrer kayıtlar

[yersahan]

Merhaba,çok değerli bir arkadaşın katkılarıyla, farklı sayfalardaki mükerrer kayıtlar için aşağıdaki makroyu oluşturmuştum.Ancak sayfalardaki alanlar biribiri ile aynı olmadığı için mükerrer kayıtları silemiyorum.Daha doğrusu [IV1] = "=C1 &D1 & E1 & F1 & G1 &H1 &I1 &J1 &K1 " alan tanımını, kodun neresine ve nasıl yazacağımı bilemiyorum.Dosyam ektedir.Yardımcı olurmusunuz.Teşekkürler
Mükerrer Kod:
Dim emrah As Worksheet, yılmaz As Worksheet, _
a As Long, b As Long, c As Long, d As Long
Application.ScreenUpdating = False
Set emrah = Sheets("GELEN"): Set yılmaz = Sheets("BEKLEYEN")
a = emrah.Range("IV" & Rows.Count).End(xlUp).Row
b = yılmaz.Range("IV" & Rows.Count).End(xlUp).Row
If a = b Then
c = a
Else
c = b
End If
For d = c To 2 Step -1
If WorksheetFunction.CountIf(emrah.Range("IV:IV"), yılmaz.Cells(d, "IV")) = 1 Then
yılmaz.Rows(d).Delete


End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "ANKARA İPOTEK EKİBİ"

 

[yersahan]

Yanıtını bilen yokmu

İyi akşamlar,sorumun yanıtını verebilecek bir arkadaş yokmu.

 

[nsertoglu]

' ***Kodunuzu aşağıdaki ile değiştirin; kolay gelsin.. ***


Sub Button1_Click()

Dim gln As Worksheet, bkl As Worksheet, _
a As Long, b As Long, c As Long, d As Long
Application.ScreenUpdating = False
Set gln = Sheets("GELEN"): Set bkl = Sheets("BEKLEYEN")
a = gln.Range("I" & Rows.Count).End(xlUp).Row
b = bkl.Range("I" & Rows.Count).End(xlUp).Row
If a > b Then
c = a
Else
c = b
End If

For r = 2 To b
bkl.Select
Cells(r, "iv") = Cells(r, "c") & Cells(r, "d") & Cells(r, "e") & Cells(r, "f") & Cells(r, "i") & Cells(r, "j") & Cells(r, "k")
Next r
Range(Cells(r, "iv").Address & ":" & Cells(r, "iv").Address).ClearContents

For r = 2 To a
gln.Select
Cells(r, "iv") = Cells(r, "c") & Cells(r, "d") & Cells(r, "e") & Cells(r, "f") & Cells(r, "i") & Cells(r, "j") & Cells(r, "k")
Next r
Range(Cells(r, "iv").Address & ":" & Cells(r, "iv").Address).ClearContents


For d = c To 2 Step -1
If WorksheetFunction.CountIf(gln.Range("IV:IV"), bkl.Cells(d, "IV")) = 1 Then
bkl.Rows(d).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "ANKARA İPOTEK EKİBİ"

End Sub

 

[yersahan]

Teşekkürler

Allah razı olsun.Teşekkür ediyorum.Kolay gelsin.