serileri kıyasla eşitle farklı sutuna cift olanları yaz

[kiziltilki]

Selam arkadaşlar.

bana A kolonuna yazacagım serileri daha önceden yazmış oldugum 1000 veya 1500 seri ile kendi aralarında kıyaslayacak yeni ekledigim serilerden daha önceki serilerin arsında aynısı varsa farklı bir sutuna yazacak buna benzer bişilere ihtiyacım var yardımcı olacak lara şimdiden tesekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya ekleyerek ne yapmak istediğinizi daha detaylı açıklayabilirmisiniz.

 

[kiziltilki]

İki adet dosya ekledim.kitap dosyası içinde 22 01 2007 isimli dosyadaki serileri aratacagız 22 01 2007 nin içindeki serilerden kitap içinde olanları farklı bir sutuna yazacak hepsi bu
ama her iki dosya içindeki seriler degişken olacak

 

[kiziltilki]

cevapsız bir sey mi istedim acaba :yardim:

 

[Korhan Ayhan]

Selamlar,

Örnek olarak eklediğiniz iki dosyanızıda belgelerim klasörü altına yerleştiriniz. Daha sonra "22 01 2007" isimli dosyanızı açıp aşağıdaki kodu uyguladıktan sonra çalıştırp deneyiniz. Umarım faydası olur.

Sub BENZERLERİ_LİSTELE()
    [I2:M65536] = ""
    Workbooks.Open ("Kitap1.xls")
    Workbooks("22 01 2007").Activate
    For X = 2 To [C65536].End(3).Row
    If WorksheetFunction.CountIf(Workbooks("Kitap1.xls").Sheets("Sayfa1").Range("C:C"), Cells(X, 3)) > 0 Then
    Cells(X, 9) = Format(CDate(Cells(X, 1)), "mmm.yy")
    Cells(X, 10) = CDate(Cells(X, 2))
    Cells(X, 11) = Cells(X, 3)
    Cells(X, 12) = Cells(X, 4)
    Cells(X, 13) = Cells(X, 5)
    End If
    Next
    [I:M].EntireColumn.AutoFit
    Workbooks("Kitap1.xls").Close
    MsgBox "BENZER KAYITLAR LİSTELENMİŞTİR.", vbInformation
End Sub

 

[kiziltilki]

elleriniz dert görmez inşallah
cok teşekkür ederim.

:arkadas: :hihoho:

 

[Hakan_S]

Selamlar

Merhabalar,

Çalışmayı gördüm çok güzel olmuş, bende buna benzer bir şey sormak istiyorum.

Örnek bir liste ekte sundum. Buradada biraz konuyu açayım.

Benim yapmak istediğim.

Sheet1'de stok kodlarım var,Sheet2'de ise kontrol edilecek liste. Kontrol edilecek listedeki kodları Sheet1'de bulunan stok listesiyle karşılaştırıp, aynı kodlardan varsa bunları bulup Sheet3'e atacak.

Karışıkmı oldu?


Stok Listesi (Sheet1) - Kontrol Edilecek Liste (Sheet2) - Sonuçlanan Liste (Sheet3)