2 farklı Sütundaki verilerin eşleştirilmesi

[lakebodom]

Öncelikle merhabalar bu konu ile ilgili olarak forumu inceledim ama ya tam tanımını bilmediğim için yada olmadığı için bulamadım dediğim gibi istediğim şeyin tanımı buda olmayabilir. Açıklıyım :

2 farklı sheetimiz var ilçe1 ilçe 2 diye ;
İlçe 1 de yaklaşık olarak 100 tane ilçe adı var (A sütununda).
İlçe 2 sheetinde de yaklaşık 200 tane ilçe var (A sütununda).

Şimdi sorunum şu Sheet2 deki 200 tane ilçenin örneğin 50 tanesi sheet 1 in içinde olabilir geri kalan 150 tanesi yeni olabilir.Benim istediğim;
Sheet 2 de tarama yapılsın eskiler sallanmasın yeniler ayrı bir yere yazılsın misal sheet 3 e olabilir yada farklı bir yere.

Yukarıdada dediğim gibi konunun tanımı bu olmayabilir.
Ms Office 2007 ingilizce kullanıyorum.

Şimdiden yardımlarınız için teşekkür ederim İyi çalışmalar

 

[Necdet]

Merhaba,

Makrolu çözüm isterseniz aşağıdaki kodları kullanabilirsiniz.

Sub AraYoksaYaz()
Dim s1 As Worksheet, s2 As Worksheet
Dim i As Long, j As Long
Dim Adet As Integer
Dim c As Variant
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
s2.Select
Range("D2:D65536").ClearContents
j = 1
For i = 2 To [A65536].End(3).Row
    Set c = s1.Range("A:A").Find(Cells(i, "A"), LookIn:=xlValues)
    If c Is Nothing Then
        j = j + 1
        Cells(j, "D") = Cells(i, "A")
    End If
Next i
MsgBox "İşlem Tamam " & j - 1 & " Adet Yeni Değer Bulundu..."
End Sub

 

[lakebodom]

Hocam eline sağlık buda benim işimi görür ancak 1 2 soru sormak istiyorum bunun üzerine
1.Bu yazdığınız macro Atıyorum S1 A1i Tüm S2 de işte S1 A2 yi tüm S2 de bu şekildemi bir arama yaptırtıyor yoksa S1 a1 i S2 A1 de S1 A2 yi S2 A2 de bu sekıldemı arama yaptırtıyor
2.bu sekılde kullanabılıyorum hıc sorun olmuyor ama durumu sheet olarak degılde A ve B olarak nasıl ayırırız yanı s1 a s2 a dıye degılde dırek s1 a s1 b seklınde

Aklıma takılanlar bunlar oldu bu arada ılk cevap ıcın tekrardan ellerıne saglık hocam

 

[Necdet]

Merhaba,

Sheet2 sayfasındaki tüm A sütununu Sheet1 sayfasının Tüm A sütununda arar.
yani Sheet2 A2 değerini tüm Sheet1 A sütununda, sonra ;
Sheet2 A3 değerini tüm Sheet1 A sütununda arar.

2. sorunuzda "verilerin A ve B sütununda olursa, çözüm nasıl olur?" mu diye soruyorsunuz?

 

[lakebodom]

Tamamdır ilk sorumun cevabı tam istediğim gibi olmuş.
2. Sorum ise evet yani ben sheet1 sheet 2 gibi değilde Sheet 1 in içinde A sütunu B sütunu olarak ayarlamak istiyorum bunu nasıl yaparım yani hangi satırla oynamam lazım valla hocam cok soru soruyorum ama hakkaten en azından mantıgını birazcıkda olsa kavrayabılmek için.

 

[Necdet]

Merhaba,

Verilerin Aynı sayfada ve A ve B sütununda olduğunu varsayarak;

A sütunundaki veriler B sütununda aranız B sütununda bulunmayanlar D sütununda listelenir.

Sub AraYoksaYaz()
Dim s2 As Worksheet
Dim i As Long, j As Long
Dim c As Variant
Set s2 = Sheets("Sheet2")
s2.Select
Application.ScreenUpdating = False
Range("D2:D65536").ClearContents
j = 1
For i = 2 To [A65536].End(3).Row
    Set c = Range("B:B").Find(Cells(i, "A"), LookIn:=xlValues)
    If c Is Nothing Then
        j = j + 1
        Cells(j, "D") = Cells(i, "A")
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam " & j - 1 & " Adet Yeni Değer Bulundu..."
End Sub

 

[lakebodom]

Burda Rep vermek falan yok sanırsam ellerine sağlık hocam sen bu işi biliyorsun.

 

[Necdet]

Daha yolun başındayım

 

[lakebodom]

Necdet hocam sizin daha önce yazdığınız bir konuya baktım
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
Dim Son As Long
Son = [A65536].End(3).Row
Application.ScreenUpdating = False
Range("A2:A" & Son).Interior.ColorIndex = xlNone
For i = Son To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then
Cells(i, "A").Interior.ColorIndex = 15
End If
Next i
Application.ScreenUpdating = True
End Sub

Şöyle bir sistem var bu sistemi de ekleyebilirmiyiz misal D sütunu için

Yani D sütunundaki sonuçlar içerisinde mükerrer kayıt varsa yada satır boşluğu varsa bu mükerrer olanlar ve satır boşluğu olmadan benim bunu görüntülemem mümkünmüdür acaba

 

[lakebodom]

Sorunu filtreleme sistemi ile çözdüm sadece uniqe değerleri göster deyince istediğim sonuca ulaşıyorum ancak tabiki macronun içinde tek bir tıklama ile olsa daha iyi olur :d çok sağol yardımların için Necdet Hocam

 

[Necdet]

Merhaba,

Sayın lakebodom,

Ayrı sorular için ayrı başlık açarak ve örnek dosya ile birlikte sorunuz ki yanıt verecek arkadaşlar sorunu daha çabuk anlasınlar.

 

[lakebodom]

Olur olur benım ıcın sorun yok