İç içe For next döngüsü eşit değilse

[bebar]

Merhaba,

"J" sütununda bulunan verilerim var.
"r" sütununda ise "j" sütununda bulunan verilerden bazıları var.
İstediğim "s" sütununa "r" sütununda eksik olan verileri getirmek istiyorum.
Yani "j" sütununda bulunan verilerin içinden "r" sütununa yazılmayanları almak istiyorum.
Aşğıdaki gibi bir kod oluşturdum yardımcı olursanız memnun olurum.

Sub son()

Dim s3 As Worksheet
Set s3 = Sheets("Veri3")
    x1 = s3.Cells(200, "r").End(xlUp).Row
    son = s3.Cells(Rows.Count, "j").End(xlUp).Row

   
        For I = 17 To son
        If s3.Cells(I, "j") <> "" Then
            For k = 17 To x1
                If s3.Cells(I, "j") <> s3.Cells(k, "r") Then
                    y = s3.Cells(200, "s").End(xlUp).Row
                    s3.Cells(y + 1, "s") = s3.Cells(I, "j")
                    Exit For
                End If
            Next k
        End If
        Next I
       
Next son

 

[systran]

Sub adı ile değişken adı aynı, (son) kontrol edin

 

[bebar]

sonradan afaki yazdım aslı doğru

 

[EmrExcel16]

Merhaba aşağıdaki gibi deneyiniz.

Sub Emr()
Dim s3 As Worksheet
Set s3 = Sheets("Veri3")
s3.Range("S17:S1000").ClearContents
son = s3.Cells(Rows.Count, "j").End(xlUp).Row
Rw = 17
For i = 17 To son
    If Application.WorksheetFunction.CountIf(s3.Range("R17:R10000"), s3.Cells(i, "j")) <= 0 Then
        s3.Cells(Rw, "s").Value = s3.Cells(i, "j")
        Rw = Rw + 1
    End If
Next
End Sub

 

[bebar]

Hocam çok teşekkür ederim.
Sağolun

 

[EmrExcel16]

Hocam çok teşekkür ederim.
Sağolun

Rica ederim , sizde sağolun , iyi çalışmalar.