Aynılarını bul-kopyala-yapıştır makrosu.

[sarman61]

Selam arkadaşlar.

Elimde iki tane ürün dosyası var bunlardan bir tanesi benim ayıkladığım diğeri ise ayıklamayamadığım yani ayıklamaktan kastım bir tanesinin içindeki bazı ürün satırlarını sildim ürünler üretimden kalktığından. Şimdi bu ürün dosyasını şablon olarak kullanarak diğer ürün dosyalarını temizlemek istiyorum. Bu ürünlerin her birinin ayrı bir ürün kodu var.

Benim yapmak istediğim şu. Excel de yeni bir kitap açsam sayfa 1 ayıklamak istediğim listeyi yapıştırsam sayfa 2 yede şablon olan listeyi yapıştırsam. Yazılacak olan makro ile sayfa 1 deki ürün kodları ile sayfa 2 deki ürün kodlarını karşılaştıracak aynı olan ürün kodunun bulnduğu satırı kopyalayıp sayfa 3 yapıştıracak.

Bir tane örnek dosya koyuyorum.
Şimdi elle ayıklamaya çalıştım ama çok zamanımı alıyor. 45000 bin ürün var.

Bu işlemi yapmanın imkanı var mı.
Herkezin Şimdiden Mübarek Ramazan Bayramını en içten dileklerimle kutlarım. Saygılarımla

 

[sarman61]

Bu sorumun cevabı yok olsa gerek yada ben istediğim olayı anlatamadım. Bir daha yazayım.

Şimdi elimdeki excel dosyasının sayfa-1 de aşağıdaki gibi ürünler var.

Sayfa-1
-------A-------------B-------------C----------
1-___Ürün Kodu__|_Ürün Adı_____|__Üretici____
2-_987654321___|_Delphi_______|__Alfa Kitap_
3-_978652135___|_Flash8_______|__Türkmen__
4-_954782641___|_Flash Mx_____|__Pusula____

Yukarıdaki bilgiler sayfa1 de gözükmekte. Sayfa 2 de de sayfa 1 deki ürünlerin bir kısmı bulunmakta aşağıdaki gibi.

Sayfa-2
-------A-------------B-------------C----------
1-___Ürün Kodu__|_Ürün Adı_____|__Üretici____
2-_987654321___|_Delphi_______|____1______
3-_954782641___|_Flash Mx_____|____3______

Şimdi benim istediğim yazılacak makro ile sayfa 1 de ki ürün kodları ile sayfa 2 deki ürün kodlarını karşılaştırması sayfa 2 deki ürün kodlarından sayfa 1 de geçenleri sayfa 3 kopyalaması.

Sayfa-3
-------A-------------B-------------C----------
1-___Ürün Kodu__|_Ürün Adı_____|__Üretici____
2-_987654321___|_Delphi_______|__Alfa Kitap_
3-_954782641___|_Flash Mx_____|__Pusula____

İnşallah Anlatabilmişimdir.

 

[veyselemre]

Sub Suz_Kopyala()
    Set s1 = Sheets("Sayfa1")
    Set s3 = Sheets("Sayfa3")
    s1.Select
    sonA = [a65536].End(3).Row
    
    With Range("q2:q" & sonA)
        .Formula = "=COUNTIF(Sayfa2!A:A,Sayfa1!A2)"
        .Value = .Value
    End With
    [q1:r1] = "süz"
    [r2] = 1
    s3.Cells.ClearContents
    Range("a1:q" & sonA).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("r1:r2"), CopyToRange:=s3.[a1]    ', Unique:=True
    [q:r].ClearContents
    s3.Select
    [q:r].ClearContents
End Sub

 

[sarman61]

@veyselemre hocam Allah Razı olsun senden. Çok işime yaradı bu kod. Çok teşekkür ederim. Allah gönlüne göre versin. İyi çalışmalar.