İki sütunu karşılaştır.

[simetri.]

Merhabalar iyi çalışmalar.

Forumu epeyce taradım onlarca örneğe rast geldim.

Lakin benim işimi görmediler. Kendimde revize edemedim örnekleri.

Değerli yardımlarınızı bekliyorum saygıdeğer ustalar.


Kod şu şekilde olacak.

C2:C ile L2:L aralığını karşılaştıracak. Aynı veri her iki sütunda da var ise;

L sütununun aynı satırında bulunan K sütunundaki değeri,
C sütununda bulunan değerin satırına E sütununa yazacak.
C sütununda olupta L sütununda olmayan verilerin E sütunu boş kalacak.

Örnek dosyada durumun daha net gözükeceğini ümid ediyorum.

İyi günler.

 

[vardar07]

Merhaba. E2 hücresine aşağıdaki formulü uygulayıp denermisiniz.

=EĞER(EHATALIYSA(İNDİS($K$2:$K$11;KAÇINCI(C2;$L$2:$L$11;0)));"";İNDİS($K$2:$K$11;KAÇINCI(C2;$L$2:$L$11;0)))

 

[Orion1]

Dosyanız ektedir.

Sub karsilastir59()
Dim i As Long, sat1 As Long, sat2 As Long, k As Range
Range("E2:E" & Cells(Rows.Count, "C").End(xlUp).Row).Clear
Application.ScreenUpdating = False
sat1 = Cells(Rows.Count, "C").End(xlUp).Row
sat2 = Cells(Rows.Count, "L").End(xlUp).Row
For i = 2 To sat1
    If Cells(i, "C").Value <> "" Then
        Set k = Range("L2:L" & sat2).Find(Cells(i, "C").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            k.Offset(0, -1).Copy Cells(i, "E")
            Application.CutCopyMode = False
        End If
    End If
Next i
Range("E2:E" & sat1).Font.Size = 14
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[simetri.]

Merhabalar,

Çok teşekkür ederim Sayın Orion1.

Değerli hocam örnek dosyada dalgınlığıma gelmiş belirtmemişim.

Veriler değer olarak taşınıyor lakin E hücresinin biçimi bozuluyor. Sağdan / Soldan hizalama gibi

Bunun için neresini değiştirmeliyim acaba? Eğer çok fazla değişecek ise gerek de yok hani.

İkinci bir kod bağlayıp o şekilde de kullanabilirim.



Sayın Vardar07 ilginiz için size de teşekkür ederim. Kod ile olmak zorunda idi dosya.

Formülü de kullanan arkadaşlarımız çıkacaktır umarım.

 

[Orion1]

3 numaralı mesajdan dosyanızı tekrar indiriniz.

 

[simetri.]

Tekrar teşekkür ederim değerli hocam.

Saygılar.