iki tabloyu karsılaştırma ve karşısına yazma

[celerimbor]

slm,
örnek excelde iki sayfadaki iki tabloyu ilk sayfadaki ilk sütuna göre karşılaştırıp ikinci sayfadaki 3. sütundakileri nasıl ekliyorduk? bir kez yaptığımı hatırlıyorum fakat bulamadım. yardımcı olursanız sevinirim unutmuşum.

 

[celerimbor]

dosya eklemeyi unutmusum

 

[Murat OSMA]

Deneyiniz...

Sub bul()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim alan1 As Range, alan2 As Range
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    For Each alan1 In s1.Range("A2:A15")
    For Each alan2 In s2.Range("A2:A9")
    If alan1.Value = alan2.Value Then
    alan1.Offset(0, 2).Value = alan2.Offset(0, 2).Value
    End If
    Next alan2
    Next alan1
End Sub

 

[celerimbor]

ben cahilim hocam örnek üzerinde gösterebilirmisin acaba

 

[Murat OSMA]

Estağfurullah...

Ayrıca diğer sayfadaki benzer değerleri görebilmeniz için kodlara bu kodu da ilave ettim;

alan1.Offset(0, 2).Font.ColorIndex = 3

Dosyayı aşağıdaki linke tıklayarak indirebilirsiniz.
↓ -- -- -- -- -- -- -- ↓

 

[celerimbor]

eyvallah hocam saolasın çok işime yarayacak. ilgin için teşekkür ettim

 

[Murat OSMA]

Rica ederim.
Lütfen Türkçe yazım kurallarına dikkat edelim.

İyi akşamlar...

 

[Merhum İdris SERDAR]

dosya eklemeyi unutmusum

.
Alternatif olarak, formülle yapılmış...

.