Sayın korhan Ayhanın a sütununda olup b sütununda olmayanları c sütununa yazan kodu:
Sub Listele()
Dim X As Long, Say As Long, Satir As Long
Satir = 2
Range("C2:C" & Rows.Count).ClearContents
For X = 2 To Cells(Rows.Count, 1).End(3).Row
If Cells(X, 1) <> "" Then
Say = WorksheetFunction.CountIf(Range("B:B"), Cells(X, 1))
If Say = 0 Then
Cells(Satir, 3) = Cells(X, 1)
Satir = Satir + 1
End If
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Hocam listelerimi güncellerken şöyle bir makroya ihtiyacım var.
b sütunu güncel durum ise; A sütunundaki benzersizleri sil ave bdeki ortak mükerrerleri tekrarsız yaz. yeni listeye b'den gelen tekilleri ekle....
bilmem anlata bildim mi örnek dosya ektedir.
Sub Listele()
Dim X As Long, Say As Long, Satir As Long
Satir = 2
Range("C2:C" & Rows.Count).ClearContents
For X = 2 To Cells(Rows.Count, 1).End(3).Row
If Cells(X, 1) <> "" Then
Say = WorksheetFunction.CountIf(Range("B:B"), Cells(X, 1))
If Say = 0 Then
Cells(Satir, 3) = Cells(X, 1)
Satir = Satir + 1
End If
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Hocam listelerimi güncellerken şöyle bir makroya ihtiyacım var.
b sütunu güncel durum ise; A sütunundaki benzersizleri sil ave bdeki ortak mükerrerleri tekrarsız yaz. yeni listeye b'den gelen tekilleri ekle....
bilmem anlata bildim mi örnek dosya ektedir.