a stunundaki isimlerin b ile karşılaştırılması

[Murat-Ankara]

Merhaba ,
A stununda ki firma isimlerinden B stununda yer alan isimleri ayırmak istiyorum bana gerekli olan A stunundaki Listede bulunanlardan B de yer alanları C stununda görebilmek ancak C ye aktardığında satır boşlukları ile beraber A daki veya C deki sıralama bozulmadan görebilirmiyim, yardımcı olursanız çok sevinirim.

 

[Murat-Ankara]

Merhaba ,
A stununda ki firma isimlerinden B stununda yer alan isimleri ayırmak istiyorum bana gerekli olan A stunundaki Listede bulunanlardan B de yer alanları C stununda görebilmek ancak C ye aktardığında satır boşlukları ile beraber A daki veya C deki sıralama bozulmadan görebilirmiyim, yardımcı olursanız çok sevinirim.[/QUO

A stununda 690.000 firma ismi var ,mecburen azalttım buradan yükleyebilmek için ,690.000 satırı görmesi gerekiyor.

 

[Muhammet Okumuş]

C sütunuda boşluk olacak mı?

 

[Murat-Ankara]

C sütunuda boşluk olacak mı?

evet olacak ,c stunundakilerin a ile birebir sırayı takip etmesi gerekiyor,arada stır boşlukları olmalıki sıra bozulmasın,

çok teşekkür ederim

 

[Muhammet Okumuş]

Dosyayı inceleyiniz. Veriler çok olduğu zaman program kasabilir.

 

[Murat-Ankara]

Dosyayı inceleyiniz. Veriler çok olduğu zaman program kasabilir.

çok teşekkürler bunu denedim ancak bu liste tam olarak istediğimi yapmıyor ,A stununda olan firma isimlerinden B stunundaki firma isimlerinin C de görünmesi gerekiyor A stunundaki sıralama bozulmadan sadece B stunundaki isimler A STUNUNDAKİ HANGİ SIRADA VARSA C DEDE BU SIRALAMAYI KORUMASI GEREKİYOR SÜZDÜKTEN SONRA C DEKİ SIRALAMA A SIRALAMANIN AYNISI B DE OLAMAYAN FİRMALAR C DE OLMADIĞI YERDEDE BOŞ SATIRLAR OLMASI B DE OLAN FİRMALARDA AYNI A SIRALAMASI YERİNDE OLMASI GEREKİYOR,ANLATABİLDİMMİ BİLMİYORUM.

MÜMKÜN DEĞİLSEDE EMEĞİNİZE SAĞLIK ÇOK TEŞEKKÜR EDERİM

 

[Muhammet Okumuş]

Sub Süz()
Range("C1:C1000000") = ""
Application.ScreenUpdating = False
son = Range("A1000000").End(3).Row
Application.Calculation = xlCalculationManual
Range("C1:C" & son) = "=IF(COUNTIF(B:B,A1)>0,A1,"""")"
Application.Calculation = xlCalculationAutomatic
Range("C1:C" & son) = Range("C1:C" & son).Value

End Sub

Bu kodları kullanın ama veri 100.000 satır olunca çok uzun sürer hatta programı kitleyebilir.

 

[peseso]

muhammet okumuş hocam sanki ilk seferde doğru cevap vermiş isterseniz b ve a sütununun yerini değiştirip boşluklu yazan tuşu tekrar çalıştırırsanız oluyor gibi

 

[peseso]

muhammet okumuş hocam sanki ilk seferde doğru cevap vermiş isterseniz b ve a sütununun yerini değiştirip boşluklu yazan tuşu tekrar çalıştırırsanız oluyor gibi

 

[Muhammet Okumuş]

İlk eklemiş olduğum dosyada A sütununda yer alan B sütunu verileri C sütununda listeleniyor.
İkinci eklemiş olduğum dosyada B sütununda yer alan A sütunu verileri C sütununda listeleniyor.