B sutunundaki verilerin A sutunundan farkli olanlarini bulma

[elmam]

selam

Bu benim cok sık kullanmam gereken bır fonksıyon ama bılmıyorum.B sutununda bırsuru verim var A sutunumdada bırsuru verim var .B aslında A yı kapsıyor ama kapsamadıklarından benım ayrı bır lıste yapmam gereklı.Kısa yoldan nasıl yapabılırım

Cok tesekkurler

 

[Ali]

Ekteki dosyayı bir inceleyin

 

[Ali]

Winzip bende yok galiba rarlı dosya göndermek kısıtlanmış nedenini bilmiyorum..
size kodu göndereyim.,

A sütununda listeniz olsun. B sütununada A ile ortak verileriniz yazın kodu çalıştırdığınızda A sütununda ortak olmayan veriler kalacak.

Private Sub farkbul()
Dim aranacak As Range, aranan As Range
For Each aranan In [B1:B100]
For Each aranacak In [A1:A100]
If InStr(1, aranacak, aranan) > 0 And aranan <> "" Then aranacak.ClearContents
Next aranacak
Next aranan
End Sub

 

[Levent Menteşoğlu]

Winzip bende yok galiba rarlı dosya göndermek kısıtlanmış nedenini bilmiyorum..
size kodu göndereyim.

Sn fructose

Foruma dosyaların özellikle zip uzantılı olarak eklenmesini istiyoruz. Bunun sebebide winrar a herkesin sahip olmamasıdır. Sıkıştırılarak eklenmesi sadece forumda kapasite kullanımında bir tasarruf içindir. Ayrıca winrar ile zip olarakta dosyalarınızı sıkıştırabilirsiniz.

 

[elmam]

Tesekkurler de fakat

Bu kodu nereye yazmaliyim ..Bir de benim Ofiice programim ingilizce bu kodu bu sekildemi kullanmaliyim

keske zipli dosyayi ekleyebilseniz

 

[Ali]

VBA kodları için Türkçe İngilizce Office ayırımı yoktur.Alt+F11 ile Visual Basic Düzenleyici açın Insert menüsünden module ekleyip bu kodu içine ekleyip F5 tuşu ile kodu çalıştırın.

 

[elmam]

Bu süper oldu

ohh be sonunda rahatlıkla listelerimi oluşturabileceğim.Dün verileri altalta ekleterek countif ile saydırarak çözüm bulmuştum (B listesinin altına A listesini ekledim)

bu çok daha pratik oldu ..hemen kaydedeyim ben bunu.. bu forum harika...

çook teşekkürler fructose :lol: