Sayfaları Karşılaştır Olmayanları Altına Ekle

[askm]

Kolay gelsin. Sayfa 1 ve Sayfa2 şeklinde 2 tane sayfa mevcut. 1 Sayfa ana sayfam. 2. Sayfa da ise yeni liste. İki sayfada da A Sutununda sicil numarası var. Sicil numarasına göre arama yaparak ana sayfada olmayıp da 2. sayfada olan verileri Ana Sayfanın en altına sırasıyla eklemek istiyorum. Mümkün müdür.
Şimdiden teşekkürler.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[askm]

Örnek ektedir.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[FONT="Arial Narrow"]Sub LİSTEYE_EKLE()
Set ana = Sheets("Ana Sayfa"): Set yeni = Sheets("Yeni Liste")
For sicil = 2 To yeni.[B65536].End(3).Row
satır = ana.[A65536].End(3).Row + 1
If WorksheetFunction.CountIf(ana.Range("B:B"), yeni.Cells(sicil, "B")) = 0 Then
ana.Cells(satır, 1) = satır - 1
ana.Cells(satır, 2) = yeni.Cells(sicil, 2): ana.Cells(satır, 3) = yeni.Cells(sicil, 3)
ana.Cells(satır, 4) = yeni.Cells(sicil, 4): ana.Cells(satır, 5) = yeni.Cells(sicil, 5)
End If
Next: MsgBox "İŞLEM TAMAM"
End Sub[/FONT]

 

[askm]

Ömer Bey çok teşekkür ederim. Az bir ilave ekledim ve eklenen değerleri de eklenen diye ayrı bir sayfaya ekledim.

Sub LİSTEYE_EKLE()
Set ana = Sheets("Ana Sayfa"): Set yeni = Sheets("Yeni Liste"): Set ekle = Sheets("Eklenenler")
For sicil = 2 To yeni.[B65536].End(3).Row
satır = ana.[A65536].End(3).Row + 1
satır1 = ekle.[A65536].End(3).Row + 1
If WorksheetFunction.CountIf(ana.Range("B:B"), yeni.Cells(sicil, "B")) = 0 Then
ana.Cells(satır, 1) = satır - 1
ana.Cells(satır, 2) = yeni.Cells(sicil, 2): ana.Cells(satır, 3) = yeni.Cells(sicil, 3)
ana.Cells(satır, 4) = yeni.Cells(sicil, 4): ana.Cells(satır, 5) = yeni.Cells(sicil, 5)


ekle.Cells(satır1, 1) = satır1 - 1
ekle.Cells(satır1, 2) = yeni.Cells(sicil, 2): ekle.Cells(satır1, 3) = yeni.Cells(sicil, 3)
ekle.Cells(satır1, 4) = yeni.Cells(sicil, 4): ekle.Cells(satır1, 5) = yeni.Cells(sicil, 5)
End If
Next: MsgBox "İŞLEM TAMAM"
End Sub

 

[Ömer BARAN]

İyi günler dilerim.