Ayrı sütunlardaki aynı değerleri yanyana almak istiyorum

[barbossaaa]

şimdi arkadaşlar a sütunuyla b sutunu arasında eşleştirme yapmam gerekiyor. örnek:
B sütunum 10000 kalem a sütunum 300 kalem
b sutunum sabit durcak a sutunumdaki referanslar b sutunundakı referan sların yanına kayacak yani

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarına Uymayan Başlıklar

.

 

[barbossaaa]

Değiştirdim yardımlarınızı bekliyorum

 

[adsoft]

örnek dosya gönderebilirmisin ?

 

[barbossaaa]

Dosyayı ekledim görceksiniz a sutununun 1satırındaki referans
b sutunun da baska bir yerde daha cıkıor
benım ıstedıgım a sutunundakınler b sutunundakı referanslarla çakıssın

 

[adsoft]

Dosyayı ekledim görceksiniz a sutununun 1satırındaki referans
b sutunun da baska bir yerde daha cıkıor
benım ıstedıgım a sutunundakınler b sutunundakı referanslarla çakıssın

ekte birşeyler yaptım fakat formül kullandım c sütununa eğer b sütunun gizleyipte bu şekilde çalışsan senin için uygun olur mu

 

[barbossaaa]

Benım istediğimle alakası yok desem yerıdır ben b sutununda olupta a sutunundakı olan referansları b sutunun yanına almasını ıstıyorum

 

[barbossaaa]

Moduretor arkadasımız bır yardımcı olsanız...

 

[Ömer]

Sorunuzu dosyadan anlayamadım. Eklediğiniz dosyanın sayfa2 de olmasını istediğiniz şekli 10 satırlık manuel hazırlayıp dosyayı tekrar eklermisiniz.

 

[barbossaaa]

Syn ömer bey bakın size soyle iza edeyim
a sutunundakı 1 referansı copyalayın we ctrl+f den yapıstırın
v4501 adlı referansım aynı sayfada b sutununda 2506. Sırada gordugunuz gibi
gelelim benım istediğime
a sutunundakı referansları b sutunundakı referanslarla yan yana sıralama
eger a sutunundakı 3 referansı b sutununda aratırsanız istediğimi göreceksiniz

not bu dosya ornektir. Menuel olarak düzenlenebilir
benim dosyam 25bin kalemden olusmaktadır

 

[f1delete]

aşağıdaki formülü dener misiz

=EĞER(B2=DÜŞEYARA(B2;$A$2:$A$298;1;0);B2;"")

 

[Ömer]

Alternatif olsun.

A sütunundaki veri B sütununda varsa tam karşılığı olarak A sütununda yerini alır, eğer A sütunundaki veri B sütununda yoksa bu veriler C sütununa sıralanır.

Sub Duzenle()
 
    Dim i As Long, c As Range, Adr As Variant, sat As Long
 
    Application.ScreenUpdating = False
    Range("C:C").ClearContents
 
    sat = 1
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        With Range("B:B")
            Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                  Cells(c.Row, "C") = Cells(i, "A")
                  Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            Else
                Cells(sat, "D") = Cells(i, "A")
                sat = sat + 1
            End If
        End With
    Next i
 
    Range("C:C").Copy Range("A1"): Range("D:D").Copy Range("C1")
    Range("D:D").Clear
 
End Sub

.