İki Sütündaki Envanter KOdlarını Arama Bulma ve Başka Çalışma Sayfasına Yazdırma Soru

[PéRWaNé]

Sayın Forum bilirkişileri ekteki dosyada a sütunu ve e sütunu envanter kodlarını karşılaştıracağım ve aynı olanları başka bir çalışma sayfasına yazdıracağım ve kaç tane olduğunu falan saydıracağım....Yardımlarınız için Şimdiden Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Eşleşen kodları diğer sayfaya aktarmaktadır. Saydırma işlemini nasıl yapmak istediğinizi belirtmediğiniz için ekleyemedim. Sanırm onu kendiniz halledebilirsiniz.

 

[PéRWaNé]

Çok Teşekkürler...Halletmeye çalışacam...emeğinize sağlık

 

[PéRWaNé]

Dosyayı Vakit Bulamadığım için inceleyememiştim....Ama bu yanlış olmuş...Ben Sadece karşılaştırma istiyorum bu bütün envanteri aynen yazmış diğer satfaya...Ben eşleştirme işleminden sonra aynı stok kodu olanları atmasını istiyorum karşılaştırma sayfasına...Mümkün mü bu...Uğraştım ama olmuyor...

 

[PéRWaNé]

İmdaaat

Arkadadaşlar yardım Lütfen

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde nasıl bir tablo oluşturmak istediğinizi belirtirmisiniz.

 

[PéRWaNé]

Örnek Dosyada Belirtildiği üzere yardımlarınızı bekliyorum....
Şimdiden Teşekkürler...

Ekli dosyayı görüntüle 48282

 

[Korhan Ayhan]

Selamlar,

Listeleme yapılırken hangi sütundaki stok isimleri yazılacak?

Aşağıdaki kodu deneyin. Eksikleri varsa düzeltebiliriz.

Sub KARŞILAŞTIR()
    Application.ScreenUpdating = False
    Set S1 = Sheets("ENVA")
    Set S2 = Sheets("KARŞILAŞTIRMA")
    S2.[A2:IV65536].ClearContents
    SATIR = 2
    
    For X = 2 To [A65536].End(3).Row
    Set BUL = [E:E].Find(Cells(X, 1), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    S2.Cells(SATIR, 1) = Cells(X, 1)
    S2.Cells(SATIR, 2) = Cells(X, 2)
    SATIR = SATIR + 1
    End If
    Next
    
    S2.Select
    Columns("A:B").ColumnWidth = 50
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[PéRWaNé]

Zaten Karşılaştırma yapılacağı için hangi sütundan alacağının bir önemi var m ı bilemiyorum...İlginize teşekkür ettim.Elinize kolunuza sağlık...237 adet ürün buldu acaba doğru mudur? Çok teşekkürler...

 

[Korhan Ayhan]

Selamlar,

İki sütundaki isimler farklı fakat kodlar aynı mesela aşağıdaki kodu kontrol edebilirsiniz.

1875051 nolu kodu ENVA isimli sayfada aradığınızda;

A sütununda TINA-QUANT C4 912/MOD P ismi ile görünürken
E sütununda ise Tina Quant C4 2x18 ml. ismi ile görünmektedir.

Sizin için farketmiyorsa sorun yok demektir.