Arkadaşlar eklediğim dosyadaki gibi arşivim var. Arşivimde olan dosyaları
Sütun A'ya Yazacağım, Yeni Ekleyeceklerimi B'ye Yazacağım yalnız bu ikisinin arasındaki farkı C'ye yazdırmak istiyorum. Bunu nasıl yapabilirim. Saygılarımla.

Sayın mosturk6 isteğinizi makro ile yapmak mümkün. Çalışmanıza bir modül ekleyin ve aşağıdaki kodları bu ekleyeceğiniz modüle yazın. Kopyala yapıştırda yapabilirsiniz.

Kod: Tümünü seç

Sub Farklıysa()
    Range("C2:C56000").Select
    Selection.ClearContents
    Range("C1").Select
Dim Alan As Range, j As Integer
On Error Resume Next
Say = [A65536].End(xlUp).Row
For i = 2 To Say
  x = Columns("A:A").Find(Cells(i, "B"), lookat:=xlWhole).Row
    If Err.Number <> 0 Then
     j = j + 1
     Cells(j + 1, "C").Value = Cells(i, "B")
    Err.Clear
    
    End If
Next
End Sub

Sonra Excel sayfasına ekleyeceğiniz bir butona bu makroyu atayın. Şayet bir sorun yaşarsanız yada sizi ben yanlış anladımda yanlış şey yaptırıyorsam sorunuzu daha açık yazın. Sizin için hazırladığım örnek dosyayıda ekliyorum. Kolay Gelsin.

Çok teşekkür ederim. Özür dileyerek bir konuda daha yardımcı olmanı istiyorum. Zaman ayırıp aynı rakamları listeleyen bir makro da yazabilirsen çok memnun olacağım. Saygılarımı sunuyorum.

A sütunundaki kayıtlarla farklı olanları ve Aynı olanları ayırması için module yazdığın kodları aşağıdaki gibi değiştir. Aynı kayıtları "D" sütununda sıralayacaktır.

Kod: Tümünü seç

Sub Farklıysa()
    Range("C2:D65536").Select
    Selection.ClearContents
    Range("C1").Select
Dim Alan As Range, j As Integer, k As Integer
On Error Resume Next
Say = [A65536].End(xlUp).Row
For i = 2 To Say
  x = Columns("A:A").Find(Cells(i, "B"), lookat:=xlWhole).Row
    If Err.Number <> 0 Then
      j = j + 1
      Cells(j + 1, "C").Value = Cells(i, "B")
      Err.Clear
    Else
      k = k + 1
      Cells(k + 1, "D").Value = Cells(i, "B")
    End If
Next
End Sub

AyniFarkli.xls İndir

Çok teşekkür ederim. Saygılarımla.

Kolay gelsin. İyi çalışmalar.