Eşleştirme

[kartalizma07]

Merhabalar
a sütununda , örneğimizde a1 ile a10 satırları arasında rakamlar var.(bu bir metinde olabilir)
c sütununda ise a sütünunda bulunan rakamlardan bazıları var.
ihtiyacım olan şu makro çalıştığında c sütüundaki değerler , a sütünundaki benzerleri ile eşleşsin ancak a sütununda hangi sırada ise b sütünunda onun karşısına gelecek.

umarım bir yolu vardır.

şimdiden teşekkür ediyorum

 

[Orion1]

Dosyanız ektedir.

Sub evren()
Dim i  As Long, sat As Long, x As Variant, k As Range, sat2 As Long
sat = Cells(65536, "A").End(xlUp).Row
sat2 = Cells(65536, "C").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To sat
    If Cells(i, "A").Value <> "" Then
        Set k = Range("C1:C" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            x = Cells(i, "C").Value
            Cells(i, "C").Value = k.Value
            k.Value = x
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[kartalizma07]

Hocam çok teşekkür ederim
eline sağlık

 

[TYPHOONS]

Daha karışık bir eşleşme, yardım lütfen!!

merhaba forumunuz çok güzel aydınatıcı bilgiler var. benimde bir sorum olacak ekli dosyada bir eşleşme yapmam lazım bana bu konuda yardımcı olabilirmisiniz.
teşekkur ederim.

 

[Orion1]

merhaba forumunuz çok güzel aydınatıcı bilgiler var. benimde bir sorum olacak ekli dosyada bir eşleşme yapmam lazım bana bu konuda yardımcı olabilirmisiniz.
teşekkur ederim.

A sütunu ile H sütununu eşleştirmek istiyorum demişsniz ama eşleştirme neticesinde ne yapılacağını yazmamaışsınız.
Eşleşenlerem işlem yapılacak.eşleşmeyenleremi işlen yapılacak.işlem nasıl yapılacak ve nereye yapılacak?

 

[TYPHOONS]

İlginize teşekkür ederim. şöyle izah edeyim. eşleşme sadece A ve H sütünü için olmayacak. devamları içinde gecerli olacak yani raporu 2 sayfaymış gibi düşünün. ve bu 2 sayfayı birbiriyle eşleştireceğiz. a+b+c+d+e bir bütün ve h+ı+j+k+l diğer bir bütün, a ve h eşleştiklerinde devamlarınında aynı satırlara yerleşmesi lazım. eşi olmayan bütünler ise raporun en alt satırına inecek. belki şimdi biraz daha açıklayıcı olabilmişimdir. yardımcı olabilirsen sevinirim.

 

[Orion1]

İlginize teşekkür ederim. şöyle izah edeyim. eşleşme sadece A ve H sütünü için olmayacak. devamları içinde gecerli olacak yani raporu 2 sayfaymış gibi düşünün. ve bu 2 sayfayı birbiriyle eşleştireceğiz. a+b+c+d+e bir bütün ve h+ı+j+k+l diğer bir bütün, a ve h eşleştiklerinde devamlarınında aynı satırlara yerleşmesi lazım. eşi olmayan bütünler ise raporun en alt satırına inecek. belki şimdi biraz daha açıklayıcı olabilmişimdir. yardımcı olabilirsen sevinirim.

Dosyanız ektedir.

Sub eslestir()
Dim sat1 As Long, sat2 As Long, i As Long, k As Byte
Dim j As Long, yok As Boolean
Dim hh, ii, jj, kk, ll, liste()
Application.ScreenUpdating = False
Range("M3:M65536").Clear
sat1 = Cells(65536, "A").End(xlUp).Row
sat2 = Cells(65536, "H").End(xlUp).Row
sat3 = sat2 + 1
liste = Range("H3:L" & sat2).Value
For i = 3 To sat1
    For j = 3 To sat2
        If Cells(i, "A").Value = Cells(j, "H").Value Then
            var = True
            Else
            var = False
        End If
        If var = True Then
            hh = Cells(i, "h").Value
            ii = Cells(i, "I").Value
            jj = Cells(i, "J").Value
            kk = Cells(i, "K").Value
            ll = Cells(i, "L").Value
            Cells(i, "H").Value = Cells(j, "H").Value
            Cells(i, "I").Value = Cells(j, "I").Value
            Cells(i, "J").Value = Cells(j, "J").Value
            Cells(i, "K").Value = Cells(j, "K").Value
            Cells(i, "L").Value = Cells(j, "L").Value
            Cells(i, "M").Value = 1
            Cells(j, "H").Value = hh
            Cells(j, "I").Value = ii
            Cells(j, "J").Value = jj
            Cells(j, "K").Value = kk
            Cells(j, "L").Value = ll
        End If
    Next j
Next i
For i = 3 To sat2
    If Cells(i, "M").Value = "" Then
        Range("H" & sat3 & ":L" & sat3).Value = Range("H" & i & ":L" & i).Value
        Range("H" & i & ":L" & i).ClearContents
        sat3 = sat3 + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tammalndı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[TYPHOONS]

İlginize ve emeğinize çok teşekkür ederim. ama zannedersen biraz anlatım hatası yapmışım. eşleştirme dosyanızı çalıştırımca fark ettim. eşleşmede baz alınacak ana sütünlar a ve h sütunları diğerleri (ı+j+k+l ) sadece büyünü takip edecekler.yani sadece a ve h eşletiği zaman diğerleri (ı+j+k+l ) eşleşme yapmadan h sütununu takip edecekler. yardımcı olabilirseniz sevinirim. teşekkürler.

 

[Orion1]

İlginize ve emeğinize çok teşekkür ederim. ama zannedersen biraz anlatım hatası yapmışım. eşleştirme dosyanızı çalıştırımca fark ettim. eşleşmede baz alınacak ana sütünlar a ve h sütunları diğerleri (ı+j+k+l ) sadece büyünü takip edecekler.yani sadece a ve h eşletiği zaman diğerleri (ı+j+k+l ) eşleşme yapmadan h sütununu takip edecekler. yardımcı olabilirseniz sevinirim. teşekkürler.

Dosyayı düzenledim.
7 numaralı mesajdan inidrebilirsiniz.

 

[TYPHOONS]

ilginiz için çok teşekkür ederim. benim eşleme yaptığım dosyada 800 satır var ve 700 den sonrasını eşleme yapmıyor belki satır sayısı fazla diyedir bilemiyorum.ama yinede emeğiniz için çok teşekkür ederim.

 

[Orion1]

ilginiz için çok teşekkür ederim. benim eşleme yaptığım dosyada 800 satır var ve 700 den sonrasını eşleme yapmıyor belki satır sayısı fazla diyedir bilemiyorum.ama yinede emeğiniz için çok teşekkür ederim.

a sütundakimi gurptamı.yoksa h sütunundaki gruptamı var 800 satır.
Ben satır sayısını a sütunundaki son satıra göre yaptım.Yani a sütununda son satır kaçınıcı satır ise o kadar yapıyor.Bir anlamda a sütunundaki gruptaki verileri esas veri olarak alıyor diher h sütununu a sütununa göre tarıyor.
Yani döngü a sutunundaki gruba göre oluyor.O grupta ne kadar satır varsa o kadar çalşıyor kodlar.Bunu siz daha önceden belirtmediğinzi için ben a sütunundaki grubu esas grup yaptım.

 

[bobili]

Eşleme

Arkadaşlar sorumun yanıtının çok basit olduğunu biliyorum, yardımlarınızı bekliyorum.Kullandığım otomasyon sistemi her zaman ihtiyacım olan dökümleri vermiyor, eşleme çok işime yarayacak.

 

[Orion1]

Arkadaşlar sorumun yanıtının çok basit olduğunu biliyorum, yardımlarınızı bekliyorum.Kullandığım otomasyon sistemi her zaman ihtiyacım olan dökümleri vermiyor, eşleme çok işime yarayacak.

Dosyanız ektedir.
=ETOPLA(Sayfa2!$A$2:$A$65535;Sayfa1!A2;Sayfa2!$C$2:$C$65536)

 

[bobili]

Evren hocam çok teşekkür ederim, küçük yardımınız beni ne büyük zahmetlerden kurtardı bir bilsen :dua2:

 

[Orion1]

Evren hocam çok teşekkür ederim, küçük yardımınız beni ne büyük zahmetlerden kurtardı bir bilsen :dua2:

Rica ederim.
İyi çalışmalar.