Iki listenin farkı

[machool]

Sizden bir konu hakkında yardım rica ediyorum.eğer ilgilenebilirseniz sevinirim.yapmak istediğim şu.elimde bir ürün listesi var.bu listenin içindeki bazı ürünlerden oluşan daha küçük bir liste mevcut. Büyük listeden küçük listedeki ürünleri çıkarıp yeni bir liste oluşturabilir miyiz?örnek liste ekte mevcut.şimdiden teşekkürler...

 

[Muhammet Okumuş]

Aşağıda yazan kodu deneyin. Makroda acemi olduğum için böyle dolambaçlı yol izledim. Uzman arkadaşlar daha kısa çözüm sunabilirler. Emeğim boşa gitmesin diye paylaştım. Aşağıdaki kısa kod için bir buçuk saate yakın bir süre uğraştım. Umarım işinizi görür.

Sub Düğme13Tıklat()
Application.ScreenUpdating = False
Set b1 = Sheets("BÜYÜK LİSTE")
Set k1 = Sheets("KÜÇÜK LİSTE")
b1.Range("a1:e100").Copy Range("a1")
For i = 1 To b1.Range("a100").End(3).Row
If WorksheetFunction.CountIf(k1.Range("a2:a100"), Cells(i, 1)) <> 0 Then Rows(i).Clear
Next i
Range("A2:E20").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[machool]

Öncelikle emeğiniz için sağolun.Lakin ben yazdığınız kod excel de nasıl kullanılır hiç bir fikrim yok.Keşke kodu kullandığınız excel dosyasını upload etseydiniz.Tekrar sağolun...

 

[Muhammet Okumuş]

hocam dosyayı inceleyin. .

 

[machool]

çok teşekkürler.şimdilik bir sorun tespit edemedim çok güzel olmuş.ama sınırları biraz küçük olmuş.sanırım bu formül 100 satır için geçerli.a2 ile a100 arası.bunu genişletebilir miyiz?zira benim işlem yapacağım listeler yaklaşık 1200 satır falan olabilir.güncellenmiş dosyayı atarsanız sevinirim.tekrar sağolun.

EDIT: HOCAM BİRAZ KURCALADIM VE DÜZELTMEYE ÇALIŞTIM.

If WorksheetFunction.CountIf(k1.Range("a2:a100"), Cells(i, 1)) <> 0 Then Rows(i).Clear



BU SATIRDAKİ A100 DEĞERİNİ A1000 YAPTIM.BU DOĞRU VE YETERLİ BİR DÜZELTME MİDİR?

 

[machool]

Sanırım olmadı.kodun yazılım mantığını bilmediğim için sizden son bi ricam olacak.bu kodu a1-a10000 arasında işlem yapabilcek şekilde değiştirebilir misiniz?büyük liste de küçük listede 10000 hücrede işlem yapabilsin.sütun sayısının bir önemi yok sanırım.ama işlem yapacağım listelerde 10 kadar sütun olabiliyor.ama sanırım biz sadece farklı olan satırları sildiğimiz için sütun sayısında bir sınırlama olmasa gerek.şimdiden sağolun....

 

[Muhammet Okumuş]

Sn machool dosyanızı 10000 satır ve 10 sütunu kapsaycak şekilde düzenledim.

 

[machool]

çok teşekkür.....

 

[Muhammet Okumuş]

rica ederim. iyi çalışmalar.

 

[machool]

Hocam yaptığınız exceli inceledim.malesef 90 satırdan sonra çalışmıyor.birde çok ilginç büyük listeyi temizleyip farkları bul butonuna tıklayınca buton yok oluyor.nedeni nedir acaba? Düzeltme şansımız var mı?

EDİT:BÜYÜK LİSTEDEN İLK 100 SATIRI ALIYOR.SONRA KÜÇÜK LİSTEYE KAÇ TANE HÜCRE DOLDURURSAN O KADARINI ÇIKARIYOR VE FARKI ONA GÖRE OLUŞTURUYOR.MESELA BEN 1 DEN 156 YA KADAR BİR LİSTE OLUŞTURDUM.SONRASINDA 8 RAKAMI KÜÇÜK LİSTEYE ALT ALTA YAZDIM.FARK LİSTESİ 92 TANE RAKAMDAN OLUŞTU.100 DEN SONRASINI ALMIYOR YANİ.

 

[Muhammet Okumuş]

buton 1. satırda bulunmalı.
kodun

b1.Range("a1:e100").Copy Range("a1")

olan bölümünü

b1.Range("a1:j10000").Copy Range("a1")

şekinde düzeltiniz.