Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
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.

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
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.

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
Ç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.

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
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

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
Çok teşekkür ederim. Saygılarımla.

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
Kolay gelsin. İyi çalışmalar.