karışık listeden seçilenin sıralanması

[birayfil]

karışık bir listem var, bu listeden her hangi birini yazdığım zaman bana karışık listeden ayrı olarak o listeyi versin, liste çok uzun o yüzden formül düşeyara sız olursa sevinirim.

şimdiden teşekkürler,

 

[İhsan Tank]

listeniz çok uzun ise formül işinizi görmez
dilerseniz makro ile halledip göndereyim.

 

[birayfil]

makro işimi görürmü peki

çünkü liste uzun ama ayrıca ana listede var,

karışık bir liste geliyor bana, ve altına ilaveler çok sık oluyor.

A - Ana grup var,

Personel - şöfor - muhasebe- bilgisayarcı diye

bu grupları ben A4 boyuna gelecek şekilde yarım şekilde oluşturdum. burada amaç çıktı aldığım zaman ortasından zımbalayıp fihrist yapmak,

ama liste sürekli değiştiği için ve karışık geldiği için, önce gruplarına göre sıralamam gerekiyor, sıralama yapınca oradan otomatik alıyor, ama 1 kişi eklemek istediğim zaman sıfırdan bir daha gruplandırmam gerekiyor A ana grubundakiler diye,

aslında şöyle bir şey bir formül varsa çok iyi olur.

eğer A sütununda ali varsa B sütunundaki ali ile eşleşen B sütundaki 1 numaralı Hücre
eğer A sütununda ali varsa B sütunundaki ali ile eşleşen B sütundaki 2 numaralı Hücre


şimdiden teşekkürler

 

[a.akyurek]

karışık bir listem var, bu listeden her hangi birini yazdığım zaman bana karışık listeden ayrı olarak o listeyi versin, liste çok uzun o yüzden formül düşeyara sız olursa sevinirim.

şimdiden teşekkürler,

F3:

=COUNTIF(A3:A26,F2)

F6, control+shift+enter ve aşağı kopyala:

=IF(ROWS($F$6:F6)<=$F$3,SMALL(IF($A$3:$A$26=$F$2,
    ROW($A$3:$A$26)-ROW($A$3)+1),ROWS($F$6:F6)),"")

G6, sağa ve aşağı kopyala:

=IF(N($F6),INDEX($A$3:$B$26,$F6,MATCH(G$5,$A$2:$B$2,0)),"")

 

[İhsan Tank]

karışık bir listem var, bu listeden her hangi birini yazdığım zaman bana karışık listeden ayrı olarak o listeyi versin, liste çok uzun o yüzden formül düşeyara sız olursa sevinirim.

şimdiden teşekkürler,

dilerseniz makroyu bir deneyin.
boş bir module kopyalayın ve bir butona atayın

Sub ortakları_aktar()
Dim c As Range, sat As Long, ilkadres As Variant
excelweb = MsgBox("Aktarıma Başlıyayım Mı_?", vbYesNo + vbInformation, "Onay")
If excelweb = vbNo Then
Exit Sub
Else
Sheets("Sayfa1").Range("F5:G" & Rows.Count).ClearContents
sat = 5
With Sheets("Sayfa1").Range("A:A")
Set c = .Find(Sheets("Sayfa1").Range("F2"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("Sayfa1").Cells(sat, "F") = Sheets("Sayfa1").Cells(c.Row, "A")
Sheets("Sayfa1").Cells(sat, "G") = Sheets("Sayfa1").Cells(c.Row, "B")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
End If
MsgBox "Aktarım Tamamlandı", vbInformation, "Bitiş"
End Sub

 

[birayfil]

...

...

ikinizede ayrıca teşekkür ederim,

EĞER(SATIRSAY($F$6:F6)<=$F$3;KÜÇÜK(EĞER($A$3:$A$26=$F$2;SATIR($A$3:$A$26)-SATIR($A$3)+1);SATIRSAY($F$6:F6));"")

burada {} parantezleri nasıl yaptınız acaba, kendi çalışma sayfama koyacağım ama değiştirdiğim zaman kayboluyor formülde çalışmıyor o zaman

 

[a.akyurek]

ikinizede ayrıca teşekkür ederim,

EĞER(SATIRSAY($F$6:F6)<=$F$3;KÜÇÜK(EĞER($A$3:$A$26=$F$2;SATIR($A$3:$A$26)-SATIR($A$3)+1);SATIRSAY($F$6:F6));"")

burada {} parantezleri nasıl yaptınız acaba, kendi çalışma sayfama koyacağım ama değiştirdiğim zaman kayboluyor formülde çalışmıyor o zaman

Control, Shift, ve Enter tuşlarına aynı zamanda basarak bu formülü tamamlamak gerekli. Tek Enter yeterli değil.