Eşleştirme ile ilgili bir sorunum var.

[aspirin2000]

Excel sayfası içinden seri nosunu bulucak ve o satırın içinden ilgili kategorili dataları alıp başka bir sayfadaki dataların içine yerleştiricek bir formül yada makro arıyorum yardım edeceklerin ilgi ve emeğine çok teşekkürler.deneme dosyası ektedir.

 

[dEdE]

Merhaba,
Böyle birşey mi istemiştiniz?

 

[aspirin2000]

Teşekkürler ben bu makroyu kendi ana listeme göre uyarlamaya çalışıyım bu gece.Çok teşekkür ederim olup olmadığını haber veririm.

 

[aspirin2000]

Tam olarak uyarlayamadım ama hala üstünde çalışıyorum.

 

[aspirin2000]

uyarlayamadım maalesef kendi ana listemde sadece en alttakini güncelliyor üst tarafları boş bırakıyor nedendir.size benim ana listemi yollasam bakabilirmisiniz.

 

[aspirin2000]

Benim ana liste ekte.Bu sadece notebook listesi bunun gibi çok liste var ama bu bi olsa diğerlerini uyarlarım zaten aynı formatta olduğundan.İlginize çok teşekkürederim.

 

[dEdE]

Merhaba,
Yanlış anlaşılma ve boşuna yazışma olmaması için;
-Sayfa1 den hangi sütun Sayfa 2 de hangi sutuna getirilecek( Örn.Sayfa1 sütun G sayfa2 de sütun N ye gidecek gibi)
-Sayfa2 deki hangi sutundaki veriler Sayfa1 de aranacak (örn.Sayfa2 nin E sütunu Sayfa1 in D sütununda aranacak gib)
bunları bir kez daha yazarsanız iyi olur.

Çözüm kolay.
Hoşçakalın.

Not sadece en alttakini güncelliyor demişsiniz. Bu güncelleme doğrumudur. İlgili sütunlar gerekli yerlere yazılmış mıdır?

 

[aspirin2000]

evet sayfa 2 deki en alttaki sütunu güncelliyor ama üsttekileri güncellemiyor o yaptığı güncelleme doğru.Zaten sizin attığınız macroda gerekli ayarlamayı yapyım burdakini :

s2.Cells(ss, 10) = Cells(ActiveCell.Row, 1)
s2.Cells(ss, 3) = Cells(ActiveCell.Row, 2)
s2.Cells(ss, 7) = Cells(ActiveCell.Row, 3)
s2.Cells(ss, 5) = Cells(ActiveCell.Row, 5)
s2.Cells(ss, 12) = Cells(ActiveCell.Row, 4)
s2.Cells(ss, 13) = Cells(ActiveCell.Row, 6)
s2.Cells(ss, 14) = Cells(ActiveCell.Row, 7)
s2.Cells(ss, 15) = Cells(ActiveCell.Row, 8)

 

[dEdE]

Merhaba,
Aşağıdaki kodları kullanınız.

Sub Bul_dEdE()
Set s1 = Sheets(1)
Set s2 = Sheets(2)
Application.ScreenUpdating = False
For i = 2 To s2.[I65536].End(3).Row
 s1.Select
    With s1.Range("D:D")
        Set bul = .Find(s2.Cells(i, 9))
        If Not bul Is Nothing Then
        bul.Select
            s2.Cells(i, 10) = Cells(ActiveCell.Row, 1)
            s2.Cells(i, 3) = Cells(ActiveCell.Row, 2)
            s2.Cells(i, 7) = Cells(ActiveCell.Row, 3)
            s2.Cells(i, 5) = Cells(ActiveCell.Row, 5)
            s2.Cells(i, 12) = Cells(ActiveCell.Row, 4)
            s2.Cells(i, 13) = Cells(ActiveCell.Row, 6)
            s2.Cells(i, 14) = Cells(ActiveCell.Row, 7)
            s2.Cells(i, 15) = Cells(ActiveCell.Row, 8)
        End If
    End With
Next
s2.Select
Application.ScreenUpdating = True
End Sub

 

[aspirin2000]

Teşekkürler hemen deniyorum.Sonucu yazarım.

 

[aspirin2000]

Evet oldu çok teşekkürler.13000 satır için sistemi biraz zorlucaktır ama işimizi görücek çok saolun.