Benzersizleri Çıkarma

[bytoprak]

Merhaba Arkadaşlar;

Anlatması biraz karışık ama elimden geldiğince anlatmaya çalışacağım lakin raporlamam gereken bir dosya var ve bugn bunu çözmem lazım.

A sütununda 1900 tane sayılardan oluşan veri var B sütununda ise 1180 tane sayılardan oluşan veri var. Ben bu iki sütundaki verilerin benzersizlerini çıkarmam lazım. Hani Filte>Gelişmiş fonksiyonu ve Yenilenleri Kaldır seçeneğinden yapıyorum ama A sütunundaki 1900 veri aynı duruyor B sütunundaki veriler 81 e düşünüyor. Fakat 1900 ile 1180 çıkardığımızda 720 sayı farksız bulmam lazım çünkü A sütunundaki veriler B sütununda da var.

Bana yardımcı olabilir misiniz?

Tşk

 

[Orion1]

Örnek dosya eklerseniz daha çabuk yardım alabilirsiniz kanaatindeyim.

 

[bytoprak]

Örnek dosya eklerseniz daha çabuk yardım alabilirsiniz kanaatindeyim.

Yanlış anlaşılma olmasın içindeki bilgiler önemli olduğundan dosyayı ekleyemiyorum.

 

[Orion1]

Yanlış anlaşılma olmasın içindeki bilgiler önemli olduğundan dosyayı ekleyemiyorum.

Bende zaten orjinal dosyanızı demedim.,
İçinde uyduruk veriler olan 10-15 satır eklerseniz sanırım konuyu anlamak için yeterli olur.

 

[bytoprak]

Bende zaten orjinal dosyanızı demedim.,
İçinde uyduruk veriler olan 10-15 satır eklerseniz sanırım konuyu anlamak için yeterli olur.

Deneme olarak yaptım buyrun ektedir. Bunun bahsettiğim sayılardaki gibi düşünün ..

 

[bytoprak]

Cevap verebilecek kimse yok mu?

 

[Orion1]

a sütununda olupta b sütununda olanları b sütunundan siler.
dosyanız ektedir.

Sub benzersizler59()
Dim sat1 As Long, sat2 As Long, i As Long, k As Range
Sheets("Sayfa1").Select
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat1 To 2 Step -1
    Set k = Range("B2:B" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then k.Delete
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[bytoprak]

a sütununda olupta b sütununda olanları b sütunundan siler.
dosyanız ektedir.

Sub benzersizler59()
Dim sat1 As Long, sat2 As Long, i As Long, k As Range
Sheets("Sayfa1").Select
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat1 To 2 Step -1
    Set k = Range("B2:B" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then k.Delete
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

Peki tům verileri a sütununa girsem b sütununa çıkarır mi?

 

[Orion1]

Peki tům verileri a sütununa girsem b sütununa çıkarır mi?

Önce yazdığım kod oldumu,doğru çalıştımı,yoksa isteğinizi karşılamadımı?
Şunun için sordum ben tam olarak anlayamadım,benzerlermi çıkacak,yoksa benzemeyenlermi?

 

[bytoprak]

Önce yazdığım kod oldumu,doğru çalıştımı,yoksa isteğinizi karşılamadımı?
Şunun için sordum ben tam olarak anlayamadım,benzerlermi çıkacak,yoksa benzemeyenlermi?

Denedim ama filtreleme ile aynı şey oldu...

A sütununda 1900 tane sayılardan oluşan veri var B sütununda ise 1180 tane sayılardan oluşan veri var. Ben bu iki sütundaki verilerin benzersizlerini çıkarmam lazım. Yani arada 720 benzersiz olması lazım ..

Peki bunu tek sütunda toplasak tüm verileri b sütununda alabilir miyiz? Dosyada denedim ama olmadı

 

[Orion1]

Denedim ama filtreleme ile aynı şey oldu...

A sütununda 1900 tane sayılardan oluşan veri var B sütununda ise 1180 tane sayılardan oluşan veri var. Ben bu iki sütundaki verilerin benzersizlerini çıkarmam lazım. Yani arada 720 benzersiz olması lazım ..

Peki bunu tek sütunda toplasak tüm verileri b sütununda alabilir miyiz? Dosyada denedim ama olmadı

Çıkarıcam derken, silecekmisiniz,yoksa eldemi edeceksiniz?

 

[bytoprak]

Çıkarıcam derken, silecekmisiniz,yoksa eldemi edeceksiniz?

elde etmem lazım

 

[Orion1]

alt alta koysanız sanırım daha kolay olacak.
öyle yapın tekrar dosyanızı yolayın.

 

[bytoprak]

alt alta koysanız sanırım daha kolay olacak.
öyle yapın tekrar dosyanızı yolayın.

Gönderdiğiniz dosyada yaptım ama b sütununa bişey çıkarmıyor

 

[Orion1]

Gönderdiğiniz dosyada yaptım ama b sütununa bişey çıkarmıyor

siz yapın dosyayı buraya ekleyin.Ben o bahsettiğim konuya göre kod yazacam.

 

[bytoprak]

siz yapın dosyayı buraya ekleyin.Ben o bahsettiğim konuya göre kod yazacam.

Aynı verilerin alt alta tek sütunda olduğunu düşünün .... ama sanırım sonu yine aynısı olacak ben mantık getiremedim doğrusu ...

 

[Orion1]

Aynı verilerin alt alta tek sütunda olduğunu düşünün .... ama sanırım sonu yine aynısı olacak ben mantık getiremedim doğrusu ...

Alt alta verileri getirin.Sonrada o sütuna gelişmiş süzgeç uygulayın. sanırım olur öyle.

 

[bytoprak]

Alt alta verileri getirin.Sonrada o sütuna gelişmiş süzgeç uygulayın. sanırım olur öyle.

Dediğiniz gibi yapıyorum ama a sütununda 1900 veri kalıyor b sütunundaki 1180 veriden 81 kalıyor yani a sütunundaki veriler silinmiyor..

 

[Orion1]

Dediğiniz gibi yapıyorum ama a sütununda 1900 veri kalıyor b sütunundaki 1180 veriden 81 kalıyor yani a sütunundaki veriler silinmiyor..

bana bir dosya yollayın tekrar.bakayım.Kalmammsı lazıım.sonunda veya başında boşluk vardır belkide.Ondan ayni zannetmiyor olabilir.

 

[bytoprak]

bana bir dosya yollayın tekrar.bakayım.Kalmammsı lazıım.sonunda veya başında boşluk vardır belkide.Ondan ayni zannetmiyor olabilir.

Baktım ama boşluk vs yok dosyayı paylaşamıyorum ama verdiğim rakamlarda bir veri olduğundan yola çıkarak tahmin edebilirsin diye düşünüyorum