Sütun karşılaştırma

[Nadir]

Merhaba,
Farklı sayfalardaki iki sütunu karşılaştırmak için yardımınıza ihtiyacım var.
Aşağıdaki gibi.. ama böyle hata veriyor tabi ki.
.......
Sub aynin_varmi()
If Sheets("FATURA").Range("D3: D").Value = Sheets("VERi").Range("D2: D").Value Then
MsgBox "aynın var"
End If
End Sub

 

[Orion1]

Örnek dosya ekleyiniz.

 

[Nadir]

Örnek dosya...

http://s3.dosya.tc/server4/9lx4oe/karsilastir.xlsx.html

 

[Orion1]

Dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

Sub bul59()
Dim sh As Worksheet, k As Range, i As Long
Sheets("FATURA").Select
Set sh = Sheets("VERi")
For i = 3 To 29
    If Cells(i, "D").Value = "" Then GoTo atla
    Set k = sh.Range("D:D").Find(Cells(i, "D").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        MsgBox Cells(i, "D").Value & vbLf & "Bu Fatura no var.Satır kaydedilmedi!"
        GoTo atla
    End If
'Varsa buraya kodlarınız yazılacak.
atla:
Next i
End Sub

 

[Nadir]

Teşekkürler, iyi akşamlar Evren bey..

 

[Orion1]

Teşekkürler, iyi akşamlar Evren bey..

Rica ederim.
İyi geceler.

 

[Nadir]

Aradan uzun zaman geçti ama..

Aşağıdaki şekilde yazdım olmadı.. Aktarma işlemini yapacak kodları nereye yazmam lazım.

Sub bul59()
Dim sh As Worksheet, k As Range, i As Long
Sheets("FATURA").Select
Set sh = Sheets("VERi")
For i = 3 To 29
    If Cells(i, "D").Value = "" Then GoTo atla
    Set k = sh.Range("D:D").Find(Cells(i, "D").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        MsgBox Cells(i, "D").Value & vbLf & "Bu Fatura no var.Satır kaydedilmedi!"
        GoTo atla
    End If
'Varsa buraya kodlarınız yazılacak.
    
    Sheets("FATURA").Select
    Range("B3:G29").Select
    Selection.Copy
    Sheets("VERi").Select
sat1 = Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B2").Select

atla:
Next i
End Sub