listeler mükerrer veri

[champion]

Arkadaşlar bir türlü işin içinden çıkamadım..Çözümü çok basit olabilir ama acemi olunca iş değişiyor tabii..Ekteki dosyanın içine ne yapmak istediğimi yazdım..Mükerrer kayıtlarla ilgili örnekleri incelememe rağmen çözemedim lütfen yardımcı olabilir misiniz..

 

[Orion1]

Merhaba
Sorunuzdan anladığım kadarı ile yapmaya çalıştım.
Ekli dosyayı inceleyiniz.

 

[hamitcan]

Ben de anladığım kadarıyla bir kod yazdım.

Sub CIKARTT()
Columns(5).Clear
c = 1
For t = 2 To [d65536].End(3).Row
Set bul = Columns("a").Find(Cells(t, "d"), LookAt:=xlWhole)
If Not bul Is Nothing Then
Else
c = c + 1
Cells(c, "e") = Cells(t, "d")
End If
Next
End Sub

 

[champion]

Yardımlarınız için teşekkür ederim..Bu konudaki cehaletimi mazur görün lütfen.İstediğim ;
stok sütunundakilerle değişenler sütunundakiler karşılaştırılıp,stok sütununda olup değişenler sütununda olmayanların ayrı sütuna alınmasını istiyorum..umarım anlatabilmişimdir..

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub CIKARTT()
Columns(6).Clear
c = 1
For t = 2 To [c65536].End(3).Row
Set bul = Columns("a").Find(Cells(t, "c"), LookAt:=xlWhole)
If Not bul Is Nothing Then
Else
c = c + 1
Cells(c, "f") = Cells(t, "c")
End If
Next
End Sub

 

[champion]

Aşağıdaki şekilde dener misiniz?

Sub CIKARTT()
Columns(6).Clear
c = 1
For t = 2 To [c65536].End(3).Row
Set bul = Columns("a").Find(Cells(t, "c"), LookAt:=xlWhole)
If Not bul Is Nothing Then
Else
c = c + 1
Cells(c, "f") = Cells(t, "c")
End If
Next
End Sub

Yardımlarınız için çok teşekkür ederim..Sağolun tam istediğim gibi oldu fakat sayfa4! te çalışmıyor nedense..Tüm sayfalarda çalıştı ama sayfa4`te çalıştıramadım..uğraştırıyorum sizi ama bunu da hallederseniz çok sevinirim.

 

[hamitcan]

Her sayfada STOK ve DEĞİŞENLER sütununun yerini değiştirmişsiniz. Kod sizin dördüncü mesajına göre uyarlanmıştır. Bu yüzden yanlış çalışmaktadır.Verilerinizi bu şekilde değiştirerek kodu tekrar çalıştırın.

 

[champion]

Çok TeŞekkÜr Ederİm SaĞolun