Veri eşleştirme

[tahirturan]

MERHABA.

Sorunum şu:
a sütununda 1 den 100 kadar rakamlar var. sıralı
b sütununda da 1 den 100 kadar rakamlar var.
b sütunundaki değerleri a sütunu ile eşlemek istiyorum. yani a=b olmalı.

yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

Sorunuzu okuyunca hem hiç bir şey anlamadım, hem çok şey anladım.
Örnek dosya ile sorunuzu destekleyiniz.

Örneğin A sütunundaki rakamların hepsi B sütununda da var mı?
A sütunu sıralı ise ve B sütunundaki rakamlarda A sütunundaki rakamların aynısı ve değişik yerlerde ise, Sadece B sütununu sıralamak olur gibi,
ama, ama, öyle mi?

 

[tahirturan]

ya aslında ben yanlış yazdım. anlatım kolay olsun diye 1 den 100 e kadar dedim. olayın aslı şu: bi yerlerden gelmiş karışık sayılar var. bunları a sütununa kopyalayıp yapıştırdım. aynı sayılar başka bir dosyadan tekrar geldi, fakat sıralaması farklı. ben b sütunundakileri öyle bir sıralamak istiyorum ki a sütunundaki eşdeğerinin karşısına gelsin.

örneğin;
A B
12 13
18 22
22 12
13 18

İKEN
A B
12 12
18 18
22 22
13 13

OLSUN.

ÇOK TEŞEKKÜRLER

 

[Orion1]

Merhaba.
Önce A sütununu artan şekilde sıralayınız sonrada B sütununu artan şekilde sıralayınız.

 

[tahirturan]

www.tahirturan.info/esleme.xls linkinden dosyayı indirirseniz daha verimli olacak galiba. çünkü arada olmayan sayılar da varmış malesef. zatan amaç o. b sütununda olmayan sayıların tespiti.

 

[Necdet]

Doğru soru her zaman hızlı yanıtı getirir.

Sayın Orion2 çözümü vermiş

 

[tahirturan]

dediği doğru ama benim bu örnekte işe yaramıyor malesef. çünkü diyorum ya, b sütununda aralarda olmayan sayılar var. ben yanlış sordum ilk soruyu yani.

böyle olunca sonuç itibariyle olması gereken, olmayan sayıların boş hücre olması...


1 1
2 2
4 4
9
12 12
34 34
40
52 52

gibi

 

[Orion1]

Merhaba.
Benzeyenlri Csütununa taşıyor.
B sütununda benzemeyenler kalıyor.Ekli dosysyı inceleyiniz.
Bu Link vermeyi nasıl yaptığınız anlatırmısınız.Çok entersan geldi bana.
Bende böyle link verebilirmiyim.?

Sub eslestir()
Dim i As LongSheets("YOL").Select
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        Set k = Range("B1:B65536").Find(Cells(i, "A").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            Cells(k.Row, "B").Cut
            Cells(i, "C").Select
            ActiveSheet.Paste
        End If
    End If
Next
Application.CutCopyMode = False
MsgBox "İşlem tamamlandı", vbOKOnly + vbInformation
End Sub

 

[tahirturan]

Çok teşekkür ederim yardımın için. işim çözüldü

link olayıda şöyle: benim kendi adıma bir sitem var. ftp olarak oraya yükledim dosyayı

 

[Orion1]

Çok teşekkür ederim yardımın için. işim çözüldü

link olayıda şöyle: benim kendi adıma bir sitem var. ftp olarak oraya yükledim dosyayı

Rica ederim.
İyi çalışmalar.

 

[Seyit Tiken]

Gerçi arkadaşlar cevab vermişler. Az yakıtla aynı işlemin yapılabileceğini göstermek için basit bir kod hazırladık. İlk başlarda çetin bir soru gibi göründü.

Sub Düğme1_Tıklat()
[b1:b100].Value = [a1:a100].Value
End Sub

 

[Orion1]

Gerçi arkadaşlar cevab vermişler. Az yakıtla aynı işlemin yapılabileceğini göstermek için basit bir kod hazırladık. İlk başlarda çetin bir soru gibi göründü.

Sub Düğme1_Tıklat()
[b1:b100].Value = [a1:a100].Value
End Sub

Sayın hocam ,Arkadaş b sütununda olupta a sütununda olmayan değerleri arıyor aslında.Onun için yazdığım kod biraz uzun oldu.
Saygılar.

 

[Seyit Tiken]

Sayın Orion2, doğrudur, size hak veriyorum. Burda hep beraber öğreniyoruz, soranda cevaplayanda. Sitemizin sanki geleneği haline gelmiş, bir soru soruluyor, soruya çözüm getiren farklı cevaplar geliyor. Bu aynı zamanda EXCEL'in hem gücünü gösteriyor hemde yeni bilgilerde öğreniyoruz. Uzun yoldan(çok yakıtla) verilen bir cevap; kısa yoldan(az yakıtla) verilen cevab için sebep teşkil eder. Bunları biraz böyle; sohbet/muhabbet babında söylüyorum. Saygı ve sevgilerimi sunuyorum.

 

[tahirturan]

merhaba,

aynı konuda ek bir bilgiye ihtiyacım var:

b sütunundaki veriyi kontrol edip a sütunundaki karşısına yazarken aynı satırdaki d,e,f sütunlarınıda beraber taşımasını istiyorum. Bu mümkün mü?