farklı sekmelerdeki aynı satırları eşleştirip karşısına ilgili veriyi yazdırma

[EMREKAYA]

Arkadaşlar merhaba,

Ekte bir deneme.xls dökümanımız var. Bu dosyanın içerisinde X ve Y sekmeleri yer almakta. Şimdi X ve Y sekmelerini bir şekilde karşılaştırmam lazım. Bunun için makro kullanmak istiyorum.

X sekmesindeki her satırda yer alan ürünü, malzeme kodundan okusun.
Bu sekmede yer alan her satırı gidip Y sekmesindeki satırlarda arasın(ararken malzeme kodunu baz alsın B kolonu).
Eğer y sekmesinde varsa; X sekmesine ilgili ürün satırına "h kolonuna" toplam adeti yazsın.
Bu dosyalar yaklaşık 4000-5000 satırdan oluşuyor.

Yardımlar için şimdiden teşekkürler arkadaşlar...

 

[Orion1]

Dosyanız ektedir.
Y sayfasınsa J sütununlarını topluyor.

Sub topla_aktar()
Dim sat1 As Long, sat2 As Long, sh2 As Worksheet, i As Long, k As Range
Sheets("X").Select
Range("H2:H65536").Clear
Set sh2 = Sheets("Y")
sh2.Range("M2:M65536").Clear
sat1 = Cells(65536, "B").End(xlUp).Row
If sat1 < 2 Then Exit Sub
sat2 = sh2.Cells(65536, "B").End(xlUp).Row
If sat2 < 2 Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To sat1
    Set k = sh2.Range("B2:B" & sat2).Find(Cells(i, "B").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "H").Value = k.Offset(0, 8).Value
        k.Offset(0, 11).Value = "X"
    End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Set sh2 = Nothing
MsgBox "İşlem sonuçlandı" & vbLf & _
"evrengizlenqhotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[mancubus]

.............

 

[EMREKAYA]

teşekkürler Evren Gizlen

 

[Orion1]

teşekkürler Evren Gizlen

Rica ederim.

 

[EMREKAYA]

Tekrar Merhabalar,

Yukarıdaki kodta Y den okutup X e yazdırdık. Peki, Y den okunup X yazılanlar için bir işaret koydurmak istesek. Y de olupta X te olmayanlarıda, Y de görmek istiyorum.

Örneğin Y deki bir satırı gitti, X te buldu ve ilgili yerine yazdı sonra tekrar Y' ye ilgili satıra gidip orayı renklendirse yada yanına 1 atasa gibi bir işaret koymak mümkün müdür? Böylelikle Y de işaretlenmemiş olanların X te olmadığının tahlilini yapabileceğim.

Şimdiden çok Teşekkür ederim

 

[Orion1]

Peki x sheetinde olan malzeme kodları Y sheetinde 1 den fazla tekrar edilme ihtimali varmı.Ben worksheetfunction etopla uyguladım.Yani tek tek bulmuyor.
Varsa topluyor.Nerde olursa olsun.1den fazla satırdada olsa ayni koddan bulursa topluyor onları.Yani ETOPLA fonksiyonunu VBA'da uyguladım.
Şimdi vereceğiiniz yanıta göre kodda düzenleme yapıp ona göre yazacam.

 

[EMREKAYA]

hyr aynı satırın birden fazla tekrar etme ihtimali yok. Zaten bunlar envanter listeleri olduğundan, rapor çekince ilgili kalemin toplamını tek satırda yazıyor.

Ama X te olan bir kalemin Y de olamama, Y de olan bir kalemin de X te olmama ihtimali var.

X üzerinde düzenleme yapacağım için; Y de olanları Y den alıp X taşıdığımızdan eğer taşınanlara bir işaret koyarsak, Y ye dönüp X te olmayan kalemleri orada görebileceğim ve listeye manual ekleyebileceğim.


Teşekkürler

 

[Orion1]

hyr aynı satırın birden fazla tekrar etme ihtimali yok. Zaten bunlar envanter listeleri olduğundan, rapor çekince ilgili kalemin toplamını tek satırda yazıyor.

Ama X te olan bir kalemin Y de olamama, Y de olan bir kalemin de X te olmama ihtimali var.

X üzerinde düzenleme yapacağım için; Y de olanları Y den alıp X taşıdığımızdan eğer taşınanlara bir işaret koyarsak, Y ye dönüp X te olmayan kalemleri orada görebileceğim ve listeye manual ekleyebileceğim.


Teşekkürler

Dosyayı 2 numaralı mesajdan indirebilirsiniz.

 

[EMREKAYA]

emekleriniz için sonsuz teşekkürler, sağolun

 

[Orion1]

emekleriniz için sonsuz teşekkürler, sağolun

Rica ederim.
İyi çalışmalar.