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

Katılım
18 Ağustos 2008
Mesajlar
7
Excel Vers. ve Dili
Exzel 2007 Türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Katılım
18 Ağustos 2008
Mesajlar
7
Excel Vers. ve Dili
Exzel 2007 Türkçe
Çok Teşekkürler...Halletmeye çalışacam...emeğinize sağlık
 
Katılım
18 Ağustos 2008
Mesajlar
7
Excel Vers. ve Dili
Exzel 2007 Türkçe
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...
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

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

Kod:
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
 
Son düzenleme:
Katılım
18 Ağustos 2008
Mesajlar
7
Excel Vers. ve Dili
Exzel 2007 Türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Üst