listede olanlara göre ayrıştırma

[birayfil]

sayfa1 a:a sütununda bulunan listede, sayfa2 a:a sütündekiler karşılaştırıp sayfa2 deki a:a sütunda sadece aynı olanlar sayfa2 a:a dan silip aynı olanı da sayfa2 b:b sütununde ayrıştırması.


örnek ektedir.

şimdi den teşekkürler.

 

[Mustafa MUTLU]

Sub Mükerrerleri_Sec()
Dim mm, mutlu
Sheets("Sayfa2").Range("b2:b65536").ClearContents
Application.ScreenUpdating = False
mutlu = 1
For mm = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & mm), Cells(mm, "A")) = 1 Then
Sheets("Sayfa2").Cells(mutlu, "B") = Sheets("Sayfa1").Cells(mm, "A")
mutlu = mutlu + 1
End If
Next
MsgBox "Mükerrerler işlemi tamamlanmıştır..", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
Application.ScreenUpdating = True
End Sub

 

[birayfil]

Sub Mükerrerleri_Sec()
Dim mm, mutlu
Sheets("Sayfa2").Range("b2:b65536").ClearContents
Application.ScreenUpdating = False
mutlu = 1
For mm = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & mm), Cells(mm, "A")) = 1 Then
Sheets("Sayfa2").Cells(mutlu, "B") = Sheets("Sayfa1").Cells(mm, "A")
mutlu = mutlu + 1
End If
Next
MsgBox "Mükerrerler işlemi tamamlanmıştır..", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
Application.ScreenUpdating = True
End Sub

teşekkür ederim zahmet verdim. Ama listeye göre ayrıştırma yapmıyor sayfa1 deki listeyi sayfa2 b:b sütuna kopyalıyor.

 

[Mustafa MUTLU]

teşekkür ederim zahmet verdim. Ama listeye göre ayrıştırma yapmıyor sayfa1 deki listeyi sayfa2 b:b sütuna kopyalıyor.

Kardeş Bu Kod
Sayfa1 A inceler.
A Sütunundaki tek olanları alır
A Sütunundaki 2 veye daha fazla tekrarlananları 1 tene olarak alır.
sonucu Sayfa2 b Sütununa yazar.

Sayfa 1 A sütununa aynı bir kaç veri yaz dene..
Kodu kendine uyarlarsın o zaman..
Örneğin: Sayfa1 ve Sayfa2 deki verileri bir sütuna dizer sonra mükerrersiz yazdırırsın istediğin yere..

Kodun çalışma yöntemini anlarsan kolaylıkla değiştirebilirsin..

 

[birayfil]

Kardeş Bu Kod
Sayfa1 A inceler.
A Sütunundaki tek olanları alır
A Sütunundaki 2 veye daha fazla tekrarlananları 1 tene olarak alır.
sonucu Sayfa2 b Sütununa yazar.

Sayfa 1 A sütununa aynı bir kaç veri yaz dene..
Kodu kendine uyarlarsın o zaman..
Örneğin: Sayfa1 ve Sayfa2 deki verileri bir sütuna dizer sonra mükerrersiz yazdırırsın istediğin yere..

Kodun çalışma yöntemini anlarsan kolaylıkla değiştirebilirsin..

hocam mantığı anladım sadece yanına içinden ayrıştırılan değil başkasını atıyor. bir de sayfa2 deki ayrıştırılanı silmiyor.

kodu ekledim nasıl gözüktüğünü ekte ekledim.