- Katılım
- 12 Kasım 2014
- Mesajlar
- 255
- Excel Vers. ve Dili
- 2013
- Altın Üyelik Bitiş Tarihi
- 15-05-2023
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.
"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.
Kod:
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