vlookup ın işe yaramadığı bir durum

[seyfi27]

Herkese merhaba

formül kullanarak (vloookup işe yaramadı) aynı isimde olan ama farklı seri nolara sahip bir ürünü excelde yan yana getirmek istiyorum örnek dosya ekte. Herkese yardımları için şimdiden teşekkürler

 

[İhsan Tank]

Herkese merhaba

formül kullanarak (vloookup işe yaramadı) aynı isimde olan ama farklı seri nolara sahip bir ürünü excelde yan yana getirmek istiyorum örnek dosya ekte. Herkese yardımları için şimdiden teşekkürler

merhaba
h2 satırına

=EĞER(SÜTUNSAY($H$2:H2)>$G$2;"";İNDİS($A$2:$A$21;KÜÇÜK(EĞER($B$2:$B$21=$G$2;SATIR($A$2:$A$21)-SATIR($A$2)+1);SÜTUNSAY($H$2:H2))))

dizi formülüne çeviriniz. dizi formülü ctrl+shift+enter tuş kombinasyonu ile yapılır ve form,l,n başında ve sonunda

{ }

bu işaretler çıkar elle bu işaretleri koyduğunuzda formül hata verecektir. eğer ki formülü girip enter tuşuna bastıysanız hücre üzerine gelip f2 tuşuna bastıktan sonra strl+shift+enter tuş kombinasyonunu uygulayınız bu formülü yazıp sağ'a doğru çekiniz

 

[mancubus]

aşağıdaki makro

isim seri no
xxx 70001
xxx 70002
xxx 70003


şeklindeki veriyi

isim seri no
xxx 70001 70002 70003

şekline çevirmektedir. (isim A sütununda olmalı)

Option Explicit

Sub Consolidate()
'JBeaucaire  (9/18/2009)
'Columnar data is Sorted/Matched by column A values, merge all other cells into row format
Dim LastRow As Long, NextCol As Long
Dim LastCol As Long, Rw As Long, Cnt As Long
Dim delRNG As Range
Application.ScreenUpdating = False

'Sort data
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    
'Seed the delete range
    Set delRNG = Range("A" & LastRow + 10)
    
'Group matching names
    For Rw = LastRow To 2 Step -1
        If Cells(Rw, "A").Value = Cells(Rw - 1, "A").Value Then
            Range(Cells(Rw, "B"), Cells(Rw, Columns.Count).End(xlToLeft)).Copy _
                Cells(Rw - 1, Columns.Count).End(xlToLeft).Offset(0, 1)
            Set delRNG = Union(delRNG, Range("A" & Rw))
        End If
    Next Rw

'Delete unneeded rows all at once
    delRNG.EntireRow.Delete (xlShiftUp)
    Set delRNG = Nothing

'Add titles
    'NextCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    'LastCol = Cells(1, 1).CurrentRegion.Columns.Count
    'Range("B1", Cells(1, NextCol - 1)).Copy Range(Cells(1, NextCol), Cells(1, LastCol))

Cells.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

 

[seyfi27]

Cevaplarınız için teşekkürler,

İhsan bey dizi formülünün ne olduğunu ve ne işe yaradığını bilmediğimden mesajın ikinci bölümünde yazdığınız şeyi uygulayamadım, biraz daha açık yazabilirseniz sevinirim.

Teşekkürler...

 

[İhsan Tank]

Cevaplarınız için teşekkürler,

İhsan bey dizi formülünün ne olduğunu ve ne işe yaradığını bilmediğimden mesajın ikinci bölümünde yazdığınız şeyi uygulayamadım, biraz daha açık yazabilirseniz sevinirim.

Teşekkürler...

merhaba
bu link'te Yurttaş Hocanın Açıklamaları Mevcut Lütfen Tıklayın