Ara bul ve yapıştır

[tar23]

Selam;
Arkadaşlar ekteki dosyada c sütununda olan ve aynı zamanda b sütununda olan verileri karşılaştırıp aynı olanların d sütununa yazılması gerekiyor bu şekilde olmazza baştaki rakamlara görede sıralama olabilir yardımlarınızı bekliyorum teşekkürler

 

[İhsan Tank]

birbirinle eşit olan yok ki_?
nasıl ayırt edeceğiz bunları

 

[tar23]

zaten çoğu uyuşmuyor amaçta uyuşmayanları çıkarmak enbaştaki rakam serisi ile birlikte isimler uyuşuyor (fakat kimi isim uzun kimisi kısa)

 

[İhsan Tank]

zaten çoğu uyuşmuyor amaçta uyuşmayanları çıkarmak enbaştaki rakam serisi ile birlikte isimler uyuşuyor (fakat kimi isim uzun kimisi kısa)

merhaba

Option Explicit
Sub eşit_olan()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Aynı Verileri Çıkartıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
kaplan = 2
For ts = 2 To Cells(1048576, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B2:B1048576"), Range("C" & ts)) > 0 Then
Cells(kaplan, "D") = Cells(ts, "C")
kaplan = kaplan + 1
End If
Next
MsgBox "Verileri Çıkarttım", vbInformation, "Bitiş"
End Sub

bu kodu bir dener misiniz.
çok veri olduğu için yavaş çalışır

 

[tar23]

dasyayı biraz kısalttım kodları nasıl çalıştıracağımı tam olarak bilmiyorum biraz anlatırsanız veya formül ile yaparsanız sevinirim ilginize çok teşekkürler

 

[İhsan Tank]

dasyayı biraz kısalttım kodları nasıl çalıştıracağımı tam olarak bilmiyorum biraz anlatırsanız veya formül ile yaparsanız sevinirim ilginize çok teşekkürler

eki inceleyin
sayfaya bir buton ekledim ona tıklayarak deneyebilirsiniz

 

[tar23]

Sayın İhsan Tank;
elinize sağlık dosyanızı aldım çalışıyor fakat c sutununun b sutunundaki karşıkıllarının gelmesi gerekiyordu yeni dosya ekledim yardımlarınız için çok teşekkürler

 

[İhsan Tank]

Sayın İhsan Tank;
elinize sağlık dosyanızı aldım çalışıyor fakat c sutununun b sutunundaki karşıkıllarının gelmesi gerekiyordu yeni dosya ekledim yardımlarınız için çok teşekkürler

merhaba
kod'u bununla değiştirin

Option Explicit
Sub karşılık()
Dim ts, kaplan, trabzonspor, bordo_mavi
bordo_mavi = MsgBox("Veri Karşılıklarını Çıkartıyorum", vbYesNo, "Onay")
If bordo_mavi = vbNo Then Exit Sub
Range("D:D").ClearContents
kaplan = 2
For ts = 2 To Cells(65536, "B").End(xlUp).Row
Cells(ts, "E") = Mid(Range("B" & ts).Value, 1, 10)
Cells(ts, "F") = Mid(Range("C" & ts).Value, 1, 10)
Next
For trabzonspor = 2 To Cells(65536, "E").End(xlUp).Row
If WorksheetFunction.CountIf(Range("F2:F65536"), Range("E" & trabzonspor)) > 0 Then
Cells(kaplan, "D") = Cells(trabzonspor, "B")
kaplan = kaplan + 1
End If
Next
Range("E:F").ClearContents
MsgBox "Karşılıklar Çıkarıldı", vbInformation, "Onay"
End Sub

 

[tar23]

Sayın Tank ilginiz için çok teşekkürler proğramsız bir seyahate çıktım ve zaman ayıramadım yapmış olduğunuz tabloyu şimdi uyguladım çok işime yaradı emeğinize sağlık bizlere zaman ayırmanız ve bilgilerinizi paylaşmanız harika tekrar teşekkürler

 

[İhsan Tank]

Sayın Tank ilginiz için çok teşekkürler proğramsız bir seyahate çıktım ve zaman ayıramadım yapmış olduğunuz tabloyu şimdi uyguladım çok işime yaradı emeğinize sağlık bizlere zaman ayırmanız ve bilgilerinizi paylaşmanız harika tekrar teşekkürler

rica ederim
:yazici:

 

[sahin19920131]

eyw kardeş bende böyle bi formül arıyodum cok sagol